第八章 對象鏈接與嵌入（二）-預覽頁
【正文】 象的初始化信息結構。 X, Y: Integer)。 注意不要用 ReleaseOLEInitInfo 釋放分配給 PInitInfo 屬性的內存。當對象被修改時，文件中的數(shù)據(jù)自動修改。 OLE 包容器部件的 SaveToFile 方法可保存對象： (39。C:\39。代碼如下： procedure (Sender: TObject)。 begin f then begin NewChild := CreateChild。 利用 OLE ，程序員可以定義一 組命令，使它們進入到其它程序中。 被自動化的程序稱作自動化對象或自動化服務器， 操作或自動化其他程序的應用程序稱為自動化控制器或自動化客戶器。已經(jīng)存在的 應用程序的宏語言很容易被擴展，它可以包括一組別的應用程序能夠執(zhí)行的命令和函數(shù)調用?？蓪emoEdit 進行操作；如按 Creat 按鈕， MemoEdit 產生三個子 窗體，如圖 ，按 AddText，子窗體將出現(xiàn) This text was added through OLE Automation的字符串“ MemoEdit 包括三個單元： Mainfrom MDI 主窗體 EditFrom MDE 子窗體和自動化類 MemoAuto 應用程序自動化對象 下面結合例程講述 OLE 自動化的基本概念及開發(fā)。編譯器把 automated部分創(chuàng)建成 OLE 自動化對象的入口。 funtion CretModiFied : WordBool。 procedure Save。 TMemeDoc 類是 MemoEdit 程序的內部自動化類，因此不需要注冊。 unit MemoAuto ? type TMemoApp = Class(TAutoObject) implementation ? procedure RegisterMemoApp Const AutoClassInfo : TAutoClassInfo = ( AutoClass : TMemoApp。Memo Editor Application39。 end。程序一旦注冊了自動化對象，全局自動化對象將用 OLE自動化API 進行自動管理。控制器不能直接得到服務器中的類或指針，而是引用 OLE對象的 OLEObject 屬性。 39。 MemoEditdpr 就是 OLE 自動化服務器， 在 MemoAuto 單元中注冊了 自動化類，所有 OLE 控制器均可對 進行引用。 進程內服務器被調用時在同一地址中運行，這樣就不需要控制器進行調度，以避免處理大量的消息句柄。 在創(chuàng)建 OLE 自動化對象時必須定義實例， 這樣， 在創(chuàng)建一個 OLE 自動化對象時， Windows 就能決定是否創(chuàng)建一個新的服務器實例。 StartMode 指示 OLE 自動化服務器打開方式打開的目的。缺省情況下，服務器關閉實 例，但 OnLastRelease 事件可根據(jù)實際情況是否關閉。定義界面主要是為了控制器能夠引用它們。這主要取決于是創(chuàng)建進程內服務器還是進程外服務器。 以上代 碼必須準確拼寫，包括大小寫。 把 OLE 自動化對象加入服務器： Delphi 集成開發(fā)環(huán)境 中選擇 File| New 菜單項， 并在對象集中選擇Automation Object,Delphi 打開自動化對象專家。 。 在創(chuàng)建 了服務器并把 OLE 自動化對象加入服務器之后，控制器程序就可以對服務器進行操縱。 procedure (Sender : TObject)。 except MessageDlg( 39。 end。 begin MemoEdit,TileWindow。 procedure TMainForm,CreateButtonClick(Sender : TObject)。 其中 NewMemo 在 MemoAuto 單元中定義如下： function : Variant。 end。This text was added through OLE Automation3
公司管理相關推薦
鄂ICP備17016276號-1