控制文件下载

Question

我正在使用TWebBrowser为我的程序构建更新程序.OnCreate TWebBrowser导航到给定的URL.要下载更新,用户需要单击链接.单击链接时,将显示以下弹出窗口:

所以我想知道是否有可能:

1. 绕过该弹出窗口并允许自动下载.
2. 设置文件将下载到的固定路径.

Answer 1

我会使用Indy的TIdHTTP组件,例如:

uses
  ..., IdHTTP;

var
  Url, LocalFile: String;
  Strm: TFileStream;
begin
  Url := ...;
  LocalFile := ...;
  Strm := TFileStream.Create(LocalFile, fmCreate);
  try
    try
      IdHTTP.Get(Url, Strm);
    finally
      Strm.Free;
    end;
  except
    DeleteFile(LocalFile);
    raise;
  end;
end;