Zitat von
Lamy:
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.
Versuch mal:
Delphi-Quellcode:
//Aktualisieren der Fortschrittsanzeige:
Form1.ProgressBar1.Position := AWorkCount;
// sichtbar machen
Form1.ProgressBar1.Refresh; // <===
Zitat von
Lamy:
Außerdem zeigt er die Geschwindigkeit falsch an.
Die Anzahl der Sekunden lässt sich einfacher so berechnen:
Delphi-Quellcode:
begin
//Errechnen der Transfergeschwindigkeit:
TotalTime := Now - STime;
DLTime := TotalTime*24.0*60.0*60.0; // =vergangene Zeit in Sekunden
IF DLTime > 0.0 THEN
AverageSpeed := (AWorkCount / 1024) / DLTime;
...
Form1.Lbspeed.Refresh;