第八章對(duì)象鏈接與嵌入二(參考版)
2024-09-09 15:38本頁(yè)面
【正文】 。1310)。 begin for I := 1 to 3 do if not var IsEmpty(Memo[I]) then Memo[I],Insert{39。 控制器在獲得服務(wù)器的內(nèi)部 OLE 對(duì)象后，可以引用其方法： procedure (Sender,TObject)。),OleObject。 begin Result := MainForm,CreateMemo(39。 end。 var I : Integer。 AutoForm 還通過(guò) TMemoApp 的 NewMemo 方法獲得了對(duì)服務(wù)器內(nèi)部 OLE 對(duì)象TMemoDoc 的引用。 end。 AutoForm 的很多過(guò)程引用了 OLE 自動(dòng)化對(duì)象的方法： procedure TMainForm,TileButtonClick(Sender : Tobject)。 控制器創(chuàng)建了 OLE 自動(dòng)化對(duì)象實(shí)例后，可對(duì)其進(jìn)行操縱。 end。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。例程 AutoForm 是控制器程序，它在其主窗體創(chuàng)建了 OLE 對(duì)象實(shí)例。 自動(dòng)化另一程序 每個(gè)服務(wù)器在系統(tǒng)注冊(cè)中有一個(gè)叫 ProgID 的關(guān)鍵定，主要用以控制器辨識(shí)服務(wù)器。每個(gè) ID 號(hào)與一個(gè) OLE 類名相對(duì)應(yīng)，如果其中之一被改變，應(yīng)用程序在使用時(shí)會(huì)發(fā)生錯(cuò)誤。 (instancing)，進(jìn)程內(nèi)服務(wù)器常定義為 Multiple,進(jìn)程外服務(wù)器常定義為 Single； OK 鍵完成該過(guò)程 自動(dòng)化對(duì)象專家將產(chǎn)生以下代碼： ● 從 TAutoObject 派生下來(lái)的自動(dòng)化對(duì)象定義，但沒(méi)有定義任何屬性方法； ● 調(diào)用 DelphiOLE 自動(dòng)化管理器的注冊(cè)代碼，管理器負(fù)責(zé) Windows 中注冊(cè)服務(wù)器和對(duì)象。控制器使用這個(gè)名字調(diào)用 CreateOLEObject 來(lái)創(chuàng)建對(duì)象。 這是服務(wù)器內(nèi)部標(biāo)識(shí) OLE 對(duì)象的名字，必須是個(gè)有效的面象對(duì)象 Pascal標(biāo)識(shí)符，習(xí)慣上以 T字母開(kāi)頭； OLE 類命名 該名用以外部控制器創(chuàng)建對(duì)象。 創(chuàng)建服務(wù)器之后，應(yīng)該向服務(wù)器加入 OLE 自動(dòng)化對(duì)象，這個(gè)過(guò)程大部分是自動(dòng)完成的，但必須向 Delphi 的自動(dòng)化對(duì)象專家提供必要的信息。與 Object Pascal 的其它項(xiàng)目不同，這些代碼 對(duì)大小寫(xiě)敏感。 DLLRegisterServer,DLLUnregisterServer。 創(chuàng)建進(jìn)程內(nèi)服務(wù)器，即動(dòng)態(tài)鏈接庫(kù)： ； uses 條款中加入 OLEAuto 單元； DLL 中輸出四個(gè)標(biāo)準(zhǔn)入口，即加入以下代碼。即創(chuàng)建能輸出 OLE 對(duì)象的應(yīng)用程序或動(dòng)態(tài)鏈接庫(kù)。 對(duì)已存在的自動(dòng)化服務(wù)器界進(jìn)行修改時(shí)，要確保向上兼容 ，不要?jiǎng)h去已有的屬性、方法，這樣會(huì)導(dǎo)致已存在的自動(dòng)化控制器發(fā)生錯(cuò)誤，修改服務(wù)器只能增加屬性和 方法。 無(wú)論創(chuàng)建何種自動(dòng)化服務(wù)器，必須定義對(duì)控制器的界面，包括定義和注冊(cè)O(shè)LE 對(duì)象， OLE 自動(dòng)化對(duì)象的屬性和方法。OnLastRelease 事件可得到一個(gè)叫 ShutDown 的布爾型變量。此時(shí)所有 OLE 控制器釋放了由服務(wù)器創(chuàng)建的對(duì)象。表 列出StartMode 四種取值。就象 Application 部件擁有 Delphi 應(yīng)用程序的一些信息一樣，Automation 對(duì)象也擁有服務(wù)器的一些信息，其中最重要的是 StartMode 屬性和OnLastRelease 事件。表 列出三種實(shí)例類型。 服務(wù)器與其能輸出的對(duì)象數(shù)目的關(guān) 系稱為實(shí)例 (instancing)。 進(jìn)程外服務(wù)器是能輸出 OLE 自動(dòng)化對(duì)象的應(yīng)用程序。因
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1