2

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

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;

所以我的问题是：当我点击按钮时，程序没有下载文件。我试图下载到另一个目录，我试图下载其他文件但没有。我无法让它工作。

我究竟做错了什么？

请帮我！

4

1 回答 1

2

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

要调查您的本地问题，您需要记下 function 返回的值UrlDownloadToFile。这是一个HRESULT并且S_OK表示成功。其他值表示失败。一旦你知道错误代码是什么，你应该能够追踪你的问题。

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

于 2013-07-23T15:55:24.317 回答