Zitat von
Lamy:
Deine Tips haben leider keine Wirkung gezeigt
Macht nix, jetzt kommt Stufe 2:
Du musst sicherstellen dass die Variable
STime wirklich gesetzt wird; am Besten
macht man dies in
TForm3.IdFTP1WorkBegin:
STime := SysUtils.Now;
Dann muss du auf die Methoden TForm3.IdFTP1WorkBegin und TForm3.IdFTP1Work einen
Breakpoint
setzen und nachprüfen, ob die Methoden wirklich aufgerufen werden.
Im Einzelschrittmodus (F8 ) überprüfst du die Inhalte der Variablen
DLtime und
AWorkCount sowie
AverageSpeed. (liefert AWorkCount wirklich die Anzahl der Bytes ?)
Du musst sicherstellen, dass
AWorkMode wirklich den erwarteten Wert hat:
Delphi-Quellcode:
CASE AWorkMode OF
wmRead: Form1.Lbspeed.Caption := 'Download speed ' + S;
wmWrite: Form1.Lbspeed.Caption := 'Upload speed ' + S;
else
Form1.Lbspeed.Caption := 'unknown work mode'; // <== man weiss ja nie
END;