So, es liegt, wie gesagt an AWorkCountMax, wo bei einem
FTP-download immer der Wert Null drin steht. Die Progressbar kann somit nichts anzeigen.
ersetzt man in
Delphi-Quellcode:
procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar.Max :=AWorkCountMax;
end;
ProgressBar.Max :=AWorkCountMax;
durch
Delphi-Quellcode:
if AWorkCountMax > 0 then ProgressBar.Max := AWorkCountMax
else ProgressBar.Max := BytesToTransfer;
wobei BytesToTransfer vom Typ LongWord ist und nach dem Connect mit
BytesToTransfer:= IdFTP.Size(Datei);
ermittelt wird, funzt die Progressbar auch beim
FTP-Download...