Hm...
Habe das jetzt so implementiert aber nach etwa 30 Sekunden kommt die Fehlermeldung "Division by Zero" :X
Habe deswegen nun noch ein "+ 1 " eingefügt:
Delphi-Quellcode:
begin
i := (AWorkCount - CountAtLastWorkEvent) * 1000 div (GetTickCount - WorkTime + 1); // <--- hier +1
If i > MaxBytesPerSecond Then
Sleep((GetTickCount - WorkTime) * (i - MaxBytesPerSecond) div MaxBytesPerSecond);
WorkTime := GetTickCount;
CountAtLastWorkEvent := AWorkCount;
end;
Mal schaun ob das jetzt klappt
EDIT:
Hm... Also der Download ist schoneinmal reduziert. Auf etwa 0.5 - 1.0 kb/s. Jedoch unabhängig davon welchen Wert ich bei 'MaxBytesPerSecond' eingebe.