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;

 1/2    1 2 下一页 尾页