ftp下载文件(100)

AWorkCountMax怎么总是0；怎么解决，把事件单独赋给他也不行。有人说用size，这个怎么做进程条呢？请高手指教下谢谢

if IdFTP1.Connected then IdFTP1.Disconnect; idftp1.Connect; BytesToTransfer := IdFTP1.Size(pri_ExeftpPath); idftp1.Get(pri_ExeftpPath,ExtractFilePath(application.ExeName)+'emergency.exe',true); idftp1.Disconnect;//----------------------------------procedure TFormUpdate.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);begin STime := Now; if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax else ProgressBar1.Max := BytesToTransfer;end;/----------------------------------

解决散分

恭喜，接分。

接分

把分都给我把！谢谢

多人接受答案了。