在TWebBrowser Edge模式下获取IHTMLDocument2接口的方法

当TWebBrowser切换到Edge（Chromium）引擎时，WebBrowser.Document为空或无法转换为IHTMLDocument2等MSHTML接口，核心原因是Edge引擎基于WebView2（Chromium内核），不再使用传统的MSHTML渲染引擎，两者的底层COM对象模型完全不同。以下是具体解决思路：

1. 改用WebView2原生接口替代MSHTML #

Edge模式下，TWebBrowser的底层实现是WebView2，需要使用WebView2对应的COM接口来操作文档，而非MSHTML接口。

示例代码（Delphi） #

uses
  WebView2; // 确保引入WebView2相关单元（Delphi 11+内置）

var
  CoreWebView2: ICoreWebView2;
  WebDoc: ICoreWebView2Document;
begin
  // 获取WebView2核心对象
  if WebBrowser.QueryInterface(ICoreWebView2, CoreWebView2) = S_OK then
  begin
    // 获取当前文档
    CoreWebView2.Get_Document(WebDoc);
    // 后续使用WebView2接口操作文档，例如获取元素
    var Elements: ICoreWebView2ElementCollection;
    WebDoc.GetElementsByTagName('div', Elements);
    // ... 其他操作逻辑
  end;
end;

2. 兼容IE和Edge双引擎的逻辑处理 #

如果需要同时支持两种引擎，可通过判断SelectedEngine的值分支处理：

var
  HTMLDoc: IHTMLDocument2;
  CoreWebView2: ICoreWebView2;
begin
  case WebBrowser.SelectedEngine of
    TWebBrowserEngine.IEOnly:
      begin
        HTMLDoc := WebBrowser.Document as IHTMLDocument2;
        // 原有的MSHTML操作逻辑继续使用
      end;
    TWebBrowserEngine.EdgeOnly, TWebBrowserEngine.EdgeIfAvailable:
      begin
        if WebBrowser.QueryInterface(ICoreWebView2, CoreWebView2) = S_OK then
        begin
          // 执行WebView2相关的文档操作
        end;
      end;
  end;
end;

3. 关键注意事项 #

• Delphi版本要求：Delphi 11及以上版本已内置WebView2的封装单元，旧版本需手动导入WebView2的COM类型库（通过Component > Import Component导入）。
• WebView2 Runtime依赖：目标机器必须安装WebView2 Runtime，可引导用户安装，或在部署时打包固定版本的Runtime。
• 接口适配成本：WebView2的接口与MSHTML差异较大，需要重新适配文档遍历、元素属性操作等逻辑，例如用ICoreWebView2Element.GetAttribute替代MSHTML的IHTMLElement.GetAttribute。

内容的提问来源于stack exchange，提问作者Ahmet