AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Delphi Zeit mit Genauigkeit von 100 Mikrosekunden (Now Ersatz)
Thema durchsuchen
Ansicht
Themen-Optionen

Zeit mit Genauigkeit von 100 Mikrosekunden (Now Ersatz)

Ein Thema von stoxx · begonnen am 11. Mär 2010 · letzter Beitrag vom 11. Mär 2010
 
Vorheriger Beitrag Vorheriger Beitrag   Nächster Beitrag Nächster Beitrag
Benutzerbild von stoxx
stoxx

Registriert seit: 13. Aug 2003
1.111 Beiträge
 
#1

Zeit mit Genauigkeit von 100 Mikrosekunden (Now Ersatz)

  Alt 11. Mär 2010, 12:33
Wenn man häufige Zeitstempel benötigt, dann sind die Windows Funktionen (damit auch now unter Delphi) völlig ungeeignet und liefern nur alle 16 ms eine unterscheidbare Zeit.

Also habe ich mal eine Zeitmessung mit 100 Mikrosekunden Genauigkeit entworfen.
Was 10 Zeitstempeln in einer Millisekunde entspricht.



Das ganze wird über Queryperformancecounter realisiert und über eine Synctime.


Um das Problem zu verdeutlichen, es geht um folgende TestCode:

zusammenfalten · markieren
Delphi-Quellcode:
procedure TForm15.TEstClick(Sender: TObject);
var
  sl : TStringList;
  cnt : Integer;
  zeit, zeit2 : TDAteTime;
  zeit3 : DATETIME;
begin

   cnt := 0;
   sl := TStringList.Create;

   while true do begin
      inc(cnt);
      zeit := Now;
      zeit2 := NowHiRes;
      zeit3 := NowHiRes;

      sl.Add( 'Now Normal Res: ' + FormatDateTime('hh:nn:ss zzzz', zeit ) +
            ' - Now High Res : ' + FormatDateTime('hh:nn:ss zzzz', zeit2 ) +
            ' - NowDT HiRes: ' + zeit3.ToString('hh:nn:ss zzzz'));

      if cnt > 50000 then begin
          memo1.Lines.Text := sl.Text;
          break;
      end;
   end;
   sl.free;
end;
dieser erzeugt folgende Ausgabe


zusammenfalten · markieren
Delphi-Quellcode:
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3120
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3120
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3120
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3121
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3122
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3123
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3124
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 312 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 312 - NowDT HiRes: 13:17:36 3125
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3126
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3127
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3128
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129
Now Normal Res: 13:17:36 328 - Now High Res : 13:17:36 313 - NowDT HiRes: 13:17:36 3129

man sieht folgendes Problem:

die Millisekunden bleiben lange zeit bei 312, und springen dann irgendwann plötzlich auf 328.
die Funktion NowHiRes zählt aber 100 Mikrosekunden weise hoch.
erst 3120 und das nächste ist 3121

Bei der Formatierung auf Mikrosekunden hatte ich im Moment keine Lust, nachzudenken.

Nur bitte nicht wunden, um die Mikrosekunden auszugeben, habe ich mal schnell
meine eigene DATETIME Klasse benutzt, die auf Integerbasis mit 6 Byte Größe auf 100 Mikrosekunden Genauigkeit ausgelegt ist. (Ersparnis von 2 Byte gegenüber Double).
Die Genauigkeit steckt aber garantiert im Double Wert drin! Auch wenn sich der geneigte Leser noch eine eigene Ausgabe basteln muss.


so, nun zur eigentlichen Funktion NowHiRes:
(Zuweisebare typisierte Konstanten müssen angekreuzt sein, oder man baut den Code um auf globael Variablen)


zusammenfalten · markieren
Delphi-Quellcode:
function Inc100MicroSeconds(const AValue: TDateTime; const ANumberOf100Microseconds: Int64): TDateTime;
begin
  Result := ((AValue * MSecsPerDay * 10) + ANumberOf100Microseconds) / (MSecsPerDay * 10);
end;

//==============================================================================

function NowHiRes : Double;
const
  frequency : TLargeInteger = 0;
  Sync : TLargeInteger = 0;
  Current : TLargeInteger = 0;
  SyncTime : Double = 0;
  LastRequestetTime : Double = 0;

begin

  if frequency = 0 then begin
      QueryPerformanceFrequency(frequency);
  end;

  if SecondsBetween(now, syncTime) > 30 then begin
     QueryPerformanceCounter(Sync);
     result := now;
     SyncTime := result;

     if result <= LastRequestetTime then begin
         result := Inc100MicroSeconds(LastRequestetTime,1);
         SyncTime := 0;
     end;

     LastRequestetTime := result;
  end else begin
     QueryPerformanceCounter(Current);
     Result := Inc100MicroSeconds(SyncTime, round( (Current - Sync) / Frequency * 10000));
     LastRequestetTime := result;

  end;
end;

//==============================================================================
Phantasie ist etwas, was sich manche Leute gar nicht vorstellen können.
  Mit Zitat antworten Zitat
 

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz