[Admin]

Сообщение от Dux

Пример здесь:

http://www.delphicode.ru/internet/download_html.htm

А причем тут idHTTP, если вопрос по WebBrowser?

Сообщение от arman2001

Как используя TWebBrowser сохранить web-страницу в TXT-файл, на диск?

Код:

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
 s: string;
 sa: IStream;
 ss: TStringStream;
 ps: IPersistStreamInit;
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;

Использование:
 WB_GetHTMLCode(Webbrowser1, RichEdit1.Lines);