Delphi WebBrowser 加载HTML 将HTML代码转换成网页


本文整理自网络,侵删。

 
加载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判断文件夹(目录)是否存在,不存在就创建的办法

Delphi fdconnection1 获取数据库总记录数

Delphi 实现 图灵机器人api(idhttp post )

Delphi 使用openjdk进行Delphi android开发

Delphi record,两种声明方式

Delphi 极速字符串替换函数

Delphi firemonkey中listboxaccessory图标切换

Delphi 如何解析网址?

Delphi 跨平台获取文件列表

Delphi repeat 递增/递减输出

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...