ftp下载过程中，然后显示进度？

[luz331]

就是ftp在下载单个文件 的过程中，如何用进度条或百分比显示进度

用NMFTP或Idftp都可，进度条用progressbar

不胜感激！

[paranoia190]

up

[smiler007]

IDFTP， Delphi6带有示例，D7可到INDY的网站看DEMO

[luz331]

没找到示例，麻烦你帖出来，谢谢！

[何鲁青]

procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
Var
S: String;
TotalTime: TDateTime;
H, M, Sec, MS: Word;
DLTime: Double;
begin
TotalTime := Now - STime;
DecodeTime(TotalTime, H, M, Sec, MS);
Sec := Sec + M * 60 + H * 3600;
DLTime := Sec + MS / 1000;
if DLTime > 0 then
AverageSpeed := (AWorkCount / 1024) / DLTime;
if AverageSpeed > 0 then begin
Sec := Trunc(((ProgressBar1.Max - AWorkCount) / 1024) / AverageSpeed);
S := Format('%2d:%2d:%2d', [Sec div 3600, (Sec div 60) mod 60, Sec mod 60]);
S := '剩余时间： ' + S;
end
else S := '';
S := FormatFloat('0.00 KB/s', AverageSpeed) + '; ' + S;
case AWorkMode of
wmRead: StatusBar1.Panels[1].Text := '下载速度：' + S;
wmWrite: StatusBar1.Panels[1].Text := '上传速度：' + S;
end;
if AbortTransfer then
IdFTP1.Abort;
ProgressBar1.Position := AWorkCount;
AbortTransfer := false;
end;
/////////////关键代码如上，如果想要例子，留下E-Mail

[luz331]

[e-mail]
谢谢！