delphi 将 HTML 代码直接加入到 TWebbrowser 组件中去

将 HTML 代码直接加入到 TWebbrowser 组件中去

uses

  ActiveX;

procedure  WB_LoadHTML(WebBrowser:  TWebBrowser;  HTMLCode:  string);

var

  sl:  TStringList;

  ms:  TMemoryStream;

begin

  WebBrowser.Navigate('about:blank');

  if  Assigned(WebBrowser.Document)  then

  begin

      sl  :=  TStringList.Create;

      try

          ms  :=  TMemoryStream.Create;

          try

              sl.Text  :=  HTMLCode;

              sl.SaveToStream(ms);  0D

              ms.Seek(0,  0);

              (WebBrowser.Document  as  IPersistStreamInit).Load(TStreamAdapter.Create(ms));

0A            finally

              ms.Free;

          end;

      finally

          sl.Free;

      end;

  end;

end;

procedure  TForm1.Button1Click(Sender:  TObject);

begin

  WB_LoadHTML(WebBrowser1,'  <html  >  <body    bgcolor=  "#0099FF  "  >SwissDelphiCenter  </html  >');

end;