第八章對(duì)象鏈接與嵌入二(存儲(chǔ)版)
【正文】 對(duì)象定義，但沒有定義任何屬性方法； ● 調(diào)用 DelphiOLE 自動(dòng)化管理器的注冊(cè)代碼，管理器負(fù)責(zé) Windows 中注冊(cè)服務(wù)器和對(duì)象。 begin try MemoEdit := CreateOleObject(39。 控制器創(chuàng)建了 OLE 自動(dòng)化對(duì)象實(shí)例后，可對(duì)其進(jìn)行操縱。 var I : Integer。 控制器在獲得服務(wù)器的內(nèi)部 OLE 對(duì)象后，可以引用其方法： procedure (Sender,TObject)。 。),OleObject。 AutoForm 還通過 TMemoApp 的 NewMemo 方法獲得了對(duì)服務(wù)器內(nèi)部 OLE 對(duì)象TMemoDoc 的引用。 end。例程 AutoForm 是控制器程序，它在其主窗體創(chuàng)建了 OLE 對(duì)象實(shí)例。控制器使用這個(gè)名字調(diào)用 CreateOLEObject 來創(chuàng)建對(duì)象。 DLLRegisterServer,DLLUnregisterServer。 無論創(chuàng)建何種自動(dòng)化服務(wù)器，必須定義對(duì)控制器的界面，包括定義和注冊(cè)O(shè)LE 對(duì)象， OLE 自動(dòng)化對(duì)象的屬性和方法。就象 Application 部件擁有 Delphi 應(yīng)用程序的一些信息一樣，Automation 對(duì)象也擁有服務(wù)器的一些信息，其中最重要的是 StartMode 屬性和OnLastRelease 事件。因?yàn)?OLE 自動(dòng)化對(duì)象來自于 DLL， 對(duì)象是控制器程序的同一窗體進(jìn)程，進(jìn)程內(nèi)服務(wù)器適合于創(chuàng)建共享的程序模塊， 而這個(gè)模塊可以被用不同語言編寫的多個(gè)程序所共享。 begin Result := MainForm,CreateMemo(39。把一個(gè)自動(dòng)化對(duì)象加入到服務(wù)器中要用到這些信息。 Description : 39。 procedure Modified : WordBool read GretModified end。 funtion CretFileName : String。 AutoForm 窗體的多個(gè)按鈕。采用上述辦法， 可以在人不參與的情況下，就能使得兩個(gè)應(yīng)用程序的相互作用。 var NewChild: TOLEObjectForm。 (39。 如果對(duì)象是鏈接的數(shù)據(jù)， Delphi 將自動(dòng)的保存在源文件中。 以下為處理 OnDragDrop 事件的代碼： procedure (Sender, Source: TObject。第八章 對(duì)象鏈接與嵌入（二） 在應(yīng)用程序中釋放 OLE 對(duì)象 當(dāng)一個(gè)對(duì)象釋放到一個(gè)窗體，該窗體發(fā)生 OnDragDrop 事件。只需將 TOLEDropNotify 的 PInitInfo屬性賦給 OLE 包容器部件的 PInitInfo 屬性。 文件中的 OLE 對(duì)象 在 OLE 應(yīng)用程序中，要保存對(duì) OLE 對(duì)象的修改，需將對(duì)象數(shù)據(jù)保存在文件中。)； OLE 包容器部件的 loadFromFile 方法可把文件中的對(duì)象裝入 OLE 包容器部件。 用戶單擊“文件 |打開”菜單項(xiàng)實(shí)現(xiàn)對(duì)象文件裝入： procedure (Sender: TObject)?？雌饋砗芟髴?yīng)用程序在調(diào)用函數(shù)或過程一樣。運(yùn)行 AutoForm 前，在Delphi 集成開發(fā)環(huán)境中單擊菜單 (run | parameters),Delphi 彈出運(yùn)行參數(shù)對(duì)話框，如圖 ，輸入?yún)?shù)后運(yùn)行狀態(tài)如圖 。 在 EditFrom 單元中定義了 TMemoDoc 類： type TMemoDoc = Class(TAutoObject) private FEditForm : TEditForm。 procedure FileName : String read GretFileName write SetFileName。{FIFF4880 200D 11CF BDCF D020AFOE5B81}39。 注冊(cè)的信息用以唯一辨識(shí)服務(wù)器對(duì)象。 function TMemoApp,NewMemo : Variant。 進(jìn)程內(nèi)服務(wù)器是輸出 OLE 自 動(dòng)化對(duì)象的動(dòng)態(tài)鏈接庫。 表 實(shí)例的取值及含義 ━━━━━━━━━━━━
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1