8.3.5.2 在应用程序中释放OLE对象
当一个对象释放到一个窗体,该窗体发生OnDragDrop 事件。该对象定义为TDragDropEvent方法中的Source参数,而TDragDropEvent 方法是用来处理OnDragDrop事件”。 如果Source 是一个OLE 对象, 那么它是TOLEDropNotify 对象的派生类型。 TOLEDropNotify对象有一个与OLE包容器部件PInitInfo属性相对应的PIniInfo属性。 如果一个OLE对象被释放。PInitInfo指向OLE对象的初始化信息结构。要实现释放功能。只需将TOLEDropNotify的PInitInfo属性赋给OLE包容器部件的PInitInfo属性。
以下为处理OnDragDrop事件的代码:
procedure TOLEFrameForm.FormDragDrop(Sender, Source: TObject; X,
Y: Integer);
var
NewChild: TOLEObjectForm;
begin
if Source is TOLEDropNotify then
begin
NewChild := CreateChild;
with Source as TOLEDropNotify do
NewChild.OLEContainer.PInitInfo := PInitInfo
end
end;
注意不要用ReleaseOLEInitInfo释放分配给PInitInfo属性的内存。Delphi自动释放这块内存。
8.3.6 文件中的OLE对象
在OLE应用程序中,要保存对OLE对象的修改,需将对象数据保存在文件中。 如果对象是链接的数据,Delphi将自动的保存在源文件中。当对象被修改时,文件中的数据自动修改。 如果对象是嵌入的,数据贮存在应用程序程序的窗体。要保存对嵌入对象的修改, 应用程序应把数据保存在特殊的OLE文件中。如果要对已存文件的对象进行编辑,应用程序必须从文件中装入OLE对象。
OLE包容器部件的SaveToFile方法可保存对象:
OleCntainer1.SaveToFile('C: \SALEs.OLE');
OLE包容器部件的loadFromFile方法可把文件中的对象装入OLE包容器部件。
OleContainer1.loadFromFile('C:\SALEs.OLE')
本章例程使用了保存对话框和打开对话框来实现运行状态的对象保存和对象装入。
在OLEObjectForm窗体加入保存对话框部件和打开对话框部件。其主要属性如表8.4:
表8.4 保存对话框的属性及取值:
━━━━━━━━━━━━━━━━━━━━━━━━
属性 值
────────────────────────
Name SaveAsDialog
DefaultExit ole
FileName .OLE
Filter OLE files (*.OLE)|*.OLE
━━━━━━━━━━━━━━━━━━━━━━━━
表8.5 打开对话框的属性及取值
━━━━━━━━━━━━━━━━━━━━━━━━━
属性 取值
────────────────────────
Name OpenDialog
DefaultExit ole
FileName .OLE
Filter OLE files (*.OLE)|*.OLE
━━━━━━━━━━━━━━━━━━━━━━━━━
用户单击“文件|保存”菜单项实现OLE对象的保存。代码如下:
procedure TOLEObjectForm.SaveAs1Click(Sender: TObject);
begin
if SaveAsDialog.Execute then
OLEContainer.SaveToFile(SaveAsDialog.Filename)
end;
用户单击“文件|打开”菜单项实现对象文件装入:
procedure TOLEFrameForm.Open1Click(Sender: TObject);
var
NewChild: TOLEObjectForm;
begin
f OpenDialog.Execute then
begin
NewChild := CreateChild;
NewChild.OLEContainer.LoadFromFile(OpenDialog.FileName)
end
end;
8.4 OLE自动化
OLE自动化是Windows应用程序操纵另一个程序的一种机制。OLE 2.0提供了一种方法来集成应用程序,这就是应用程序之间的命令操作。
利用OLE 2.0,程序员可以定义一组命令,使它们进入到其它程序中。这些命令可带参数。看起来很象应用程序在调用函数或过程一样。采用上述办法, 可以在人不参与的情况下,就能使得两个应用程序的相互作用。
被自动化的程序称作自动化对象或自动化服务器, 操作或自动化其他程序的应用程序称为自动化控制器或自动化客户器。
Delphi2.0完全支持OLE2.0的应用程序自动化,可以用Delphi 2.0编写自动化控制器和服务
器。在应用程序之间可编程的潜能是巨大的。用户可以创建宏或者其它命令, 使得某个应用程序能透过其它应用程序进行工作。已经存在的应用程序的宏语言很容易被扩展,它可以包括一组别的应用程序能够执行的命令和函数调用。
现在介绍两个应用程序,其中MemoEdit.dpr 是多文档界面的文本编辑器,作为OLE自动化服务器,AutoFrom.dpr是自动化控制器。运行AutoForm前,在Delphi集成开发环境中单击菜单(run | parameters),Delphi弹出运行参数对话框,如图8.5,输入参数后运行状态如图8.6。AutoForm窗体的多个按钮。可对MemoEdit进行操作;如按Creat按钮,MemoEdit产生三个子窗体,如图8.7,按"AddText",子窗体将出现"This text was added through OLE Automation"的字符串“
[1] [2] [3] 下一页
……