爲了增加安德烈亞斯評論,你還可以檢查出Delphi.About.com,有一個例子那裏下載一個文件,並顯示一個進度:http://delphi.about.com/cs/adptips2003/a/bltip0903_2.htm
「如果您需要將指定URL的內容保存到文件中並且能夠跟蹤下載進度,請使用TDownLoadURL Delphi動作 TDownLoadURL正在寫入指定文件時,它會定期生成一個OnDownloadProgress事件,以便您可以向用戶提供關於該過程的反饋。 下面是一個示例 - 請注意,您必須在使用條款中包含單元ExtActns。「
uses ExtActns, ...
type
TfrMain = class(TForm)
...
private
procedure URL_OnDownloadProgress
(Sender: TDownLoadURL;
Progress, ProgressMax: Cardinal;
StatusCode: TURLDownloadStatus;
StatusText: String; var Cancel: Boolean) ;
...
implementation
...
procedure TfrMain.URL_OnDownloadProgress;
begin
ProgressBar1.Max:= ProgressMax;
ProgressBar1.Position:= Progress;
end;
function DoDownload;
begin
with TDownloadURL.Create(self) do
try
URL:='http://0.tqn.com/6/g/delphi/b/index.xml';
FileName := 'c:\ADPHealines.xml';
OnDownloadProgress := URL_OnDownloadProgress;
ExecuteTarget(nil) ;
finally
Free;
end;
end;
http://stackoverflow.com/questions/3506251/downloading-a-file-in-delphi,http://stackoverflow.com/questions/4521535/delphi-file-downloader-component,等等 – 2011-05-15 10:32:09