5

我正在使用 tidhttp 控件来加快 Twebbrowser 中网页的加载速度。导航到 url 很慢，所以这就是我不使用它的原因（WebBrowser1.Navigate('some_url_here')）。这是我的做法：

procedure TForm1.Button2Click(Sender: TObject);
  procedure LoadHtmlIntoBrowser(var WB: TweBbrowser; const HTMLString: string);
  var
    v: OleVariant;
    HTMLDocument: IHTMLDocument2;
  begin
    WB.Navigate('about:blank');
    while WB.ReadyState < READYSTATE_INTERACTIVE do
      forms.Application.ProcessMessages;

    if Assigned(WB.Document) then
    begin
      HTMLDocument := WB.Document as IHTMLDocument2;
      v := VarArrayCreate([0, 0], varVariant);
      v[0] := HTMLString;
      HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
      HTMLDocument.Close;
    end;
    forms.Application.ProcessMessages;
  end;

var
  str:string;
begin
  str:=idhttp1.Get('http://localhost/myhome.html');
  LoadHtmlIntoBrowser(WebBrowser1,str);
end;

我使用 将idHTTPhtml 内容转换为字符串，然后将该字符串直接写入 Webbrowser。我有一个本地网络服务器设置（XAMPP）。我遇到的问题是，在将 html 内容写入浏览器并单击显示的链接后，它没有去哪里，即它显示一个大部分空白的页面，顶部带有“twopage.html”。当我右键单击并“查看源代码”时，我得到"<html>twopage.html</html>"了这很奇怪，而不是页面的实际 html。

“myhome.html”文件包含

<html>
  <head></head>
  <body><h1>My home</h1><a href="twopage.html"></a></body>
</html>

The other webpage, "twopage.html" contains 

<html>
  <head></head>
  <body><h1>Another Webpage</h1></body>
</html>
4

1 回答 1

7

在将 HTML 加载到 Web 浏览器之前，您需要<base>在 HTML 中插入一个标记，以便在解析相对 url 时它有一个可用的基本 url。

于 2013-03-16T04:04:12.010 回答