8.3.5 釋放OLE對象

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

　　8.3.5.1 注冊O(shè)LE釋放目標(biāo)窗體

　　為了接收一個釋放的OLE對象，必須有一個窗體在Windows中注冊成OLE釋放目標(biāo)，用RegisterFormASOLEDropTarget函數(shù)可實現(xiàn)此功能。

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

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

　　Fmts是對象格式的數(shù)組。它是BOLEFormat 類型的數(shù)組。 所有要釋放的數(shù)據(jù)必須用Fmts數(shù)組中相應(yīng)BOLEFormat元素注冊。

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

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

　　在主窗體的OnCreate事件中可調(diào)用RegisterFormAsOLEDropTorget。

　　procedure TOLEFrameForm,FormCreate(Sender : TObject);

　　begin…

　　Register FormASOleDropTarget(Self,Fmts)

　　end;

　　8.3.5.2 在應(yīng)用程序中釋放OLE對象

　　當(dāng)一個對象釋放到一個窗體，該窗體發(fā)生OnDragDrop 事件。該對象定義為TDragDropEvent方法中的Source參數(shù)，而TDragDropEvent 方法是用來處理OnDragDrop事件”。 如果Source 是一個OLE 對象， 那么它是TOLEDropNotify 對象的派生類型。 TOLEDropNotify對象有一個與OLE包容器部件PInitInfo屬性相對應(yīng)的PIniInfo屬性。 如果一個OLE對象被釋放。PInitInfo指向OLE對象的初始化信息結(jié)構(gòu)。要實現(xiàn)釋放功能。只需將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屬性的內(nèi)存。Delphi自動釋放這塊內(nèi)存。

　　8.3.6 文件中的OLE對象

　　在OLE應(yīng)用程序中，要保存對OLE對象的修改，需將對象數(shù)據(jù)保存在文件中。 如果對象是鏈接的數(shù)據(jù)，Delphi將自動的保存在源文件中。當(dāng)對象被修改時，文件中的數(shù)據(jù)自動修改。 如果對象是嵌入的，數(shù)據(jù)貯存在應(yīng)用程序程序的窗體。要保存對嵌入對象的修改， 應(yīng)用程序應(yīng)把數(shù)據(jù)保存在特殊的OLE文件中。如果要對已存文件的對象進(jìn)行編輯，應(yīng)用程序必須從文件中裝入OLE對象。

　　OLE包容器部件的SaveToFile方法可保存對象：

　　OleCntainer1.SaveToFile('C: \SALEs.OLE');

　　OLE包容器部件的loadFromFile方法可把文件中的對象裝入OLE包容器部件。

　　OleContainer1.loadFromFile('C:\SALEs.OLE')

　　本章例程使用了保存對話框和打開對話框來實現(xiàn)運行狀態(tài)的對象保存和對象裝入。

　　在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

　　━━━━━━━━━━━━━━━━━━━━━━━━━

　　用戶單擊“文件|保存”菜單項實現(xiàn)OLE對象的保存。代碼如下：

　　procedure TOLEObjectForm.SaveAs1Click(Sender: TObject);

　　begin

　　if SaveAsDialog.Execute then

　　OLEContainer.SaveToFile(SaveAsDialog.Filename)

　　end;

　　用戶單擊“文件|打開”菜單項實現(xiàn)對象文件裝入：

　　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應(yīng)用程序操縱另一個程序的一種機(jī)制。OLE 2.0提供了一種方法來集成應(yīng)用程序，這就是應(yīng)用程序之間的命令操作。

　　利用OLE 2.0，程序員可以定義一組命令，使它們進(jìn)入到其它程序中。這些命令可帶參數(shù)�？雌饋砗芟髴�(yīng)用程序在調(diào)用函數(shù)或過程一樣。采用上述辦法， 可以在人不參與的情況下，就能使得兩個應(yīng)用程序的相互作用。

　　被自動化的程序稱作自動化對象或自動化服務(wù)器， 操作或自動化其他程序的應(yīng)用程序稱為自動化控制器或自動化客戶器。

　　Delphi2.0完全支持OLE2.0的應(yīng)用程序自動化，可以用Delphi 2.0編寫自動化控制器和服務(wù)

　　器。在應(yīng)用程序之間可編程的潛能是巨大的。用戶可以創(chuàng)建宏或者其它命令， 使得某個應(yīng)用程序能透過其它應(yīng)用程序進(jìn)行工作。已經(jīng)存在的應(yīng)用程序的宏語言很容易被擴(kuò)展，它可以包括一組別的應(yīng)用程序能夠執(zhí)行的命令和函數(shù)調(diào)用。

　　現(xiàn)在介紹兩個應(yīng)用程序，其中MemoEdit.dpr 是多文檔界面的文本編輯器，作為OLE自動化服務(wù)器,AutoFrom.dpr是自動化控制器。運行AutoForm前，在Delphi集成開發(fā)環(huán)境中單擊菜單(run | parameters),Delphi彈出運行參數(shù)對話框，如圖8.5，輸入?yún)��?shù)后運行狀態(tài)如圖8.6。AutoForm窗體的多個按鈕。可對MemoEdit進(jìn)行操作;如按Creat按鈕，MemoEdit產(chǎn)生三個子窗體，如圖8.7，按"AddText"，子窗體將出現(xiàn)"This text was added through OLE Automation"的字符串“

　　MemoEdit包括三個單元：

　　Mainfrom MDI主窗體

　　EditFrom MDE子窗體和自動化類

　　MemoAuto 應(yīng)用程序自動化對象

　　下面結(jié)合例程講述OLE自動化的基本概念及開發(fā)。

　　8.4.1 TAutoObject對象

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

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

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

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

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

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

　　default,odefault均不能使用;

　　● 訪問定義符必須列出相應(yīng)的方法標(biāo)識符，不能使用域標(biāo)識符;

　　● 支持?jǐn)?shù)組類型;

　　● 不允許屬性重載;

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

　　在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;