第八章 對象鏈接與嵌入（二）-文庫吧
2025-08-02 15:38 本頁面
【正文】 s 應(yīng)用程序操縱另一個程序的一種機(jī)制。 OLE 提供了一種方法來集成應(yīng)用程序，這就是應(yīng)用程序之間的命令操作。 利用 OLE ，程序員可以定義一 組命令，使它們進(jìn)入到其它程序中。這些命令可帶參數(shù)?？雌饋砗芟髴?yīng)用程序在調(diào)用函數(shù)或過程一樣。采用上述辦法， 可以在人不參與的情況下，就能使得兩個應(yīng)用程序的相互作用。 被自動化的程序稱作自動化對象或自動化服務(wù)器， 操作或自動化其他程序的應(yīng)用程序稱為自動化控制器或自動化客戶器。 完全支持 的應(yīng)用程序自動化，可以用 Delphi 編寫自動化控制器和服務(wù) 器。在應(yīng)用程序之間可編程的潛能是巨大的。用戶可以創(chuàng)建宏或者其它命令， 使得某個應(yīng)用程序能透過其它應(yīng)用程序進(jìn)行工作。已經(jīng)存在的 應(yīng)用程序的宏語言很容易被擴(kuò)展，它可以包括一組別的應(yīng)用程序能夠執(zhí)行的命令和函數(shù)調(diào)用。 現(xiàn)在介紹兩個應(yīng)用程序，其中 是多文檔界面的文本編輯器，作為 OLE 自動化服務(wù)器 , 是自動化控制器。運行 AutoForm 前，在Delphi 集成開發(fā)環(huán)境中單擊菜單 (run | parameters),Delphi 彈出運行參數(shù)對話框，如圖 ，輸入?yún)?shù)后運行狀態(tài)如圖 。 AutoForm 窗體的多個按鈕?？蓪emoEdit 進(jìn)行操作；如按 Creat 按鈕， MemoEdit 產(chǎn)生三個子 窗體，如圖 ，按 AddText，子窗體將出現(xiàn) This text was added through OLE Automation的字符串“ MemoEdit 包括三個單元： Mainfrom MDI 主窗體 EditFrom MDE 子窗體和自動化類 MemoAuto 應(yīng)用程序自動化對象 下面結(jié)合例程講述 OLE 自動化的基本概念及開發(fā)。 TAutoObject 對象 TAutoObject 是 Delphi 自動化服務(wù)器中所有對象的基類，任何自動化對象都是從 TAutoObject 類派生出來的。 OLE 對象的定義與其它類的定義類似。它的 automated 部分象普通類的public部分， OLE控制器可引用在這部分聲明的屬性和方法。編譯器把 automated部分創(chuàng)建成 OLE 自動化對象的入口。但 automated 部分的代碼有很多限制： ● 屬性方法可以定義，但不能定義域； ● 所有屬性、參數(shù)、函數(shù)類型必須是以下類型之一： SmallInt,Integer,Single,Double,Currency,TDateTime,String,WordBool, Varint ● 屬性聲明 只能包括 訪問定義 符 (read and Write) ，其它定 義符如index,stored, default,odefault 均不能使用； ● 訪問定義符必須列出相應(yīng)的方法標(biāo)識符，不能使用域標(biāo)識符； ● 支持?jǐn)?shù)組類型； ● 不允許屬性重載； ● 方法是可以是虛擬的，但不能是動態(tài)的，允許方法重載。 在 EditFrom 單元中定義了 TMemoDoc 類： type TMemoDoc = Class(TAutoObject) private FEditForm : TEditForm。 funtion CretFileName : String。 funtion CretModiFied : WordBool。 procedure SetFileName(Const Value : String)。 automated procedure Clear。 procedure Ineart(Const Text : String)。 procedure Save。 procedure Close。 procedure FileName : String read GretFileName write SetFileName。 procedure Modified : WordBool read GretModified end。 TMemeDoc 類是 MemoEdit 程序的內(nèi)部自動化類，因此不需要注冊。外部 OLE 自動化控制器對它不能
公司管理相關(guān)推薦
鄂ICP備17016276號-1