[arman2001]

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

[Dux]

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

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

[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);

[Dux]

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

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

Согласен, немного не то, но результат тот же и гораздо проще.. Из Memo сохранить в txt-файл - никаких проблем

[arman2001]

Почему при попытке открыть сайт www.fxclub.org, используя этот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin  memo1.Lines.Text:= IdHttp1.Get('https://www.fxclub.org');
end;

появляется ошибка Cocket Error#10054

[Кодер]

Погляди внимательнее, ты просто забиваешь в Memo какое-то значение