delphi - 在 Delphi XE2中,UrlDownloadToFile不工作?

  显示原文与译文双语对照的内容
0 0

我正在尝试用 Delphi XE2从internet下载一个文件,但没有发生任何事情。 这是我的代码:

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

我的问题是:当我点击按钮时,程序不会下载文件。 我试图下载到其他目录,我尝试下载其他文件但没有。 我不能让它工作。

我做错什么了?

请帮助我 !

时间:原作者:1个回答

0 0

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

要调查本地问题,你需要记录函数 UrlDownloadToFile 返回的值。 这是 HRESULTS_OK 表示成功。 它的他值表示失败。一旦知道错误代码是什么,就应该能够跟踪问题。

已经经说过,UrlDownloadToFile 似乎没有好的工作返回有意义的错误代码。 例如如果使 DestFile 成为非existant文件夹的路径,则函数仍然返回 S_OK

原作者:
...