第八章 對象鏈接與嵌入（二）(文件)
【正文】 untion CretFileName : String。 procedure Ineart(Const Text : String)。 procedure Modified : WordBool read GretModified end。例程 MemoAuto 單元定義了 TMemoApp 對象并進行注冊。 Description : 39。 inibialization RegisterMemoApp。把一個自動化對象加入到服務(wù)器中要用到這些信息。 通常把 OLE 對象作為變體類型 (variants)進行輸出，任何 OLE 對象的方法和屬性必須返回一個包含 OLE 對象的變體類型， TAutoObject 提供了一個變體類型的 OLEObject 屬性。 begin Result := MainForm,CreateMemo(39。 創(chuàng)建 OLE 自動化服務(wù)器 OLE 自動化服務(wù)器是應(yīng)用程序或動態(tài)鏈接庫 (DLL)，它可向 OLE 自動化控制器輸出 OLE 對象。因為 OLE 自動化對象來自于 DLL， 對象是控制器程序的同一窗體進程，進程內(nèi)服務(wù)器適合于創(chuàng)建共享的程序模塊， 而這個模塊可以被用不同語言編寫的多個程序所共享。 服務(wù)器與其能輸出的對象數(shù)目的關(guān) 系稱為實例 (instancing)。就象 Application 部件擁有 Delphi 應(yīng)用程序的一些信息一樣，Automation 對象也擁有服務(wù)器的一些信息，其中最重要的是 StartMode 屬性和OnLastRelease 事件。此時所有 OLE 控制器釋放了由服務(wù)器創(chuàng)建的對象。 無論創(chuàng)建何種自動化服務(wù)器，必須定義對控制器的界面，包括定義和注冊O(shè)LE 對象， OLE 自動化對象的屬性和方法。即創(chuàng)建能輸出 OLE 對象的應(yīng)用程序或動態(tài)鏈接庫。 DLLRegisterServer,DLLUnregisterServer。 創(chuàng)建服務(wù)器之后，應(yīng)該向服務(wù)器加入 OLE 自動化對象，這個過程大部分是自動完成的，但必須向 Delphi 的自動化對象專家提供必要的信息?？刂破魇褂眠@個名字調(diào)用 CreateOLEObject 來創(chuàng)建對象。每個 ID 號與一個 OLE 類名相對應(yīng)，如果其中之一被改變，應(yīng)用程序在使用時會發(fā)生錯誤。例程 AutoForm 是控制器程序，它在其主窗體創(chuàng)建了 OLE 對象實例。)。 end。 AutoForm 的很多過程引用了 OLE 自動化對象的方法： procedure TMainForm,TileButtonClick(Sender : Tobject)。 AutoForm 還通過 TMemoApp 的 NewMemo 方法獲得了對服務(wù)器內(nèi)部 OLE 對象TMemoDoc 的引用。 end。),OleObject。 begin for I := 1 to 3 do if not var IsEmpty(Memo[I]) then Memo[I],Insert{39。 。1310)。 控制器在獲得服務(wù)器的內(nèi)部 OLE 對象后，可以引用其方法： procedure (Sender,TObject)。 begin Result := MainForm,CreateMemo(39。 var I : Integer。 end。 控制器創(chuàng)建了 OLE 自動化對象實例后，可對其進行操縱。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。 自動化另一程序 每個服務(wù)器在系統(tǒng)注冊中有一個叫 ProgID 的關(guān)鍵定，主要用以控制器辨識服務(wù)器。 (instancing)，進程內(nèi)服務(wù)器常定義為 Multiple,進程外服務(wù)器常定義為 Single；
公司管理相關(guān)推薦
鄂ICP備17016276號-1