Fortschrittsanzeige in ProgressBar

[TheProfi]

Hi,

ich habe das gleiche Problem. Die Variable AWorkCountMax ist immer 0. Transfermode Ascii und Binary ausprobiert.
Ich setze Delphi 2010 und Indy 10.x ein. Hat jemand eine Idee?

Delphi-Quellcode:

procedure TF_INUpdate.FTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  pb_2.Max := AWorkCountMax;
  pb_2.Position := 0;
  pb_2.Refresh;

[RWarnecke]

Dieser Beitrag in der Code-Lib sollte euer Problem lösen.