Архив форумов ЦИТФорума

[ммм]

У кого-нибудь есть идеи как сохранить на диске
веб-страничку средствами Delphi, может как-нить использовать компонент TWebBrowser?

[ilya]

var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
...
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('test.htm'), True);

while HTMLDocument.readyState 'complete' do
Application.ProcessMessages;
...
end;