Question

我在Delphi 10.x中使用TWebBrowser，我想导航到index.html之类的本地文件，它将加载一些html / js / css，它可以正常工作并成功加载。现在我想在正文中添加一些html文本，但它不起作用，什么也没发生（没有引发错误）。

//Navigate to local file
   WebBrowser.Navigate(f);
//Writing a string to body
   with WebBrowser.Document as IHTMLDocument2 do
   begin
      WebBody := body;
      WebBody.insertAdjacentHTML('BeforeEnd', MyHTML);
   end;

如果我不导航到本地文件而是将整个HTML作为字符串写入其中，则

    Navigate('about:blank', '', '', '', 'X-UA-Compatible: IE=edge,chrome=1');
   ...//write a initial html like above

然后通过WebBody.insertAdjacentHTML添加文本，就可以了。

我该如何导航本地文件，然后在正文中添加一些文本（假设它是聊天应用程序）。

Answer 1

我发现解决方案取决于上面的@whosrdaddy注释，但不使用OnDocumentComplete。

我应该等待浏览器完成导航/处理

procedure WaitComplete; 
begin
    with WebBrowser do
      while Busy or (ReadyState <> READYSTATE_COMPLETE) do
      begin
        Vcl.Forms.Application.ProcessMessages;
      end;
end;

WebBrowser.Navigate(f);
WaitComplete;

TWebBrowesr在导航本地文件后将HTML代码插入正文

1 个答案: