Загрузка файла из Webbrowser без диалогового окна

[_bss_]

Добрый день.

Прочитал все темы по работе с сетью, но решение не нашел.
Очень хотел попросить помощи в решении следующей проблемы.

Описание: Существует некий сайт, например, http://xxxzzz.ru (не могу дать название из-за проблем со службой безопасности). Использовать его можно только через Internet Explorer (или WebBrowser - у меня получилось). Авторизация на главной странице проходит через модуль http://xxxzzz.ru/auth.jasp, который представляет собой набор вложенных фреймов, достучаться до самого внутренного фрейма с авторизацией так и не получилось. Поэтому использовал WebBrowser, а авторизацию провожу вручную, набирая логин/пароль. Дальше программно через WebBrowser.Navigate('') дохожу до нужного раздела сайта, который генерирует Word-овские отчёты по прямой ссылке, например, WebBrowser.Navigate('http://xxxzzz.ru/Report.aspx?Date1=01.01.2011&Date2= 01.02.2011')

Вопрос: в результате выполнения запроса WebBrowser не переходит никуда, а выдаёт диалоговое окно на сохранение файла. Как загрузить файл без ручного ввода имени файла в диалоговом окне, а в идеале вообще без диалогового окна (т.к. часто необходимо выгружать до 70 подобных запросов-отчётов)?

[mss]

Выкинуть к едреней фене WebBrowser и воспользоваться IEDownload или IEMultiDownload из состава стороннего EmbeddedWB

[_bss_]

Спасибо. С Embedded буду разбираться.
А есть ли решение в поставленных рамках, (в WebBrowser)

[mss]

Нет. EmbWB кроме прочих "вкусностей" ликвидирует как раз эту проблему.

[_bss_]

Будем пробовать. Пока программа на этапе загрузки зависла и не отвисает. В Word отчёт не скачался. Что-то не так с кодом?

procedure TForm1.Button1Click(Sender: TObject);
begin
     EmbeddedWB1.Navigate('http://xxxzzz.ru/auth.jasp'); // далее вводим логин/пароль
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     EmbeddedWB1.Navigate('http://xxxzzz.ru/reports.jasp');
     ShowMessage('OK'); // для остановки до момента загрузки предыдущей страницы
     IEDownload1.PutFileName := 'c:\tmp\2\1-1.doc'; // имя файла
     IEDownload1.Go('http://xxxzzz.ru/Report.aspx?Date1=01.01.2011&Date2= 01.02.2011'); // Собственно то, что надо скачать представляет *.doc файл
end;

Последовательно нажимаю button1, button2

[mss]

режим загрузки синхронный ?

[_bss_]

IEDownload1 Options: [AsyncStorage, SilentOperation]

[_bss_]

2 дня понадобилось на решение вопроса, в том числе при налаживании взаиможействие с EmbeddedIE и IEDownload.
Никак не мог заставить скачивать файл, тем более с нужным именем в нужную папку, хотя переписал процедуру Go(url) на Go(url, filename).

Оказалось, что скаченный в первый раз Embedded был старой версии (14.61). Последняя версия лежит здесь (http://www.bsalsa.com/downloads.html). Там же инструкция по установке

Решение проблемы:
Кинул 2 компонента на форму, как рекомендовал mss, EmbeddedWB и IEDownload. Настроил 2 кнопки (чтобы получить задержку при загрузках страниц и ввести пароль)

procedure TForm1.Button1Click(Sender: TObject);
begin
      EmbeddedWB1.Navigate('http://xxxzzz.ru/auth.jasp'); // далее вводим логин/пароль
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
   i               : integer;
   ListOfReports   : TListOfReportForDownloading;
   NumberOfReports : integer;
begin
     EmbeddedWB1.Navigate('http://xxxzzz.ru/reports.jasp');
     ShowMessage('OK'); // для остановки до момента загрузки предыдущей страницы

     ListOfReports   := CreateListOfReportsForMonitoring; // создал список запросов (это моя процедура - здесь как угодно)
     NumberOfReports := Length(ListOfReports);

     for i := 0 to NumberOfReports - 1 do
     begin
     IEDownload1.Go(ListOfReports[i].URL, ListOfReports[i].FileName, 'c:\tmp\2\')); // Собственно то, что надо скачать, имя файла, дирректория

          ProgressBar1.Position := Round((i + 1) / NumberOfReports * 100); // Это для отбражения прогресса загрузки всех отчётов

     end;
end;

[lega4]

Похожая прьблема есть, подскажите плз. Надо загрузить файл, диалог загрузки появляется после клика по кнопке, а этот клик вызывает некую javascript-функцию. Т.е. адреса загружаемого файла нету как такового, файл генерируется post-запросом.

[lega4]

<удалить >