Как загрузить HTML код непосредственно в TWebbrowser?

Previous  Top  Next

    
 

 

 

Code:

uses

ActiveX;

 

procedure WB_LoadHTML(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

       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;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

WB_LoadHTML(WebBrowser1,'SwissDelphiCenter');

end;

 

 

©Drkb::03459

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php