delphi - UrlDownloadToFile 在 Delphi XE2 中不起作用？

Question

我正在尝试使用 Delphi XE2 从互联网下载文件，但没有任何反应。这是我的代码:

uses URLMon;

...

procedure TForm1.Button1Click(Sender: TObject);
Const
  SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
  DestFile = 'c:\download\home_title.gif';
begin
  UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil);
end;

所以我的问题是:当我单击按钮时，程序不下载文件。我尝试下载到另一个目录，我尝试下载其他文件，但什么也没有。我无法让它工作。

我做错了什么？

请帮助我!

Answer 1

你的代码工作正常。问题很可能是本地问题。也许是你的网络连接有问题。或者目录'c:\download' 可能不存在。

要调查您的本地问题，您需要记下函数 UrlDownloadToFile 返回的值。这是一个 HRESULT，S_OK 表示成功。其他值表示失败。一旦知道错误代码是什么，您应该能够找到问题所在。

话虽如此，UrlDownloadToFile 似乎并没有很好地返回有意义的错误代码。例如，如果您将 DestFile 设置为包含不存在文件夹的路径，则该函数仍返回 S_OK。