熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

實現自動化對象的一種簡易方法

2013-11-11 21:04:11  來源: Delphi編程 

  Delphi 中不需要建立ActiveX Library不需要編輯TLB也能創建一個自動化對象

  秘密就在於$METHODINFO這個沒有文檔描述的編譯指令

  首先我們定義一個TScriptableObject繼承自TObjectDispatch (ObjComAutopas)

{$METHODINFO ON}
 TScriptableObject = class(TObjectDispatch)
 public
  constructor Create;
 end;
 {$METHODINFO OFF}

{ TScriptableObject }
constructor TScriptableObjectCreate;
begin
 inherited Create(Self False);
end;

    因此 TScriptableObject 便是一個具備了特殊能力的一個類這個類是具有IDispatch接口的類 並且繼承自TScriptableObject 的任何子類的Public & Published方法都能夠從GetIDsOfNames檢索出來並且可以Invoke

  這樣創建出的TScriptableObject的子類就是我們所需要的自動化對象這個對象我們可以用來作為WebBrowser的IDocHostUIHandler接口的GetExternal所需的IDispatch對象


From:http://tw.wingwit.com/Article/program/Delphi/201311/8401.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.