Twebbrowser从内存中加载页面

最新推荐文章于 2020-12-06 22:37:00 发布

byc6352

最新推荐文章于 2020-12-06 22:37:00 发布

阅读量1.8k

点赞数

分类专栏： delphi 文章标签： tWebbrowser加载页面

本文链接：https://blog.csdn.net/byc6352/article/details/100008777

版权

delphi 专栏收录该内容

39 篇文章 4 订阅

订阅专栏

//从内存中加载页面（比加载htm文件速度快）uses ActiveX;
procedure  WBLoadHTML(WebBrowser:  TWebBrowser;  HTMLCode:  tstrings);
var
   ms:  TMemoryStream;
begin
   if  not Assigned(WebBrowser.Document)  then
      WebBrowser.Navigate('about:blank');
   if  Assigned(WebBrowser.Document)  then
   begin
       try
           ms  :=  TMemoryStream.Create;
           try
               HTMLCode.SaveToStream(ms,tEncoding.UTF8);
               ms.Seek(0,  0);
               (WebBrowser.Document  as  IPersistStreamInit).Load(TStreamAdapter.Create(ms));
               finally
               ms.Free;
           end;
       finally
       end;
   end;
end;
//使用：
wbloadhtml(webbrowser1,memo4.Lines);