Hi!
Mal wieder plagt mich ein Problem:
Und zwar will die Fortschrittsanzeige ganz und gar nicht den Fortschritt anzeigen, seht selbst:
Der Upload funzt mit Statusanzeige, ansonsten gar nix. Außerdem zeigt er die Geschwindigkeit falsch an.
Woran kanns liegen?
Delphi-Quellcode:
PROCEDURE TForm3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
CONST AWorkCount: Integer);
VAR S: STRING;
TotalTime: TDateTime;
H, M, Sec, MS: Word;
DLTime: Double;
BEGIN
//Errechnen der Transfergeschwindigkeit:
TotalTime := Now - STime;
DecodeTime(TotalTime, H, M, Sec, MS);
Sec := Sec + M * 60 + H * 3600;
DLTime := Sec + MS / 1000;
IF DLTime > 0 THEN
AverageSpeed := (AWorkCount / 1024) / DLTime;
S := FormatFloat('0.00 KB/s', AverageSpeed);
CASE AWorkMode OF
wmRead: Form1.Lbspeed.Caption := 'Download speed ' + S;
wmWrite: Form1.Lbspeed.Caption := 'Upload speed ' + S;
END;
//Aktualisieren der Fortschrittsanzeige:
Form1.ProgressBar1.Position := AWorkCount;
END;
////////////
PROCEDURE TForm3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
CONST AWorkCountMax: Integer);
BEGIN
Form1.ProgressBar1.Max := AWorkCountMax;
Form1.ProgressBar1.Position := 0;
END;
Hier gibts den Client
Danke schonmal!
Lamy