用delphi UrlDownloadToFile编写的下载程序

unitUnit1; interfaceusesWindows，消息，SysUtils，变体，类delphi下载文件，图形，控件，窗体，对话框，UrlMon，ShellApi，StdCtrls； typeTForm1 =类（TForm）Button1: TButton;程序... unit Unit1;

界面

使用

Windows，消息，SysUtils，变体，类，图形，控件，表单，

对话框，UrlMon，ShellApi，StdCtrls;

类型

TForm1 =类（TForm）

Button1: TButton；

过程Button1Click（发件人: TObject）；

私人

{私人声明}

公开

{公共声明}

end;

var

Form1: TForm1；

实现

{$ R * .dfm}

函数DownloadFile（SourceFile，DestFile: String）: 布尔值；

开始

尝试

结果: = UrlDownloadToFile（无，PChar（源文件），Pchar（DestFile），0，无）= 0；

除

结果: = False;

end;

end;

过程TForm1.Button1Click（发件人: TObject）；

Var

SourceFile，DestFile: 字符串；

开始

SourceFile: ='#39 ;;

DestFile: ='C: \ Documents and Settings \ Administrator \ Desktop \ Downloader';

如果是DownloadFile（SourceFile，DestFile）delphi下载文件，则

开始

ShowMessage（“下载成功”）；

结束

其他

ShowMessage（“下载错误”）；

end;

结束.

问题出在哪里？为什么下载不总是失败？浏览器可以直接下载. 程序始终在else下执行语句

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/jisuanjixue/article-147668-1.html