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。