我正在尝试使用 Firemonkey TWebBrowser
加载一些在运行时生成的 HTML。 HTML 是一个 Delphi 字符串。
我查看了一些代码:http://delphi.about.com/cs/adptips2004/a/bltip0104_4.htm
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject) ;
var
sHTML : string;
begin
sHTML := '<a href="http://delphi.about.com">GOTO</a>' +
'<b>About Delphi Programming</b>';
WBLoadHTML(WebBrowser1,sHTML) ;
end;
但这似乎是为与 Firemonkey TWebBrowser
不兼容的 VCL 应用程序设计的。
如何使用 Firemonkey 控件实现与此代码示例相同的效果?
最佳答案
使用 WebBrowser LoadFromStrings 方法。
关于delphi - 如何将 HTML 字符串加载到 Firemonkey TWebBrowser 中?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19405879/