Zitat von
Unrealer:
Ich sehe nirgends in dem Quellcode wie weit der Fortschrittsbalken gehen soll. Vielleicht liegts ja daran.
Ne? Das steht in der letzten Methode:
Delphi-Quellcode:
procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar.Max :=AWorkCountMax;
end;
Und da scheint der Hund auch begraben zu sein, der Wert wird nämlich im OnWorkBegin-Ereigniss nicht ermittelt, steht somit auf Null. Beim Upload wird der Wert im Gegensatz dazu richtig ermittelt...