Как загрузить файл после программного нажатия кнопки загрузки, и, следовательно, не нужно знать URL для загрузки файла.

После того, как файл загружен, появляется подсказка и спрашивает, хотите ли вы сохранить файл, после нажатия «да», другая подсказка спрашивает, где вы хотите сохранить файл. Итак, файл загружается первым, может быть, где-то в буфер, после начальной загрузки появляются подсказки.

Итак, как только вы нажмете кнопку, как вы захватываете поток загрузки и сохраняете его как файл где-нибудь, без появления всплывающих подсказок?

(Любой метод для нажатия кнопки будет в порядке, следующее должно быть хорошо.)

procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
  ovLinks: OleVariant;
begin
  WebBrowser1.Navigate('The web page');
  //wait for page to down load
  ovLinks := WebBrowser1.OleObject.Document.all.tags('A');
  if ovLinks.Length > 0 then
  begin
    for x := 0 to ovLinks.Length-1 do
      begin
        if Pos('id of button', ovLinks.Item(x).id) > 0 then
        //or if Pos('href of button', ovLinks.Item(x).href) > 0 then
        begin
          ovLinks.Item(x).click;
          Break;
        end;
      end;
  end;
end;

Причина этого вопроса: URL файла не всегда может быть найден. Например: на этомВеб-сайтЯ не смог найти URL программно, но после нажатия кнопки экспорта, используя IE, файл был загружен в папку «Temporary Internet Files». В папке IE Temporary Internet Files есть столбец «Интернет-адрес», в котором отображается URL-адрес. Но в Chrome таких данных нет. НО, на этомВеб-сайтЯ могу найти URL-адрес программно, но когда я загружаю файл, нажимая «здесь», файл не появляется в папке «Temporary Internet Files» IE. Для других веб-сайтов URL-адрес можно найти в папке и найти его программно, но на других сайтах URL-адрес не может быть найден в любом случае.