IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Программирование (https://www.imho.ws/forumdisplay.php?f=40)
-   -   Delphi - компонент TWebBrowser (https://www.imho.ws/showthread.php?t=16019)

melmaks 18.11.2002 23:16

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

RaZEr 19.11.2002 22:08

Browser.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER);

melmaks 19.11.2002 22:39

После такой процедуры, как я понял, всплывет окно SaveAs, а мне нужно контролировать запись файла программно ........?

RaZEr 19.11.2002 22:51

var
SaveDlg: TSaveDialog;
Doc: IHTMLDocument2;
PersistFile: IPersistFile;
begin
SaveDlg := TSaveDialog.Create(Self);
SaveDlg.FileName := 'default.html';
SaveDlg.Filter := 'HTML Files (*.htm,*.html)|*.htm;*.html';
SaveDlg.Title := 'Saving HTML Code to file';
IF SaveDlg.Execute THEN
begin
Doc := Browser.Document as IHTMLDocument2;
PersistFile := Doc as IPersistFile;
PersistFile.Save(StringToOleStr(SaveDlg.FileName),True);
end;

melmaks 20.11.2002 02:49

Спасибо за помощь :)


Часовой пояс GMT +4, время: 01:22.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.