第八章對象鏈接與嵌入二(編輯修改稿)
2024-10-11 15:38 本頁面
【文章內(nèi)容簡介】 直接引用。如果要使外部控制器對自動化對象進行操作，則要在聲明自動化對象的單元中調(diào)用 Automation. RegisterClass 進行注冊。例程 MemoAuto 單元定義了 TMemoApp 對象并進行注冊。 unit MemoAuto ? type TMemoApp = Class(TAutoObject) implementation ? procedure RegisterMemoApp Const AutoClassInfo : TAutoClassInfo = ( AutoClass : TMemoApp。 ProgID : MemoEdit,Application ClassIn : 39。{FIFF4880 200D 11CF BDCF D020AFOE5B81}39。 Description : 39。Memo Editor Application39。 Instancing : acSingle Instance )。 begin Automation,RegisterClass(AutoClassInfo) end。 inibialization RegisterMemoApp。 end。 自動化對象要在 initialization 部分中對自動化對象進行注冊。 注冊的信息用以唯一辨識服務(wù)器對象。把一個自動化對象加入到服務(wù)器中要用到這些信息。程序一旦注冊了自動化對象，全局自動化對象將用 OLE自動化API 進行自動管理。 注冊后的 OLE 自動化對象是引用記數(shù)的，因為對象可能被多個控制器控制。當使用完一個 OLE 對象，調(diào)用 Release 方法， Release 可減少引用數(shù)目，當引用數(shù)目為零時，調(diào)用 Free 方法釋放對象。 通常把 OLE 對象作為變體類型 (variants)進行輸出，任何 OLE 對象的方法和屬性必須返回一個包含 OLE 對象的變體類型， TAutoObject 提供了一個變體類型的 OLEObject 屬性?？刂破鞑荒苤苯拥玫椒?wù)器中的類或指針，而是引用 OLE對象的 OLEObject 屬性。 例程 MemoAuto單元的 NewMemo函數(shù)就是通過引用 OLEObject 屬性而提供引用 TMemoDoc 對象的接口。 function TMemoApp,NewMemo : Variant。 begin Result := MainForm,CreateMemo(39。 39。),OleObject。 end。 創(chuàng)建 OLE 自動化服務(wù)器 OLE 自動化服務(wù)器是應(yīng)用程序或動態(tài)鏈接庫 (DLL)，它可向 OLE 自動化控制器輸出 OLE 對象。 MemoEditdpr 就是 OLE 自動化服務(wù)器， 在 MemoAuto 單元中注冊了 自動化類，所有 OLE 控制器均可對 進行引用。 在 Windows環(huán)境下有兩種 OLE自動化服務(wù)器，進程內(nèi)服務(wù)器和進程外服務(wù)器， Delphi 可創(chuàng)建這兩種服務(wù)器。 進程內(nèi)服務(wù)器是輸出 OLE 自 動化對象的動態(tài)鏈接庫。因為 OLE 自動化對象來自于 DLL， 對象是控制器程序的同一窗體進程，進程內(nèi)服務(wù)器適合于創(chuàng)建共享的程序模塊， 而這個模塊可以被用不同語言編寫的多個程序所共享。 進程內(nèi)服務(wù)器被調(diào)用時在同一地址中運行，這樣就不需要控制器進行調(diào)度，以避免處理大量的消息句柄。 進程外服務(wù)器是能輸出 OLE 自動化對象的應(yīng)用程序。 有些 OLE 自動化服務(wù)器只能創(chuàng)建和輸出一個 OLE 對象，有些服務(wù)器則可以處理多個 OLE 對象，另外一些服務(wù)器不能輸出 OLE 對象，只能在程序內(nèi)部使用 OLE對象。 服務(wù)器與其能輸出的對象數(shù)目的關(guān) 系稱為實例 (instancing)。 在創(chuàng)建 OLE 自動化對象時必須定義實例， 這樣， 在創(chuàng)建一個 OLE 自動化對象時， Windows 就能決定是否創(chuàng)建一個新的服務(wù)器實例。表 列出三種實例類型。 表 實例的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ instancing
公司管理相關(guān)推薦
鄂ICP備17016276號-1