8.3.5 釋放OLE對象

　　從OLE服務器拖動OLE對象并將其放在OLE應用程序是一種方便的對象鏈接與嵌入的方法。通過拖放操作，用戶不需要使用插入對話框或粘貼對話框來定義OLE對象。而只需用鼠標鍵從OLE服務器中“抓”住OLE對象，拖至OLE應用程序，松開鼠標鍵，從而實現OLE對象的插入。

　　8.3.5.1 注冊OLE釋放目標窗體

　　為了接收一個釋放的OLE對象，必須有一個窗體在Windows中注冊成OLE釋放目標，用RegisterFormASOLEDropTarget函數可實現此功能。

　　RegisterFormASOLEDropTarger(Form : TFrom;Const Fmts: array of BOlefrom).

　　其中Form是OLE對象的釋放目標窗體，在本章例程中，將子窗體傳遞給Form參數。

　　Fmts是對象格式的數組。它是BOLEFormat 類型的數組。 所有要釋放的數據必須用Fmts數組中相應BOLEFormat元素注冊。

　　在本章例程中，注冊的Fmts 數組與主窗體OnCreate事件 聲明的數組相同， 即：聯接對象格式和嵌入對象格式。如果想接收更多類型的釋放數據，就必須在Fmts數組中加入其它元素。例如應用程序要接收釋放的文本，Fmts需加第三個元素， 其fmtId 域為CF_TEXT,BOLEMedium域為BOLE_MED_HGLOBL.

　　拖放過程中不需要用BOLEFormat的fmtName,fmtResultName域，如果程序只進行拖放操作而不進行對象粘貼，可以不初始化兩個域。

　　在主窗體的OnCreate事件中可調用RegisterFormAsOLEDropTorget。

　　procedure TOLEFrameForm,FormCreate(Sender : TObject);

　　begin…

　　Register FormASOleDropTarget(Self,Fmts)

　　end;

　　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"的字符串“

　　MemoEdit包括三個單元：

　　Mainfrom MDI主窗體

　　EditFrom MDE子窗體和自動化類

　　MemoAuto 應用程序自動化對象

　　下面結合例程講述OLE自動化的基本概念及開發。

　　8.4.1 TAutoObject對象

　　TAutoObject 是Delphi自動化服務器中所有對象的基類，任何自動化對象都是從TAutoObject類派生出來的。

　　OLE對象的定義與其它類的定義類似。它的automated部分象普通類的public部分，OLE控制器可引用在這部分聲明的屬性和方法。編譯器把automated部分創建成OLE自動化對象的入口。但automated部分的代碼有很多限制：

　　● 屬性方法可以定義，但不能定義域;

　　● 所有屬性、參數、函數類型必須是以下類型之一：

　　SmallInt,Integer,Single,Double,Currency,TDateTime,String,WordBool, Varint

　　● 屬性聲明只能包括訪問定義符(read and Write)，其它定義符如index,stored,

　　default,odefault均不能使用;

　　● 訪問定義符必須列出相應的方法標識符，不能使用域標識符;

　　● 支持數組類型;

　　● 不允許屬性重載;

　　● 方法是可以是虛擬的，但不能是動態的，允許方法重載。

　　在EditFrom單元中定義了TMemoDoc類：

　　type

　　TMemoDoc = Class(TAutoObject)

　　private

　　FEditForm : TEditForm;

　　funtion CretFileName : String;

　　funtion CretModiFied : WordBool;

　　procedure SetFileName(Const Value : String);

　　automated

　　procedure Clear;

　　procedure Ineart(Const Text : String);

　　procedure Save;

　　procedure Close;

　　procedure FileName : String read GretFileName write

　　SetFileName;

　　procedure Modified : WordBool read GretModified

　　end;