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中线程的释放

Delphi web格式与tcolor类型的转换函数

Delphi获取其他进程中listbox和combobox的内容

Delphi 实现透明窗体

Delphi firedac 下的 sqlite [8] - 自定义函数

Delphi xe7的android应用取得wi-fi的信息

Delphi wmi 取硬件信息

Delphi 从文件中读取图像类型

Delphi 语言字符集

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

转载请注明出处：木庄网络博客 » Delphi WebBrowser 加载HTML 将HTML代码转换成网页