--delphi基础教程--第八章 对象链接与嵌入(二)

《--delphi基础教程--第八章 对象链接与嵌入(二)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、--DELPHI基础教程--第八章对象链接与嵌入(二)-->DELPHI基础教程-->第八章　对象链接与嵌入（二）后一页前一页回目录回首页第八章　对象链接与嵌入（二）8.3.5.2在应用程序中释放OLE对象　　　当一个对象释放到一个窗体，该窗体发生OnDragDrop事件。该对象定义为TDragDropEvent方法中的Source参数，而TDragDropEvent方法是用来处理OnDragDrop事件”。如果Source是一个OLE对象，那么它是TOLEDropNotify对象的派生类型。TOLEDropNotify对象有一个与OLE包容器

2、部件PInitInfo属性相对应的PIniInfo属性。如果一个OLE对象被释放。PInitInfo指向OLE对象的初始化信息结构。要实现释放功能。只需将TOLEDropNotify的PInitInfo属性赋给OLE包容器部件的PInitInfo属性。　　以下为处理OnDragDrop事件的代码：　procedureTOLEFrameForm.FormDragDrop(Sender,Source:TObject;X,Y:Integer);varNewChild:TOLEObjectForm;beginifSourceisTOLEDropNoti

3、fythenbeginNewChild:=CreateChild;withSourceasTOLEDropNotifydoNewChild.OLEContainer.PInitInfo:=PInitInfoendend;　注意不要用ReleaseOLEInitInfo释放分配给PInitInfo属性的内存。Delphi自动释放这块内存。　8.3.6文件中的OLE对象　　　在OLE应用程序中，要保存对OLE对象的修改，需将对象数据保存在文件中。如果对象是链接的数据，Delphi将自动的保存在源文件中。当对象被修改时，文件中的数据自动修改。如果对象

4、是嵌入的，数据贮存在应用程序程序的窗体。要保存对嵌入对象的修改，应用程序应把数据保存在特殊的OLE文件中。如果要对已存文件的对象进行编辑，应用程序必须从文件中装入OLE对象。　　OLE包容器部件的SaveToFile方法可保存对象：　　　OleCntainer1.SaveToFile('C:SALEs.OLE')；　　　OLE包容器部件的loadFromFile方法可把文件中的对象装入OLE包容器部件。　　　OleContainer1.loadFromFile('C:SALEs.OLE')　　本章例程使用了保存对话框和打开对话框来实现运行状

5、态的对象保存和对象装入。　　在OLEObjectForm窗体加入保存对话框部件和打开对话框部件。其主要属性如表8.4：　　　表8.4保存对话框的属性及取值：━━━━━━━━━━━━━━━━━━━━━━━━　属性　　　　　　　　值────────────────────────　　NameSaveAsDialogDefaultExitoleFileName.OLEFilterOLEfiles(*.OLE)

6、*.OLE━━━━━━━━━━━━━━━━━━━━━━━━　表8.5打开对话框的属性及取值━━━━━━━━━━━━━━━━━━━━━━━━━　

7、　属性　　　　　　　　取值────────────────────────　　NameOpenDialogDefaultExitoleFileName.OLEFilterOLEfiles(*.OLE)

8、*.OLE━━━━━━━━━━━━━━━━━━━━━━━━━　　　用户单击“文件

9、保存”菜单项实现OLE对象的保存。代码如下：　procedureTOLEObjectForm.SaveAs1Click(Sender:TObject);beginifSaveAsDialog.ExecutethenOLEContainer.SaveToFile(Sa

10、veAsDialog.Filename)end;　用户单击“文件

11、打开”菜单项实现对象文件装入：　procedureTOLEFrameForm.Open1Click(Sender:TObject);varNewChild:TOLEObjectForm;beginfOpenDialog.ExecutethenbeginNewChild:=CreateChild;NewChild.OLEContainer.LoadFromFile(OpenDialog.FileName)endend;　　8.4OLE自动化　　　OLE自动化是Windows应用程序

12、操纵另一个程序的一种机制。OLE2.0提供了一种方法来集成应用程序，这就是应用程序之间的命令操作。　　利用OLE2.0，程序员可以定义一组命令，使它们