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