我用IDFTP控件，怎样取得下载或上传的进度吗？是在WORKBEGIN中写吗？

Question

？

Answer 1

以前做过，不过忘记了，大概其中一部分这样的，楼主大概参考一下吧，希望对你有启发，我比较忙，要不就帮你写清楚了，不好意思阿procedure TMainForm.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  TransferrignData := true;
  AbortButton.Visible := true;
  AbortTransfer := false;
  STime := Now;
  if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
  else ProgressBar1.Max := BytesToTransfer;
  AverageSpeed := 0;
end;procedure TMainForm.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  AbortButton.Visible := false;
  StatusBar1.Panels[1].Text := 'Transfer complete.';
  BytesToTransfer := 0;
  TransferrignData := false;
  ProgressBar1.Position := 0;
  AverageSpeed := 0;
end;

Answer 2

delphi自带的DEMO里面就有呀好像是FTPDemo目录!
仔细看看,很简单的...