delphi - 在 TWebBrowser 中手动编写 HTML

Question

编辑:看看乔恩的方法。
我正在使用此处建议的策略: http://cc.embarcadero.com/Item/23992 在 TWebBrowser 中获取 HTML，但在页面加载时出现一堆 JavaScript 错误。如果我点击"is"足够多次，我可以看到一个没有格式的页面，我猜该页面什么也不做。

我的理论是，由于 HTML 中的链接是相对的，浏览器无法加载任何链接。我已经从将 URL“about:blank”传递到导航功能，切换到传递服务器主页 - 希望某些内部机制能够生成完整路径，但没有运气。

任何人都能够成功地将 HTML 手动写入 TWebBrowser。

Answer 1

我通常使用这种方法:

//OnFormCreate:
begin
  WebBrowser.Navigate('about:blank');
end;

//OnButtonClick:
var
  Doc: Variant;
begin
  Doc := WebBrowser.Document;
  Doc.Clear;
  Doc.Write(Memo.Text);
  Doc.Close;
end;

delphi.about.com 上也有一些很好的例子
还有一些更复杂的例子 www.delphidabbler.com