Delphi 輕量級自動化對象實現：$METHODINFO 與 TObjectDispatch 免註冊 COM 開發

前言

傳統 Delphi 開發自動化對象（IDispatch）需建立 ActiveX Library、編寫類型庫（TLB）、註冊 COM 組件，流程繁瑣。實際上，利用未文檔化的編譯指令 {$METHODINFO ON} 配合 TObjectDispatch（位於 ObjComAuto.pas），即可在幾行代碼內創建支援 GetIDsOfNames/Invoke 的輕量級自動化對象，無需註冊、無 TLB、無 ActiveX 專案。

核心原理

• {$METHODINFO ON}：指示編譯器為類生成公開/發布方法的 RTTI（運行時類型信息），供 GetIDsOfNames 枚舉。
• TObjectDispatch：實現 IDispatch 介面的基類，內部利用 RTTI 將方法名解析為 DISPID 並調用 Invoke。
• 繼承 TObjectDispatch 並開啟 METHODINFO 的類，其所有 public/published 方法自動成為可被腳本/宿主調用的自動化方法。

最小化實現代碼

uses ObjComAuto; {包含 TObjectDispatch}

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

constructor TScriptableObject.Create;
begin
  inherited Create(Self, False); {Self 為 IDispatch 實現者, False 表示不自動釋放}
end;

應用場景：WebBrowser 外部對象

TWebBrowser 的 IDocHostUIHandler.GetExternal 需返回 IDispatch 介面供網頁腳本調用。使用上述類：

type
  TMyExternal = class(TScriptableObject)
  public
    procedure ShowMessage(const Msg: WideString);
    function Add(a, b: Integer): Integer;
  end;

procedure TMyExternal.ShowMessage(const Msg: WideString);
begin
  Vcl.Dialogs.ShowMessage(Msg);
end;

function TMyExternal.Add(a, b: Integer): Integer;
begin
  Result := a + b;
end;

{在 WebBrowser DocumentComplete 事件中}
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var Ext: TMyExternal;
begin
  Ext := TMyExternal.Create;
  try
    (WebBrowser1.ControlInterface.Document as IHTMLDocument2).Set_external(Ext);
  finally
    Ext.Free; {注意：WebBrowser 會 AddRef，這裡釋放自身引用即可}
  end;
end;

網頁 JavaScript 即可調用：window.external.ShowMessage('Hello')、window.external.Add(1,2)。

優缺點對比

注意事項

1. 僅限 Public/Published 方法：private/protected 方法不會生成 METHODINFO，不可被調用。
2. 參數類型限制：自動封送支援基本類型、WideString、OleVariant、IDispatch、IUnknown、記錄類型需手工處理。
3. 生命週期管理：TObjectDispatch.Create(Self, False) 表示不自動釋放，宿主需自行管理引用計數。
4. 未文檔化特性：$METHODINFO 為內部指令，雖長期穩定但官方不保證向後兼容。

總結

利用 {$METHODINFO ON} + TObjectDispatch 可在幾分鐘內為 Delphi 應用添加強大的腳本綁定能力，特別適合 WebBrowser 宿主場景、內部插件系統、快速原型開發，極大降低了 COM 自動化對象的開發門檻。