![]() |
|
#1
|
|||
|
|||
![]() Как используя TWebBrowser сохранить web-страницу в TXT-файл, на диск?
|
#2
|
||||
|
||||
![]() Delphicode.org - справочник Delphi |
#3
|
||||
|
||||
![]() Цитата:
Цитата:
Код:
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); |
#4
|
||||
|
||||
![]() Цитата:
Согласен, немного не то, но результат тот же и гораздо проще.. Из Memo сохранить в txt-файл - никаких проблем Delphicode.org - справочник Delphi |
#5
|
|||
|
|||
![]() Почему при попытке открыть сайт www.fxclub.org, используя этот код:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Text:= IdHttp1.Get('https://www.fxclub.org'); end; появляется ошибка Cocket Error#10054 ![]() Последний раз редактировалось arman2001, 04.08.2008 в 20:59. |
#6
|
|||
|
|||
![]() Погляди внимательнее, ты просто забиваешь в Memo какое-то значение
|