| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Deus ©   (2002-04-27 13:14:00) 

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

---

Almaz   (2002-04-28 00:08:00) [1]

>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) В процессе импорта и будет создан этот файл.

Удачи.

---

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

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

---

Deus   (2002-04-27 17:20:00) [3]

а всё-таки?

---

Наверх