Получить и сохранить HTML-код из TWebBrowser

uses

   ActiveX;

 function
 WB_SaveHTMLCode(WebBrowser: TWebBrowser; const
 FileName: TFileName): Boolean;
 var

   ps: IPersistStreamInit;
   fs: TFileStream;
   sa: IStream;
 begin

   ps := WebBrowser.Document as
 IPersistStreamInit;
   fs := TFileStream.Create(FileName, fmCreate);
   try

     sa := TStreamAdapter.Create(fs, soReference) as
 IStream;
     Result := Succeeded(ps.Save(sa, True));
   finally

     fs.Free;
   end
;
 end
;

 function
 WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
 var

   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string
;
 begin

   ps := WebBrowser.Document as
 IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try

     sa := TStreamAdapter.Create(ss, soReference) as
 IStream;
     Result := Succeeded(ps.Save(sa, True));
     if
 Result then
 ACode.Add(ss.Datastring);
   finally

     ss.Free;
   end
;
 end
;

 procedure
 TForm1.Button1Click(Sender: TObject);
 begin

   WB_SaveHTMLCode(Webbrowser1, 'c:test.txt');
 end
;

 procedure
 TForm1.Button2Click(Sender: TObject);
 begin

   WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
 end
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере