Delphi Dauert Sleep(1) auf allen Windows /Rechnersystemem 1ms?

Thema durchsuchen

Ansicht

Themen-Optionen

Dauert Sleep(1) auf allen Windows /Rechnersystemem 1ms?

Ein Thema von DelphiManiac · begonnen am 2. Aug 2007 · letzter Beitrag vom 3. Aug 2007

Vorheriger Beitrag

Nächster Beitrag

SirThornberry

(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge

Delphi 2006 Professional

#11

Re: Dauert Sleep(1) auf allen Windows /Rechnersystemem 1ms?

3. Aug 2007, 08:01

ich hab mir für soetwas folgende Funktion geschrieben:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TClassName.LoopWait(AMicroseconds: Cardinal);

var

  lCur,

  lTo   : Int64;

begin

  QueryPerformanceCounter(lTo);

  lTo := Round(lTo + fFrequency / 1000 * AMicroseconds);

  repeat

    QueryPerformanceCounter(lCur);

  until (lCur >= lTo);

end;

fFrequency wird vorher mit QueryPerformanceFrequency ermittelt.
Wobei ich grad am überlegen bin ob die "1000" da vielleicht doch falsch ist und nicht "1000 * 1000" heißen müsste.