第八章對象鏈接與嵌入二-文庫吧資料
2024-09-13 15:38本頁面
【正文】 為 OLE 自動化對象來自于 DLL， 對象是控制器程序的同一窗體進(jìn)程，進(jìn)程內(nèi)服務(wù)器適合于創(chuàng)建共享的程序模塊， 而這個(gè)模塊可以被用不同語言編寫的多個(gè)程序所共享。 在 Windows環(huán)境下有兩種 OLE自動化服務(wù)器，進(jìn)程內(nèi)服務(wù)器和進(jìn)程外服務(wù)器， Delphi 可創(chuàng)建這兩種服務(wù)器。 創(chuàng)建 OLE 自動化服務(wù)器 OLE 自動化服務(wù)器是應(yīng)用程序或動態(tài)鏈接庫 (DLL)，它可向 OLE 自動化控制器輸出 OLE 對象。),OleObject。 begin Result := MainForm,CreateMemo(39。 例程 MemoAuto單元的 NewMemo函數(shù)就是通過引用 OLEObject 屬性而提供引用 TMemoDoc 對象的接口。 通常把 OLE 對象作為變體類型 (variants)進(jìn)行輸出，任何 OLE 對象的方法和屬性必須返回一個(gè)包含 OLE 對象的變體類型， TAutoObject 提供了一個(gè)變體類型的 OLEObject 屬性。 注冊后的 OLE 自動化對象是引用記數(shù)的，因?yàn)閷ο罂赡鼙欢鄠€(gè)控制器控制。把一個(gè)自動化對象加入到服務(wù)器中要用到這些信息。 自動化對象要在 initialization 部分中對自動化對象進(jìn)行注冊。 inibialization RegisterMemoApp。 Instancing : acSingle Instance )。 Description : 39。 ProgID : MemoEdit,Application ClassIn : 39。例程 MemoAuto 單元定義了 TMemoApp 對象并進(jìn)行注冊。外部 OLE 自動化控制器對它不能直接引用。 procedure Modified : WordBool read GretModified end。 procedure Close。 procedure Ineart(Const Text : String)。 procedure SetFileName(Const Value : String)。 funtion CretFileName : String。但 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)的，允許方法重載。它的 automated 部分象普通類的public部分， OLE控制器可引用在這部分聲明的屬性和方法。 TAutoObject 對象 TAutoObject 是 Delphi 自動化服務(wù)器中所有對象的基類，任何自動化對象都是從 TAutoObject 類派生出來的。 AutoForm 窗體的多個(gè)按鈕。 現(xiàn)在介紹兩個(gè)應(yīng)用程序，其中 是多文檔界面的文本編輯器，作為 OLE 自動化服務(wù)器 , 是自動化控制器。用戶可以創(chuàng)建宏或者其它命令， 使得某個(gè)應(yīng)用程序能透過其它應(yīng)用程序進(jìn)行工作。 完全支持 的應(yīng)用程序自動化，可以用 Delphi 編寫自動化控制器和服務(wù) 器。采用上述辦法， 可以在人不參與的情況下，就能使得兩個(gè)應(yīng)用程序的相互作用。這些命令可帶參數(shù)。 OLE 提供了一種方法來集成應(yīng)用程序，這就是應(yīng)用程序之間的命令操作。 () end end。 var NewChild: TOLEObjectForm。 begin if then () end。其主要屬性如表 ： 表 保存對話框的屬性及取值： ━━━━━━━━━━━━━━━━━━━━━━━━
公司管理相關(guān)推薦
鄂ICP備17016276號-1