IndyFTP Fortschritt bei Upload

[jfheins]

Eigentlich sollte es so funktionieren:

Delphi-Quellcode:

var
  indy_FTPClient: TIdFTP;

procedure Tfo_uploader.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
  Application.ProcessMessages;
end;

procedure Tfo_uploader.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
end;

procedure Tfo_uploader.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
end; 

procedure Tfo_uploader.FormCreate(Sender: TObject);
begin
  indy_FTPClient := TIdFTP.Create;

  indy_FTPClient.OnStatus := IdFTP1Status;

  indy_FTPClient.OnWorkBegin := IdFTP1WorkBegin; // genauso wie die anderen beiden
  indy_FTPClient.OnWorkEnd := IdFTP1WorkEnd;
  indy_FTPClient.OnWork := IdFTP1Work;
end;

Aber das hast du bestimmt schon ausprobiert und verworfen (da du die Zuweisung bei den anderen beiden ja schon so machst) - oder?