Delphi项目中TWebBrowser与JS交互（window.external）的一种简便实现方法

在很多项目中我们需要嵌入HTML页面来实现一些效果，在嵌入的HTML页面中访问浏览器外壳的扩展功能（Delphi代码）往往是通过window.external来调用，这时需要在浏览器容器中实现IDocHostUIHandler接口的GetExternal方法并返回一个实现了IDispatch接口的COM对象；在高版本的Delphi中TWebBrowser控件已经实现了这个接口，不过并没有返回可用的COM对象，代码类似下面：

function TWebBrowser.GetExternal(out ppDispatch: IDispatch): HRESULT;
begin
  ppDispatch := nil;
  Result := E_FAIL;
end;

该方法是TWebBrowser的私有方法并不能通过覆盖来修改，但是可以将TWebBrowser所在单元SHDocVw.pas复制到项目目录内，通过修改已有代码来实现，在编译时Delphi会优先使用项目目录内的SHDocVw.pas。

具体的操作方法是：

1、在TWebBrowser中添加一个属性：

property ExternalObject: IDispatch read FExternalObject write FExternalObject;

2、修改GetExternal方法的实现：

function TWebBrowser.GetExternal(out ppDispatch: IDispatch): HRESULT;
begin
  ppDispatch := nil;
  Result := E_FAIL;
  if Assigned(FExternalObject) then
  begin
    try
      ppDispatch := FExternalObject;
      Result := S_OK;
    except
    end;
  end;
end;

3、在TWebBrowser创建后给新添加的属性：ExternalObject赋值一个实现了IDispatch接口的COM对象即可调用该对象内的方法。

转载于:https://www.cnblogs.com/huixch/p/9854371.html