第八章對象鏈接與嵌入二(完整版)
【正文】 件。要保存對嵌入對象的修改， 應用程序應把數據保存在特殊的 OLE 文件中。 begin if Source is TOLEDropNotify then begin NewChild := CreateChild。 TOLEDropNotify 對象有一個與 OLE包容器部件 PInitInfo 屬性相對應的 PIniInfo 屬性。 如果一個 OLE 對象被 釋放。 with Source as TOLEDropNotify do := PInitInfo end end。如果要對已存文件的對象進行編輯，應用程序必須從文件中裝入 OLE 對象。其主要屬性如表 ： 表 保存對話框的屬性及取值： ━━━━━━━━━━━━━━━━━━━━━━━━ 屬性 值 ──────────────────────── Name SaveAsDialog DefaultExit ole FileName .OLE Filter OLE files (*.OLE)|*.OLE ━━━━━━━━━━━━━━━━━━━━━━━━ 表 打開對話框的屬性及取值 ━━━━━━━━━━━━━━━━━━━━━━━━━ 屬性 取值 ──────────────────────── Name OpenDialog DefaultExit ole FileName .OLE Filter OLE files (*.OLE)|*.OLE ━━━━━━━━━━━━━━━━━━━━━━━━━ 用戶單擊“文 件 |保存”菜單項實現 OLE對象的保存。 OLE 提供了一種方法來集成應用程序，這就是應用程序之間的命令操作。用戶可以創(chuàng)建宏或者其它命令， 使得某個應用程序能透過其它應用程序進行工作。它的 automated 部分象普通類的public部分， OLE控制器可引用在這部分聲明的屬性和方法。 procedure Ineart(Const Text : String)。例程 MemoAuto 單元定義了 TMemoApp 對象并進行注冊。 inibialization RegisterMemoApp。 通常把 OLE 對象作為變體類型 (variants)進行輸出，任何 OLE 對象的方法和屬性必須返回一個包含 OLE 對象的變體類型， TAutoObject 提供了一個變體類型的 OLEObject 屬性。 創(chuàng)建 OLE 自動化服務器 OLE 自動化服務器是應用程序或動態(tài)鏈接庫 (DLL)，它可向 OLE 自動化控制器輸出 OLE 對象。 服務器與其能輸出的對象數目的關 系稱為實例 (instancing)。此時所有 OLE 控制器釋放了由服務器創(chuàng)建的對象。即創(chuàng)建能輸出 OLE 對象的應用程序或動態(tài)鏈接庫。 創(chuàng)建服務器之后，應該向服務器加入 OLE 自動化對象，這個過程大部分是自動完成的，但必須向 Delphi 的自動化對象專家提供必要的信息。每個 ID 號與一個 OLE 類名相對應，如果其中之一被改變，應用程序在使用時會發(fā)生錯誤。)。 AutoForm 的很多過程引用了 OLE 自動化對象的方法： procedure TMainForm,TileButtonClick(Sender : Tobject)。 end。 begin for I := 1 to 3 do if not var IsEmpty(Memo[I]) then Memo[I],Insert{39。1310)。 begin Result := MainForm,CreateMemo(39。 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。 自動化另一程序 每個服務器在系統注冊中有一個叫 ProgID 的關鍵定
公司管理相關推薦
鄂ICP備17016276號-1