TWebBrowser - как сохранить файл?

← →
Deus (2002-04-27 13:14) [0]

Как с помощью TWebBrowser сохранить файл в локальную папку, ничего не спрашивая у пользователя?
Если использовать navigate, то вываливается диалог Save.
Ещё есть ExecWB с командой OLECMDID_SAVEAS, но не очень понятно, как это использовать....

← →
Deus (2002-04-27 17:20) [1]

а всё-таки?

← →
lipskiy (2002-04-27 21:20) [2]

Лучше используй компонент закачки по HTTP, а у WB возьми ссылку на него. ИМХО.

← →
Almaz (2002-04-28 00:08) [3]

>lipskiy ©
Зачем так жестоко :)

> Deus © (27.04.02 17:20)
> а всё-таки?

А все таки можно. И даже не сложно. Например вот так:

uses ActiveX, MSHTML_TLB,... ... procedure TForm1.Button2Click(Sender: TObject); var HTMLDocument: IHTMLDocument2; PersistFile: IPersistFile; begin HTMLDocument := WebBrowser1.Document as IHTMLDocument2; PersistFile := HTMLDocument as IPersistFile; PersistFile.Save(StringToOleStr("C:\TEMP\savepage.htm"), True); while HTMLDocument.readyState <> "complete" do Application.ProcessMessages; end;

Чуть подробнее о модуле MSHTML_TLB чтобы его получить, необходимо импортировать ActiveX компонент Microsoft HTML Object Library (version 2.0) В процессе импорта и будет создан этот файл.

Удачи.

TWebBrowser - как сохранить файл? Найти похожие ветки