Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.13;
Скачать: CL | DM;

Вниз

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

Удачи.



Страницы: 1 вся ветка

Текущий архив: 2002.05.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
3-39672
wer
2002-04-17 19:08
2002.05.13
В запросе SUM не считает всё!


4-39907
samos
2002-03-12 14:28
2002.05.13
IPHLPAPI.dll кто нибудь знает с чем ее едят....


1-39698
Riko
2002-04-29 14:59
2002.05.13
Обработка CloseQuery.


7-39878
KarlovAF
2001-12-21 16:26
2002.05.13
Сетевой принтер.


1-39781
hogus
2002-04-28 08:03
2002.05.13
Работа с Временем (TDateTime)