本文整理自网络,侵删。
加载HTML 将HTML代码转换成网页
复制代码
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 HTMLCode:='<meta http-equiv="Content-Type" content="text/html; charset=gbk"/>'+HTMLCode; 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;
相关阅读 >>
Delphi fdconnection1 获取数据库总记录数
Delphi 实现 图灵机器人api(idhttp post )
Delphi 使用openjdk进行Delphi android开发
Delphi firemonkey中listboxaccessory图标切换
更多相关阅读请进入《Delphi》频道 >>