第八章對(duì)象鏈接與嵌入二-在線瀏覽
2024-11-08 15:38本頁面
【正文】 可編程的潛能是巨大的。已經(jīng)存在的 應(yīng)用程序的宏語言很容易被擴(kuò)展，它可以包括一組別的應(yīng)用程序能夠執(zhí)行的命令和函數(shù)調(diào)用。運(yùn)行 AutoForm 前，在Delphi 集成開發(fā)環(huán)境中單擊菜單 (run | parameters),Delphi 彈出運(yùn)行參數(shù)對(duì)話框，如圖 ，輸入?yún)?shù)后運(yùn)行狀態(tài)如圖 。可對(duì)MemoEdit 進(jìn)行操作；如按 Creat 按鈕， MemoEdit 產(chǎn)生三個(gè)子 窗體，如圖 ，按 AddText，子窗體將出現(xiàn) This text was added through OLE Automation的字符串“ MemoEdit 包括三個(gè)單元： Mainfrom MDI 主窗體 EditFrom MDE 子窗體和自動(dòng)化類 MemoAuto 應(yīng)用程序自動(dòng)化對(duì)象 下面結(jié)合例程講述 OLE 自動(dòng)化的基本概念及開發(fā)。 OLE 對(duì)象的定義與其它類的定義類似。編譯器把 automated部分創(chuàng)建成 OLE 自動(dòng)化對(duì)象的入口。 在 EditFrom 單元中定義了 TMemoDoc 類： type TMemoDoc = Class(TAutoObject) private FEditForm : TEditForm。 funtion CretModiFied : WordBool。 automated procedure Clear。 procedure Save。 procedure FileName : String read GretFileName write SetFileName。 TMemeDoc 類是 MemoEdit 程序的內(nèi)部自動(dòng)化類，因此不需要注冊(cè)。如果要使外部控制器對(duì)自動(dòng)化對(duì)象進(jìn)行操作，則要在聲明自動(dòng)化對(duì)象的單元中調(diào)用 Automation. RegisterClass 進(jìn)行注冊(cè)。 unit MemoAuto ? type TMemoApp = Class(TAutoObject) implementation ? procedure RegisterMemoApp Const AutoClassInfo : TAutoClassInfo = ( AutoClass : TMemoApp。{FIFF4880 200D 11CF BDCF D020AFOE5B81}39。Memo Editor Application39。 begin Automation,RegisterClass(AutoClassInfo) end。 end。 注冊(cè)的信息用以唯一辨識(shí)服務(wù)器對(duì)象。程序一旦注冊(cè)了自動(dòng)化對(duì)象，全局自動(dòng)化對(duì)象將用 OLE自動(dòng)化API 進(jìn)行自動(dòng)管理。當(dāng)使用完一個(gè) OLE 對(duì)象，調(diào)用 Release 方法， Release 可減少引用數(shù)目，當(dāng)引用數(shù)目為零時(shí)，調(diào)用 Free 方法釋放對(duì)象?？刂破鞑荒苤苯拥玫椒?wù)器中的類或指針，而是引用 OLE對(duì)象的 OLEObject 屬性。 function TMemoApp,NewMemo : Variant。 39。 end。 MemoEditdpr 就是 OLE 自動(dòng)化服務(wù)器， 在 MemoAuto 單元中注冊(cè)了 自動(dòng)化類，所有 OLE 控制器均可對(duì) 進(jìn)行引用。 進(jìn)程內(nèi)服務(wù)器是輸出 OLE 自 動(dòng)化對(duì)象的動(dòng)態(tài)鏈接庫。 進(jìn)程內(nèi)服務(wù)器被調(diào)用時(shí)在同一地址中運(yùn)行，這樣就不需要控制器進(jìn)行調(diào)度，以避免處理大量的消息句柄。 有些 OLE 自動(dòng)化服務(wù)器只能創(chuàng)建和輸出一個(gè) OLE 對(duì)象，有些服務(wù)器則可以處理多個(gè) OLE 對(duì)象，另外一些服務(wù)器不能輸出 OLE 對(duì)象，只能在程序內(nèi)部使用 OLE對(duì)象。 在創(chuàng)建 OLE 自動(dòng)化對(duì)象時(shí)必須定義實(shí)例， 這樣， 在創(chuàng)建一個(gè) OLE 自動(dòng)化對(duì)象時(shí)， Windows 就能決定是否創(chuàng)建一個(gè)新的服務(wù)器實(shí)例。 表 實(shí)例的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ instancing 類型 含義 ─────────────────────────────── ─────── internal OLE 對(duì)象是應(yīng)用
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1