第八章對象鏈接與嵌入二(參考版)
2024-09-09 15:38本頁面
【正文】 。1310)。 begin for I := 1 to 3 do if not var IsEmpty(Memo[I]) then Memo[I],Insert{39。 控制器在獲得服務(wù)器的內(nèi)部 OLE 對象后，可以引用其方法： procedure (Sender,TObject)。),OleObject。 begin Result := MainForm,CreateMemo(39。 end。 var I : Integer。 AutoForm 還通過 TMemoApp 的 NewMemo 方法獲得了對服務(wù)器內(nèi)部 OLE 對象TMemoDoc 的引用。 end。 AutoForm 的很多過程引用了 OLE 自動化對象的方法： procedure TMainForm,TileButtonClick(Sender : Tobject)。 控制器創(chuàng)建了 OLE 自動化對象實例后，可對其進(jìn)行操縱。 end。An instance of the MemoEdit ApplicationOLE Automation Class could not be created,Make sure that the MemoEdit application has been registered using a MemoEdit|regservermand line39。)。 begin try MemoEdit := CreateOleObject(39。例程 AutoForm 是控制器程序，它在其主窗體創(chuàng)建了 OLE 對象實例。 自動化另一程序 每個服務(wù)器在系統(tǒng)注冊中有一個叫 ProgID 的關(guān)鍵定，主要用以控制器辨識服務(wù)器。每個 ID 號與一個 OLE 類名相對應(yīng)，如果其中之一被改變，應(yīng)用程序在使用時會發(fā)生錯誤。 (instancing)，進(jìn)程內(nèi)服務(wù)器常定義為 Multiple,進(jìn)程外服務(wù)器常定義為 Single； OK 鍵完成該過程 自動化對象專家將產(chǎn)生以下代碼： ● 從 TAutoObject 派生下來的自動化對象定義，但沒有定義任何屬性方法； ● 調(diào)用 DelphiOLE 自動化管理器的注冊代碼，管理器負(fù)責(zé) Windows 中注冊服務(wù)器和對象?？刂破魇褂眠@個名字調(diào)用 CreateOLEObject 來創(chuàng)建對象。 這是服務(wù)器內(nèi)部標(biāo)識 OLE 對象的名字，必須是個有效的面象對象 Pascal標(biāo)識符，習(xí)慣上以 T字母開頭； OLE 類命名 該名用以外部控制器創(chuàng)建對象。 創(chuàng)建服務(wù)器之后，應(yīng)該向服務(wù)器加入 OLE 自動化對象，這個過程大部分是自動完成的，但必須向 Delphi 的自動化對象專家提供必要的信息。與 Object Pascal 的其它項目不同，這些代碼 對大小寫敏感。 DLLRegisterServer,DLLUnregisterServer。 創(chuàng)建進(jìn)程內(nèi)服務(wù)器，即動態(tài)鏈接庫： ； uses 條款中加入 OLEAuto 單元； DLL 中輸出四個標(biāo)準(zhǔn)入口，即加入以下代碼。即創(chuàng)建能輸出 OLE 對象的應(yīng)用程序或動態(tài)鏈接庫。 對已存在的自動化服務(wù)器界進(jìn)行修改時，要確保向上兼容 ，不要刪去已有的屬性、方法，這樣會導(dǎo)致已存在的自動化控制器發(fā)生錯誤，修改服務(wù)器只能增加屬性和 方法。 無論創(chuàng)建何種自動化服務(wù)器，必須定義對控制器的界面，包括定義和注冊O(shè)LE 對象， OLE 自動化對象的屬性和方法。OnLastRelease 事件可得到一個叫 ShutDown 的布爾型變量。此時所有 OLE 控制器釋放了由服務(wù)器創(chuàng)建的對象。表 列出StartMode 四種取值。就象 Application 部件擁有 Delphi 應(yīng)用程序的一些信息一樣，Automation 對象也擁有服務(wù)器的一些信息，其中最重要的是 StartMode 屬性和OnLastRelease 事件。表 列出三種實例類型。 服務(wù)器與其能輸出的對象數(shù)目的關(guān) 系稱為實例 (instancing)。 進(jìn)程外服務(wù)器是能輸出 OLE 自動化對象的應(yīng)用程序。因
公司管理相關(guān)推薦
鄂ICP備17016276號-1