Thema: Delphi Timer mit Auflösung 1ms

Einzelnen Beitrag anzeigen

Basilikum

Registriert seit: 9. Aug 2003
389 Beiträge
 
Delphi 7 Professional
 
#9

Re: Timer mit Auflösung 1ms

  Alt 26. Apr 2005, 13:33
Zitat von zarquon:
Allerdings habe ich mir dazu schon überlegt, den genauen ms-wert auch aus dem Timer zu ermitteln, entweder durch einen gut gewählten Intervall-Wert oder durch eine selbstkalibrierung (Ich warte mit der Systemuhr genau 1s und schaue, wieviele Events der Timer geliefert hat)
die "genauste" Zeit, die Deine PC-Hardware liefern kann, erhältst Du per API MSDN-Library durchsuchenQueryPerformanceFrequency / MSDN-Library durchsuchenQueryPerformanceCounter.

Beispiel:
Delphi-Quellcode:
Var
  Freq,
  PerfCount : Int64;
Begin
  QueryPerformanceFrequency(Freq); // Ticks per Sekunde

  For X:=1 TO 10000 Do Begin
    QueryPerformanceCounter(PerfCount);

    WriteLn(FormatFloat('0.0',PerfCount / Freq * 1000)); // * 1000 => Millisekunden
  end;
end;
  Mit Zitat antworten Zitat