急!急!急!,有关Delphi5中的Servers控件和OLEContainer控件的使用问题。(200分)

  • 主题发起人 主题发起人 archie
  • 开始时间 开始时间
A

archie

Unregistered / Unconfirmed
GUEST, unregistred user!
本人在使用Delphi5中的Servers控件页下的WordApplication和 WordDocuments控件时,遇到一系列问题,现特请教各位高手:
1,怎样保存新建的文件(使用Servers控件)? 我使用的是:
。。。
WordApplication1.Connect;
wordApplication1.visible :=true;
WordDocument1.connect;
WordDocument1.active;
。。。。
WordApplication1.Documents.item(1).Saveas(file_name) ;
。。。
编译时,系统提示:Types of actual and formal var paramenters must bu identical 错误。使用WordDocuments.Saveas时也出错。

2,怎样通过Delphi5中的Servers控件来达到完全控制Word或Excel。如:使Word中的New和Open菜单或按纽失效,即只启动一个应用程序和一个文档?

3,怎样在程序运行来判断OLEContainer所确定的属性,即在运行时如何判断OLEContainer所确定的文档类型(如Word,Excel,Package,Bitmap等)?

4,请教各位有没有见过DelphI5介绍Servers控件的书?
 
我也想知道!
 
1、我以前写过这种东东,现拿出来参考:
var Template, TempFalse, ItemIndex, Filename,
FileFormat, Filename2,
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
Template := EmptyParam;
TempFalse := false;
ItemIndex := 1;
......
try
Wordapplication.Connect;
except
ShowMessage('无法启动Word。请检查是否已安装。');
Abort;
end;
Wordapplication.Visible := false;
WordApplication.Caption := Application.Title;
{Open a document}
WordApplication.Documents.Open(Filename,Template,TempFalse,TempFalse,Template,
Template,Template,Template,Template,Template);
{Assign WordDocument component}
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
// ****************** Save As ***********************
try
WordDocument.SaveAs(Filename2, FileFormat);
except
ShowMessage('无法保存文档。请检查WORD是否被关闭。');
end;
// ****************** Close Document ***********************
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication.Disconnect;
except
ShowMessage('无法关闭文档。请检查WORD是否异常。');
end;

2、控制WORD也不难,就象:
WordApplication.Caption := Application.Title;
这样就能控制WORD的标题。其它也是类推;

3、不知道你具体想怎么用,是用在什么方面?

4、Servers控件的书没见过。但是你可以找专业的书,如MSDN就详细介绍了如何控制WORD、EXCEL,包括所有属性、方法、事件。你可以找一找。好象这个东东在WORD或者EXCEL的帮助文档中也有,你可以耐心找一下。不过那都是VB语言,放在DELPHI中使用要自己体会。
 
接受答案了.
 
后退
顶部