第八章 對(duì)象鏈接與嵌入（二）-全文預(yù)覽
【正文】 OK 鍵完成該過程 自動(dòng)化對(duì)象專家將產(chǎn)生以下代碼： ● 從 TAutoObject 派生下來的自動(dòng)化對(duì)象定義，但沒有定義任何屬性方法； ● 調(diào)用 DelphiOLE 自動(dòng)化管理器的注冊(cè)代碼，管理器負(fù)責(zé) Windows 中注冊(cè)服務(wù)器和對(duì)象。 這是服務(wù)器內(nèi)部標(biāo)識(shí) OLE 對(duì)象的名字，必須是個(gè)有效的面象對(duì)象 Pascal標(biāo)識(shí)符，習(xí)慣上以 T字母開頭； OLE 類命名 該名用以外部控制器創(chuàng)建對(duì)象。與 Object Pascal 的其它項(xiàng)目不同，這些代碼 對(duì)大小寫敏感。 創(chuàng)建進(jìn)程內(nèi)服務(wù)器，即動(dòng)態(tài)鏈接庫： ； uses 條款中加入 OLEAuto 單元； DLL 中輸出四個(gè)標(biāo)準(zhǔn)入口，即加入以下代碼。 對(duì)已存在的自動(dòng)化服務(wù)器界進(jìn)行修改時(shí)，要確保向上兼容 ，不要?jiǎng)h去已有的屬性、方法，這樣會(huì)導(dǎo)致已存在的自動(dòng)化控制器發(fā)生錯(cuò)誤，修改服務(wù)器只能增加屬性和 方法。OnLastRelease 事件可得到一個(gè)叫 ShutDown 的布爾型變量。表 列出StartMode 四種取值。表 列出三種實(shí)例類型。 進(jìn)程外服務(wù)器是能輸出 OLE 自動(dòng)化對(duì)象的應(yīng)用程序。 在 Windows環(huán)境下有兩種 OLE自動(dòng)化服務(wù)器，進(jìn)程內(nèi)服務(wù)器和進(jìn)程外服務(wù)器， Delphi 可創(chuàng)建這兩種服務(wù)器。),OleObject。 例程 MemoAuto單元的 NewMemo函數(shù)就是通過引用 OLEObject 屬性而提供引用 TMemoDoc 對(duì)象的接口。 注冊(cè)后的 OLE 自動(dòng)化對(duì)象是引用記數(shù)的，因?yàn)閷?duì)象可能被多個(gè)控制器控制。 自動(dòng)化對(duì)象要在 initialization 部分中對(duì)自動(dòng)化對(duì)象進(jìn)行注冊(cè)。 Instancing : acSingle Instance )。 ProgID : MemoEdit,Application ClassIn : 39。外部 OLE 自動(dòng)化控制器對(duì)它不能直接引用。 procedure Close。 procedure SetFileName(Const Value : String)。但 automated 部分的代碼有很多限制： ● 屬性方法可以定義，但不能定義域； ● 所有屬性、參數(shù)、函數(shù)類型必須是以下類型之一： SmallInt,Integer,Single,Double,Currency,TDateTime,String,WordBool, Varint ● 屬性聲明 只能包括 訪問定義 符 (read and Write) ，其它定 義符如index,stored, default,odefault 均不能使用； ● 訪問定義符必須列出相應(yīng)的方法標(biāo)識(shí)符，不能使用域標(biāo)識(shí)符； ● 支持?jǐn)?shù)組類型； ● 不允許屬性重載； ● 方法是可以是虛擬的，但不能是動(dòng)態(tài)的，允許方法重載。 TAutoObject 對(duì)象 TAutoObject 是 Delphi 自動(dòng)化服務(wù)器中所有對(duì)象的基類，任何自動(dòng)化對(duì)象都是從 TAutoObject 類派生出來的。 現(xiàn)在介紹兩個(gè)應(yīng)用程序，其中 是多文檔界面的文本編輯器，作為 OLE 自動(dòng)化服務(wù)器 , 是自動(dòng)化控制器。 完全支持 的應(yīng)用程序自動(dòng)化，可以用 Delphi 編寫自動(dòng)化控制器和服務(wù) 器。這些命令可帶參數(shù)。 () end end。 begin if then () end。) 本章例程使用了保存對(duì)話框和打開對(duì)話框來實(shí)現(xiàn)運(yùn)行狀態(tài)的對(duì)象保存和對(duì)象裝入。C: \39。 如果對(duì)象是嵌入的，數(shù)據(jù)貯存在應(yīng)用程序程序的窗體。 Delphi 自動(dòng)釋放這塊內(nèi)存。 var NewChild: TOLEObjectForm。要實(shí)現(xiàn)釋放功能。 如果 Source 是一個(gè) OLE 對(duì)象， 那么它是 TOLEDropNotify 對(duì)象的派生類型。該對(duì)象定義為TDragDropEvent 方法中的 Source 參數(shù)，而 TDragDropEvent 方法是用來處理OnDragDrop 事件”。 PInitInfo 指向 OLE對(duì)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1