第八章對象鏈接與嵌入二-免費閱讀
【正文】 This text was added through OLE Automation39。 其中 NewMemo 在 MemoAuto 單元中定義如下： function : Variant。 begin MemoEdit,TileWindow。 except MessageDlg( 39。 在創(chuàng)建 了服務器并把 OLE 自動化對象加入服務器之后，控制器程序就可以對服務器進行操縱。 把 OLE 自動化對象加入服務器： Delphi 集成開發(fā)環(huán)境 中選擇 File| New 菜單項， 并在對象集中選擇Automation Object,Delphi 打開自動化對象專家。這主要取決于是創(chuàng)建進程內(nèi)服務器還是進程外服務器。缺省情況下，服務器關(guān)閉實 例，但 OnLastRelease 事件可根據(jù)實際情況是否關(guān)閉。 在創(chuàng)建 OLE 自動化對象時必須定義實例， 這樣， 在創(chuàng)建一個 OLE 自動化對象時， Windows 就能決定是否創(chuàng)建一個新的服務器實例。 MemoEditdpr 就是 OLE 自動化服務器， 在 MemoAuto 單元中注冊了 自動化類，所有 OLE 控制器均可對 進行引用?？刂破鞑荒苤苯拥玫椒掌髦械念惢蛑羔?，而是引用 OLE對象的 OLEObject 屬性。 end。 unit MemoAuto ? type TMemoApp = Class(TAutoObject) implementation ? procedure RegisterMemoApp Const AutoClassInfo : TAutoClassInfo = ( AutoClass : TMemoApp。 procedure Save。編譯器把 automated部分創(chuàng)建成 OLE 自動化對象的入口。已經(jīng)存在的 應用程序的宏語言很容易被擴展，它可以包括一組別的應用程序能夠執(zhí)行的命令和函數(shù)調(diào)用。 利用 OLE ，程序員可以定義一 組命令，使它們進入到其它程序中。代碼如下： procedure (Sender: TObject)。 OLE 包容器部件的 SaveToFile 方法可保存對象： (39。 注意不要用 ReleaseOLEInitInfo 釋放分配給 PInitInfo 屬性的內(nèi)存。 PInitInfo 指向 OLE對象的初始化信息結(jié)構(gòu)。 如果 Source 是一個 OLE 對象， 那么它是 TOLEDropNotify 對象的派生類型。 var NewChild: TOLEObjectForm。 如果對象是嵌入的，數(shù)據(jù)貯存在應用程序程序的窗體。) 本章例程使用了保存對話框和打開對話框來實現(xiàn)運行狀態(tài)的對象保存和對象裝入。 () end end。 完全支持 的應用程序自動化，可以用 Delphi 編寫自動化控制器和服務 器。 TAutoObject 對象 TAutoObject 是 Delphi 自動化服務器中所有對象的基類，任何自動化對象都是從 TAutoObject 類派生出來的。 procedure SetFileName(Const Value : String)。外部 OLE 自動化控制器對它不能直接引用。 Instancing : acSingle Instance )。 注冊后的 OLE 自動化對象是引用記數(shù)的，因為對象可能被多個控制器控制。),OleObject。 進程外服務器是能輸出 OLE 自動化對象的應用程序。表 列出StartMode 四種取值。 對已存在的自動化服務器界進行修改時，要確保向上兼容 ，不要刪去已有的屬性、方法，這樣會導致已存在的自動化控制器發(fā)生錯誤，修改服務器只能增加屬性和 方法。與 Object Pascal 的其它項目不同，這些代碼 對大小寫敏感。 (instancing)，進程內(nèi)服務器常定義為 Multiple,進程外服務器常定義為 Single； OK 鍵完成該過程 自動化對象專家將產(chǎn)生以下代碼： ● 從 TAutoObject 派生下來的自動化
公司管理相關(guān)推薦
鄂ICP備17016276號-1