Hi,
es gibt von Luckie so ein schönes Beispiel, wo beim
FTP-upload der Status und der Uploadfortschritt angezeigt wird:
Die Fortschrittsanzeige der Progressbar wird durch Properties von IdFTP realisiert und zwar mit folgenden Methoden:
Delphi-Quellcode:
procedure TFormFTPTransfer.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar.Position := AWorkCount;
Application.ProcessMessages;
end;
procedure TFormFTPTransfer.IdFTPWorkEnd(Sender: TObject;
AWorkMode: TWorkMode);
begin
ProgressBar.Position := 0;
end;
procedure TFormFTPTransfer.IdFTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar.Max :=AWorkCountMax;
end;
Meines Erachtens müsste das Ganze doch beim Download ebenso funzen, tut es aber nicht, die Fortschrittsanzeige bewegt sich nicht.
Die Frage ist jetzt, warum wohl nicht...
Gruß
Wolle