在 Delphi 中下载文件

Question

谷歌搜索显示了一些关于如何在 Delphi 中下载文件的示例，但大多数都是错误的，而且根据我的经验，有一半的时间不起作用。

我正在寻找一个简单而强大的解决方案，它可以让我下载一个 exe（用于更新我的应用程序），并且会保持当前更新线程的执行，直到下载完成或出错。该进程已经线程化，因此下载代码应该一直执行到它完成（希望如此）。

这里有两个实现，看起来都很复杂
1.http://www.scalabium.com/faq/dct0116.htm
2.http://delphi.about.com/od/internetintranet/a/get_file_net.htm

Answer 1

为什么不使用 Indy？如果你使用TIdHTTP组件，很简单：

procedure TMyForm.DownloadFile;    
var
  IdHTTP1: TIdHTTP;
  Stream: TMemoryStream;
  Url, FileName: String;
begin    
  Url := 'http://www.rejbrand.se';
  Filename := 'download.htm';

  IdHTTP1 := TIdHTTP.Create(Self);
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.Get(Url, Stream);
    Stream.SaveToFile(FileName);
  finally
    Stream.Free;
    IdHTTP1.Free;
  end;
end;

您甚至可以使用OnWork 和OnWorkBegin 事件添加进度条：

procedure TMyForm.IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;AWorkCountMax: Int64);
begin
  ProgressBar.Max := AWorkCountMax;
  ProgressBar.Position := 0;
end;

procedure TMyForm.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
  ProgressBar.Position := AWorkCount;
end;

procedure TMyForm.DownloadFile;    
var
  IdHTTP1: TIdHTTP;
  Stream: TMemoryStream;
  Url, FileName: String;
begin    
  Url := 'http://www.rejbrand.se';
  Filename := 'download.htm';

  IdHTTP1 := TIdHTTP.Create(Self);
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.OnWorkBegin := IdHTTPWorkBegin;
    IdHTTP1.OnWork := IdHTTPWork;
    IdHTTP1.Get(Url, Stream);
    Stream.SaveToFile(FileName);
  finally
    Stream.Free;
    IdHTTP1.Free;
  end;
end;

我不确定这些事件是否在主线程的上下文中触发，因此对 VCL 组件所做的任何更新都可能必须使用 TIdNotify 组件来完成以避免线程问题。也许其他人可以检查一下。

Answer 2

第二种方法是使用 WinINet（Windows API 的一部分）使用 Internet 资源的标准方法。我用过很多次，而且一直都很好用。我从未尝试过的第一种方法。 （两者都不是“非常复杂”。使用 Windows API 时总会有一些额外的步骤。）

如果你想要一个非常简单的方法，你可以简单地调用UrlMon.URLDownloadToFile。您将无法（完全！）对下载进行任何精细控制，但它非常简单。

例子：

URLDownloadToFile(nil,
                  'http://www.rejbrand.se',
                  PChar(ExtractFilePath(Application.ExeName) + 'download.htm'),
                  0,
                  nil);

Answer 3

对于有更高版本的delphi的人，你可以使用这个：

var
  http : TNetHTTPClient;
  url : string;
  stream: TMemoryStream;
begin
  http := TNetHTTPClient.Create(nil);
  stream := TMemoryStream.Create;
  try
    url := YOUR_URL_TO_DOWNLOAD;
    http.Get(url, stream);
    stream.SaveToFile('D:\Temporary\1.zip');
  finally
    stream.Free;
    http.Free;
  end;
end;

Answer 4

使用 URLMon。

errcode := URLMon.URLDownloadToFile(nil,
                      PChar('http://www.vbforums.com/showthread.php?345726-DELPHI-Download-Files'),
PChar( 'a:\download.htm'),
      0,
      nil);
if errcode > 0 then
      showmessage('Error while downloading: ' + inttostr(errcode));