also in
i sollte drinstehn, wieviel ByteProSekunde es seit dem letzten Aufruf waren
und Sleep sollte dann einfach nur solange warten, bis die Rate stimmt ... also bis soviel Zeit abgelaufen ist, wie zuletzt Daten übertragen wurden...
OK, die ein 1 Millisekunde kann man zur Behebung des 0-Fehlers ruhig pauschal einrechnen ... macht wohl sonst nicht soviel aus.
probieren wir es mal so
Delphi-Quellcode:
begin
i := (AWorkCount - CountAtLastWorkEvent) * 1000 div (GetTickCount - WorkTime + 1);
If i > MaxBytesPerSecond Then
Sleep((AWorkCount - CountAtLastWorkEvent) * 1000 div MaxBytesPerSecond
- (GetTickCount - WorkTime));
WorkTime := GetTickCount;
CountAtLastWorkEvent := AWorkCount;
end;
// zeit, welche für diese Datenmenge benötig hätte werden müssen
(AWorkCount - CountAtLastWorkEvent) * 1000 div MaxBytesPerSecond
// abzüglich der Zeit, welche schon vergangen ist
- (GetTickCount - WorkTime)
// glaub ich