Delphi从Internet下载文件

今天在做拍卖系统的时候，因考虑到网络状况问题，需要将拍品所有信息下载到本机，包括拍品图片，因此需要实现从Internet下载文件的功能。

下面是代码片段：

1 ..
2
3 private
4 function DownloadFile(SourceFile, DestFile: string): Boolean;
5 procedure URL_OnDownloadProgress(Sender: TDownLoadURL;
6 Progress, ProgressMax: Cardinal;
7 StatusCode: TURLDownloadStatus;
8 StatusText: String; var Cancel: Boolean) ;
9 { Private declarations }
10
11 .
12
13 function TFrameChannel.DownloadFile(SourceFile, DestFile: string): Boolean;
14 var
15 hasError: boolean;
16 begin
17 hasError:=false;
18 with TDownloadURL.Create(self) do
19 try
20 URL:=SourceFile;
21 FileName := DestFile;
22 OnDownloadProgress := URL_OnDownloadProgress;
23 ExecuteTarget(nil) ;
24 except on e: Exception do begin
25 FormMain.SetStatusInfo(e.Message);
26 Free;
27 hasError:=true;
28 end;
29 end;
30 Result := not hasError;
31 end;
32
33 procedure TFrameChannel.URL_OnDownloadProgress;
34 begin
35 Application.ProcessMessages;
36 end;
37
38 调用时：
39 ofname:='http://www.aaa.com/1.jpg';
40 nfname:='images\1.jpg';
41 if not DownloadFile(ofname, nfname) then
42 showMessage('Error')
43 end
44 showMessage('OK');
45

注：以上程序在大文件下载过程不会死锁，而且你可以在URL_OnDownloadProgress函数中用参数来处理自已的进度条以显示下载进度。因为我的程序不需要，所以没有写出来。

/article/4888947.html