IPersistMoniker::Load加载本地HTML时无法解析URL耗时过长如何解决

问题原因 #

你遇到的卡顿本质是IE内核（TCppWebBrowser基于IE内核实现）对file协议页面下的特殊路径解析规则：

• 以//开头的协议相对URL会被自动补全为http://前缀，触发DNS解析和网络请求
• 以/开头的绝对路径URL会被解析为当前磁盘根路径，而非HTML文件所在目录
  网络请求失败前会等待20~30秒的DNS/连接超时，才会返回失败。你之前的自定义主文档IMoniker、DLCTL_OFFLINE设置都无法拦截资源层的自动路径解析逻辑，所以无效。

可行方案 #

方案1：实现IDocHostUIHandler的TranslateUrl方法（最推荐） #

该方法是WebBrowser控件提供的原生资源URL拦截入口，所有页面资源（脚本、图片、样式等）发起请求前都会触发该回调，你可以在这里直接修改URL或者终止请求：

1. 完整实现IDocHostUIHandler接口，补充实现TranslateUrl方法
2. 在方法中按如下逻辑处理：

STDMETHODIMP CYourDocHostHandler::TranslateUrl(DWORD dwTranslate, OLECHAR* pchURLIn, OLECHAR** ppchURLOut)
{
    // 先定义本地基路径，替换为你实际的应用程序目录file前缀
    WideString basePath = L"file:///" + StringReplace(ExtractFilePath(Application->ExeName), "\\", "/", TReplaceFlags() << rfReplaceAll);
    
    WideString urlIn(pchURLIn);
    if (urlIn.Pos(L"//") == 1) {
        // 处理协议相对路径：如果要重定向就拼接本地路径，要丢弃直接返回S_FALSE即可
        WideString newUrl = basePath + urlIn.SubString(3, urlIn.Length());
        *ppchURLOut = (OLECHAR*)CoTaskMemAlloc((newUrl.Length() + 1) * sizeof(OLECHAR));
        wcscpy(*ppchURLOut, newUrl.c_bstr());
        return S_OK;
    } else if (urlIn.Pos(L"/") == 1) {
        // 处理根路径开头的资源
        WideString newUrl = basePath + urlIn.SubString(2, urlIn.Length());
        *ppchURLOut = (OLECHAR*)CoTaskMemAlloc((newUrl.Length() + 1) * sizeof(OLECHAR));
        wcscpy(*ppchURLOut, newUrl.c_bstr());
        return S_OK;
    }
    
    // 正常相对路径直接放行
    return S_FALSE;
}

如果不需要加载这类异常路径，直接返回S_FALSE即可，控件会直接终止该请求，不会发起任何网络请求，完全消除超时等待。

方案2：预处理HTML内容 #

在加载HTML文件前先读取本地文件内容，用字符串替换或者正则匹配，把所有src="//、src="/、href="//、href="/的路径都替换成你需要的相对路径或者完整本地file路径，再将处理后的HTML内容加载到控件中。
这种方案不需要修改COM接口实现，适合资源路径规则简单的场景：

// 读取本地HTML内容
TStringList* html = new TStringList;
html->LoadFromFile(ExtractFilePath(Application->ExeName) + "_test.htm");
// 替换异常路径前缀
String basePath = ExtractFilePath(Application->ExeName);
html->Text = StringReplace(html->Text, "src=\"//", "src=\"" + basePath, TReplaceFlags() << rfReplaceAll << rfIgnoreCase);
html->Text = StringReplace(html->Text, "src=\"/", "src=\"" + basePath, TReplaceFlags() << rfReplaceAll << rfIgnoreCase);
// 加载处理后的内容到控件
WB->LoadFromStream((TStream*)html);
delete html;

方案3：通过BindCtx绑定自定义IBindStatusCallback #

在调用IPersistMoniker::Load前，给BindCtx设置自定义的IBindStatusCallback回调，在OnStartBinding方法中判断请求的URL，如果是异常路径直接返回E_ABORT终止请求：

// 先设置BIND_OPTS2参数
BIND_OPTS2 bo = {0};
bo.cbStruct = sizeof(BIND_OPTS2);
bo.dwClassContext = CLSCTX_LOCAL_SERVER;
bo.pBindStatusCallback = new YourCustomBindStatusCallback(); // 你实现的回调类
OleCheck(pBCtx->SetBindOptions(&bo));

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