第八章　對(duì)象鏈接與嵌入

　　對(duì)象鏈接和嵌入(Object Linking and Embeding)是一組服務(wù)功能，它提供了一種用源于不同應(yīng)用程序的信息創(chuàng)建復(fù)合文檔的強(qiáng)有力方法。 對(duì)象可以是幾乎所有的信息類型，如文字、位圖、矢量圖形，甚至于聲音注解和錄像剪輯等。

　　Windows附件組中的書寫器是應(yīng)用OLE的實(shí)例，使用單擊“對(duì)象 | 插入”菜單項(xiàng)， 書寫器彈出插入對(duì)話框，對(duì)話框中列出了多個(gè)OLE服務(wù)器程序，如公式編輯工具，繪圖工具，報(bào)表生成工具。用戶雙擊鼠標(biāo)左鍵，可激活一個(gè)OLE服務(wù)器。在OLE服務(wù)器中可編輯OLE對(duì)象，當(dāng)用戶返回到書寫器中時(shí)，在書寫器文檔中將出現(xiàn)OLE對(duì)象。

　　Delphi支持OLE技術(shù)，Delphi1.0可以創(chuàng)建OLE應(yīng)用程序，Delphi2.0可創(chuàng)建OLE自動(dòng)化服務(wù)器和控制器程序。本章通過(guò)例程介紹對(duì)象鏈接與嵌入的基本概念，Delphi創(chuàng)建OLE對(duì)象的方法，OLE自動(dòng)化的概念以及如何開發(fā)OLE自動(dòng)化服務(wù)器和控制器。

　　8.1 OLE簡(jiǎn)介

　　8.1.1 OLE1.0和OLE2.0

　　迄今為止，有兩種版本的OLE：OLE1.0和OLE2.0。當(dāng)用戶在OLE1.0 服務(wù)器中激活OLE對(duì)象，服務(wù)器程序在前臺(tái)打開自己的窗體，并獲得焦點(diǎn)。OLE窗體失去焦點(diǎn)，存在于單獨(dú)的窗體之中。

　　OLE2.0服務(wù)器采用“本地”(in place)激活方式。本地激活意味著服務(wù)器菜單與應(yīng)用程序菜單要進(jìn)行融合，服務(wù)器的狀態(tài)條更換應(yīng)用程序狀態(tài)條，服務(wù)器的工具條更換應(yīng)用程序工具條。OLE對(duì)象在應(yīng)用程序窗體中進(jìn)行編輯，但所有過(guò)程均由服務(wù)器處理。

　　創(chuàng)建OLE對(duì)象的服務(wù)器決定了OLE的激活方式。如果一個(gè)OLE1.0的對(duì)象在OLE2.0 編譯的應(yīng)用程序中打開，它將采用OLE1.0的方式。

　　8.1.2 鏈接與嵌入

　　鏈接對(duì)象的數(shù)據(jù)保存在OLE服務(wù)器創(chuàng)建的文件中，嵌入對(duì)象的數(shù)據(jù)保存在OLE應(yīng)用程序中。

　　鏈接對(duì)象必須以文件形式保存，只有對(duì)OLE服務(wù)器已經(jīng)創(chuàng)建好的OLE對(duì)象， 才能進(jìn)行OLE鏈接，鏈接的OLE對(duì)象文件可被OLE應(yīng)用程序或其它程序進(jìn)行修改，OLE 服務(wù)器和其它OLE應(yīng)用程序也可以訪問和修改OLE對(duì)象。對(duì)象數(shù)據(jù)保存在某一處，但可以被多個(gè)應(yīng)用程序訪問。

　　Delphi應(yīng)用程序可以得到OLE對(duì)象文件中的最新數(shù)據(jù)。當(dāng)OLE 對(duì)象數(shù)據(jù)被應(yīng)用程序修改時(shí)，這些變化將在所有包含該對(duì)象的其它應(yīng)用程序中體現(xiàn)。

　　嵌入對(duì)象保存在OLE應(yīng)用程序中，其它應(yīng)用程序不能訪問該對(duì)象。只有在OLE應(yīng)用程序中激活OLE對(duì)象才能對(duì)其進(jìn)行編輯。嵌入的OLE對(duì)象不需要保存在文件中，所有數(shù)據(jù)都在應(yīng)用程序中，這就確保了OLE數(shù)據(jù)不會(huì)被偶然地刪除或修改。不足之處是應(yīng)用程序的規(guī)模因?yàn)楸４媪薕LE數(shù)據(jù)而增大了 。

　　如果用戶想保存對(duì)嵌入對(duì)象的修改，可以把OLE數(shù)據(jù)存入文件中，本章第3 節(jié)將詳細(xì)討論這個(gè)問題。

　　表8.1 使用鏈接或嵌入的原則。

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

　　何時(shí)使用鏈接　何時(shí)使用嵌入

　　───────────────────────────────

　　想要對(duì)源對(duì)象進(jìn)行修改及將　對(duì)源對(duì)象進(jìn)行修改，并將這

　　這些修改反映到其他與源對(duì)　些修改反映在一個(gè)特定的應(yīng)

　　象鏈接的應(yīng)用程序或文本中　用程序或文本中

　　源對(duì)象可能被多個(gè)OLE應(yīng) 源對(duì)象不可能被一個(gè)OLE應(yīng)

　　用程序應(yīng)用程序頻繁修改　用程序頻繁修改

　　源對(duì)象的文件不會(huì)被頻繁移　源對(duì)象的文件可能被頻繁移

　　動(dòng)，且不會(huì)被刪除　動(dòng)，且不會(huì)被刪除

　　對(duì)象很大，一般通過(guò)網(wǎng)絡(luò)或　對(duì)象很小，或?qū)ο蠛艽髤s無(wú)法

　　電子郵件進(jìn)行分配　通過(guò)網(wǎng)絡(luò)或電子郵件進(jìn)行分配

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

　　8.1.3 設(shè)計(jì)狀態(tài)OLE對(duì)象的創(chuàng)建

　　在Delphi中，可分別在設(shè)計(jì)狀態(tài)或運(yùn)行狀態(tài)創(chuàng)建OLE對(duì)象，表8.2說(shuō)明了兩種狀態(tài)創(chuàng)建對(duì)象的差別。

　　表8.2 設(shè)計(jì)、運(yùn)行狀態(tài)OLE對(duì)象的創(chuàng)建

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

　　設(shè)計(jì)狀態(tài)OLE對(duì)象的創(chuàng)建　運(yùn)行狀態(tài)OLE對(duì)象的創(chuàng)建

　　──────────────────────────────────────

　　對(duì)象保存在運(yùn)行文件中，增加了所需 對(duì)象保存在一個(gè)文件中或只在運(yùn)行時(shí)

　　編譯的程序的規(guī)模　才有，減小了編譯程序的規(guī)模

　　開發(fā)者需在設(shè)計(jì)時(shí)訪問OLE服務(wù)器　開發(fā)者不需要在設(shè)計(jì)時(shí)訪問OLE服務(wù)器

　　運(yùn)行時(shí)OLE對(duì)象已經(jīng)創(chuàng)建，減小了 運(yùn)行時(shí)OLE對(duì)象已經(jīng)創(chuàng)建，增加了運(yùn)行

　　運(yùn)行時(shí)間　時(shí)間

　　OLE對(duì)象在設(shè)計(jì)運(yùn)行時(shí)間可行性編輯　OLE對(duì)象只能在運(yùn)行時(shí)編輯

　　應(yīng)用程序的OLE對(duì)象數(shù)目在設(shè)計(jì)時(shí)已　應(yīng)用程序可以在運(yùn)行時(shí)創(chuàng)建新的OLE對(duì)

　　經(jīng)確立　象

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

　　在設(shè)計(jì)狀態(tài)，OLE服務(wù)器不能被本地激活，只能在自己的窗體內(nèi)激活。但在運(yùn)行狀態(tài)，

　　只要OLE服務(wù)器支持本地激活，就可以使用這種方式。

　　8.1.4 OLE類、文件、項(xiàng)目

　　OLE類決定創(chuàng)建OLE對(duì)象的服務(wù)器。有些應(yīng)用程序需要?jiǎng)?chuàng)建多種類型的OLE對(duì)象，例如應(yīng)用程序同時(shí)鏈接或嵌入公式、圖片等。OLE類也決定OLE對(duì)象所包含的數(shù)據(jù)類型，鏈接或嵌入對(duì)象均要定義OLE類。

　　OLE文件是包含OLE對(duì)象數(shù)據(jù)的源文件。鏈接對(duì)象必須使用對(duì)象文件，因?yàn)殒溄訉?duì)象在文件中保存。如果應(yīng)用程序從已存在的源文件中創(chuàng)建嵌入對(duì)象，也要使用OLE文件。例如，如果鏈接到QuattiPro筆記本的OLE對(duì)象TUTOR.WBI存儲(chǔ)在D:\DFFICE\QPW目錄下，則OLE文件就是D:\DFFICE\QPW\TUTOR.WBI。值得注意的是OLE文件只能為鏈接對(duì)象所定義，而對(duì)于嵌入對(duì)象，只需定義OLE類。

　　OLE項(xiàng)目是代表鏈接或嵌入數(shù)據(jù)的OLE文件中的一部分。當(dāng)應(yīng)用程序希望OLE對(duì)象包含比OLE文件小的數(shù)據(jù)塊時(shí)，則必須使用OLE項(xiàng)目。

　　例如，在QuattiPro筆記本中，OLE對(duì)象鏈接了GasCosts的B4 到B5 范圍的網(wǎng)格，OLE項(xiàng)目是$GasCosts;$B$4.$B$5。

　　8.2 設(shè)計(jì)狀態(tài)OLE對(duì)象的創(chuàng)建

　　Dephi可以在設(shè)計(jì)狀態(tài)和運(yùn)行狀態(tài)中創(chuàng)建OLE對(duì)象。本節(jié)介紹設(shè)計(jì)狀態(tài)OLE對(duì)象的創(chuàng)建。

　　8.2.1 TOLEContainer部件

　　要?jiǎng)?chuàng)建OLE對(duì)象，需在窗體中加入OLE包容器部件。 應(yīng)用程序部件包含鏈接或嵌入的對(duì)象。用該部件可顯示在OLE服務(wù)器編輯的數(shù)據(jù)。部件的ObjClass,ObjDoc,ObjItem 屬性分別定義OLE類、文件、項(xiàng)目。要定義OLE對(duì)象是否本地激活，使用InPlaceActive 屬性。如果OLE對(duì)象可以本地激活，OLE服務(wù)器菜單將與OLE應(yīng)用程序的菜單進(jìn)行融合，GroupIndex屬性的值將決定菜單融合情況。

　　8.2.2 OLE對(duì)象創(chuàng)建的步驟：

　　1.在窗體中增加OLE包容器部件;

　　2.在Object inspector中單擊ObjClass或ObjDoc屬性的省略按鈕，將出現(xiàn)插入對(duì)象對(duì)話框;

　　3.如果要插入的OLE 對(duì)象已存儲(chǔ)在文件中，選擇“Creat From File”，而后定義該對(duì)象的文件名和路徑名。如果是鏈接對(duì)象，則選擇鏈接檢查框。 如果是嵌入對(duì)象，選擇“Creat new”，并在對(duì)象類型列表框中選擇OLE對(duì)象;

　　4.選擇OK按鈕;

　　如果是創(chuàng)建新對(duì)象，OLE服務(wù)器將激活，則可對(duì)OLE對(duì)象進(jìn)行編輯，完成編輯后關(guān)閉OLE服務(wù)器。典型的例子是單擊服務(wù)器中的“File”或“File|Update”菜單。

　　5.此時(shí)ObjClass屬性中包含了相應(yīng)的值，如果OLE對(duì)象從已存在的文件中創(chuàng)建或插入一

　　個(gè)鏈接對(duì)象，ObjDoc屬性包含了OLE文件。

　　在設(shè)計(jì)對(duì)象狀態(tài)時(shí)也可以粘貼OLE對(duì)象，其步驟如下：

　　1.激活服務(wù)器應(yīng)用程序，選擇OLE包容器部件;

　　2.在服務(wù)器中，將數(shù)據(jù)或?qū)ο罂截惖郊羟邪?

　　3.進(jìn)入Delphi集成開發(fā)環(huán)境，選擇OLE包容器部件;

　　4.在 Object inspector窗體中選擇ObjItem屬性的省略(…)按鈕;

　　5.在列表中選擇OLE對(duì)象;

　　6.選擇“Paste"創(chuàng)建一個(gè)嵌入對(duì)象或選擇"Pastelink"創(chuàng)建鏈接對(duì)象;

　　7.選擇OK。

　　OLE包容器部件在此時(shí)初始化。如果粘貼一個(gè)嵌入對(duì)象，ObjClass屬性將包含適當(dāng)?shù)闹怠Ｈ绻�粘貼一鏈接對(duì)象，ObjClass,ObjDoc,ObjItem屬性將全部定義。OLE 應(yīng)用程序部件包含代表OLE對(duì)象的圖片。

　　如果OLE服務(wù)器程序支持OLE對(duì)象的拖放功能，則在設(shè)計(jì)狀態(tài)從服務(wù)器中拖動(dòng)對(duì)象至應(yīng)用程序，應(yīng)用程序?qū)��?chuàng)建鏈接對(duì)象，具體步驟：

　　1.激活服務(wù)器，并Delphi集成開放環(huán)境中選擇要鏈接的對(duì)象;

　　2.按隹鼠標(biāo)左鍵拖動(dòng)OLE對(duì)象至設(shè)計(jì)狀態(tài)的窗體;

　　3.松開鼠鍵釋放OLE對(duì)象。

　　窗體將創(chuàng)建OLE應(yīng)用程序并進(jìn)行初始化。

　　8.3 OLE應(yīng)用程序的開發(fā)

　　Delphi可以在設(shè)計(jì)狀態(tài)和運(yùn)行狀態(tài)創(chuàng)建OLE對(duì)象，上一節(jié)介紹的是在設(shè)計(jì)狀態(tài)如何創(chuàng)建OLE對(duì)象，這一節(jié)將通過(guò)例程介紹如何在運(yùn)行狀態(tài)創(chuàng)建OLE對(duì)象、粘貼對(duì)象、拖動(dòng)對(duì)象，以及OLE 對(duì)象的文件操作。我們開發(fā)的 OLE.dpr是一個(gè)OLE應(yīng)用程序的實(shí)例

　　8.3.1 OLE應(yīng)用程序界面開發(fā)

　　OLE.dpr采用了多文檔界面，父窗體有菜單，工具條，狀態(tài)條，子窗體有一個(gè)OLE包容器部件，下面分別加以介紹。

　　8.3.1.1 OLE應(yīng)用程序的菜單

　　OLE應(yīng)用程序的菜單與其它應(yīng)用程序的主菜單大體一致，如果應(yīng)用程序中有支持本地激活的OLE 2.0對(duì)象，則要進(jìn)行菜單融合。查閱OLE 服務(wù)器的資料可知道服務(wù)器是否支持本地激活。

　　OLE應(yīng)用程序菜單的GroupIndex屬性決定融合菜單的位置，即融合菜單是更換主菜單，還是插入至應(yīng)用程序的主菜單中。

　　OLE服務(wù)器，將融合三組菜單:Edit,View,Help，每組菜單分配了唯一的組索引值。在OLE應(yīng)用程序中任何索引值為1,3,5的菜單組在菜單融合時(shí)被OLE服務(wù)器中具有相應(yīng)索引值的菜 單更換。在本例程中，編輯菜單項(xiàng)在菜單融合時(shí)被服務(wù)器的"Edit"替換。如圖8.3。 要想保存應(yīng)用程序中的菜單，分配有異于1,3,5的索引值。

　　表8.3 融合后的菜單

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

　　菜單 索引值　功能描述　來(lái)源(OLE激活時(shí))

　　────────────────────────────────

　　文件　0 使用文件和退出程序　OLE應(yīng)用程序

　　Edit 1 編輯OLE對(duì)象　OLE服務(wù)器

　　對(duì)象　2 操作未激活的OLE對(duì)象　OLE應(yīng)用程序

　　View 3 修改OLE對(duì)象的觀測(cè)方式　OLE服務(wù)器

　　窗體　4 操縱窗體　OLE應(yīng)用程序

　　Help 5 訪問服務(wù)器在線幫助　OLE服務(wù)器

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

　　8.3.1.2 OLE工具條和狀態(tài)條

　　當(dāng)OLE對(duì)象被本地激活時(shí)，OLE服務(wù)器將試圖用自己的工具條和狀態(tài)條替換OLE應(yīng)用程序的。如果應(yīng)用程序想要本地激活， 就應(yīng)該在應(yīng)用程序中編寫相應(yīng)的代碼讓服務(wù)器使用工具條和狀態(tài)條。要做到這點(diǎn)，必須：

　　● 設(shè)置工具條和狀態(tài)條

　　● 在應(yīng)用程序中加入狀態(tài)條

　　通過(guò)修改面板部件的屬性創(chuàng)建工具條和狀態(tài)條。

　　當(dāng)OLE對(duì)象被本地激活時(shí)，面板或其他對(duì)齊控制將與OLE服務(wù)器程序進(jìn)行協(xié)調(diào)。 這意味

　　OLE服務(wù)器可以替換OLE應(yīng)用程序窗體中任何對(duì)齊控制，但鎖定的控制不能被替換。例如，

　　如果面板的align屬性是alTop,alleft,alBottom,alIngh時(shí)，控制未鎖定，OLE服務(wù)器可以替換。要使應(yīng)用程序的工具條、狀態(tài)條不被替換，可將locked屬性設(shè)置成真值。

　　當(dāng)OLE 對(duì)象被激活，OLE 服務(wù)器在狀態(tài)條中顯示有關(guān)信息時(shí)，OLE 應(yīng)用程序部件的OnStatusLineEvent事件發(fā)生，一個(gè)文本字符會(huì)將從OLE服務(wù)器傳至該事件句柄。 OnStatusLineEvent事件句柄的MSG參數(shù)接受文本字符。

　　以下代碼用以狀態(tài)條接收OLE服務(wù)器的信息：

　　procedure TOLEObjectForm.OleContainerStatusLineEvent(Sender: TObject;

　　Msg: String);

　　begin

　　OLEFrameForm.StatusBarPanel.Caption := Msg

　　end;

　　8.3.2 插入OLE對(duì)象

　　運(yùn)行狀態(tài)時(shí)進(jìn)行對(duì)象鏈接與插入也要用到插入對(duì)話框，Delphi中沒有插入對(duì)話框部件，但可調(diào)用InsertOLEObjectDlg 函數(shù)來(lái)顯示對(duì)話框。

　　8.3.2.1 InsertOLEObjectDlg函數(shù)聲明如下：

　　function InsertOleObjectDlg(Form: TForm; HelpContext: THelpContext;

　　var PInitInfo: Pointer): Boolean;

　　其中參數(shù)Form是擁有插入對(duì)話框的窗體，一般將擁有OLE包容器部件的窗體名字傳給Form.

　　參數(shù)Helplontext為插入對(duì)象對(duì)話框定義在線幫助，如果應(yīng)用程序沒有在線幫助， HelpContext的值為零，對(duì)話框中將不出現(xiàn)幫助按鈕。

　　參數(shù)PInitInfo是一個(gè)無(wú)類型指針，該指針指向一個(gè)包含初始化OLE 部件信息的內(nèi)部數(shù)據(jù)結(jié)構(gòu)。InsertOLEObjectDlg修改這個(gè)指針以指向一個(gè)有效的數(shù)據(jù)結(jié)構(gòu)，該結(jié)構(gòu)包含了對(duì)話框列表中被選擇的OLE 對(duì)象初始化信息。當(dāng)該指針被使用后，應(yīng)調(diào)用ReleaseOLEInitInfo過(guò)程釋放初始化信息所占用的內(nèi)存。

　　當(dāng)用戶選擇OK 按鈕關(guān)閉插入對(duì)象對(duì)話框，InsertOLEObjectDlg 返回真值，并把 PInitInfo指向包含OLE對(duì)象的初始化信息的數(shù)據(jù)結(jié)構(gòu)。