Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Zeitmessung unabhängig von der Uhrzeit (https://www.delphipraxis.net/197618-zeitmessung-unabhaengig-von-der-uhrzeit.html)

BigAl 22. Aug 2018 11:05

Zeitmessung unabhängig von der Uhrzeit
 
Hallo zusammen,

zur Implemnentiertung von diversen Timern benötige ich eine Zeitmessung, welche unabhängig von der Uhrzeit funktioniert. Mit "Uhrzeit" meine ich LocalTime oder SystemTime. Diese können ja durch diverse Ereignisse verstellt werden. LocalTime z.B. durch die Synchronisation mit einem Zeitserver, SystemTime durch die Umstellung von Sommer/Winter usw.. Den Zeitstempel via "Now" zu erfassen ist also keine gute Idee.

Mein Gedanke wäre die Messung via TStopwatch zu machen. Allerdings bin ich mir nicht ganz sicher wie TStopwatch bei Zeitmessungen über einen längeren Zeitraum reagiert. Die Zielapplikation rennt im Dauerbetrieb. Sind bei TStopwatch irgendwelche Überläufe zu erwarten? Wo sind die Grenzen?

Vielleicht hat ja schonmal jemand was ähnliches gemacht. Wie gesagt: Die Applikation rennt im Dauerbetrieb. Die zu messenden Zeiten sind im Bereich von einer Sekunde bis zu einem Tag (86400 Sekunden). Eine Auflösung von einer Sekunde reicht. Allerdings sollte die Messung möglichst genau sein (max. +/- 1/10 Sek.).

Im Voraus schonmal Danke für Eure Antorten.

Alex

Aviator 22. Aug 2018 11:13

AW: Zeitmessung unabhängig von der Uhrzeit
 
TStopWatch ist eigentlich nicht falsch. Die liefert dir die Ticks seit dem Start. Der Datentyp ist ein Int64. Von daher also ziemlich groß und für dein Vorhaben ausreichend. Alternativ kannst du auch selbst per GetTickCount64 die Ticks abrufen und dann mit einem Timer jede Sekunde pollen.

http://docwiki.embarcadero.com/Libra...ics.TStopwatch
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

KodeZwerg 22. Aug 2018 11:36

AW: Zeitmessung unabhängig von der Uhrzeit
 
Falls es hilft, bei GetTickCount ist nach 49,7 Tagen Schluss wegen 32bit DWORD und es fängt wieder bei Null an.
Also sollte mit der 64er Variante bzw TStopWatch dort kein Problem bestehen und Du hast es je nach Auswertung auch MilliSekunden genau.

Der schöne Günther 22. Aug 2018 11:38

AW: Zeitmessung unabhängig von der Uhrzeit
 
Zitat:

Zitat von BigAl (Beitrag 1411307)
Die Zielapplikation rennt im Dauerbetrieb. Sind bei TStopwatch irgendwelche Überläufe zu erwarten? Wo sind die Grenzen?

Schau doch mal in die Implementierung. Intern arbeitet das Ding mit einem
Delphi-Quellcode:
Int64
für "Ticks". Ein Tick ist eine 1/10 Mikrosekunde. GetTickCount() wird nicht verwendet.


Ein Int64 kann maximal 9.223.372.036.854.775.807 groß werden.

Das reicht eine Weile.

BigAl 22. Aug 2018 13:00

AW: Zeitmessung unabhängig von der Uhrzeit
 
Super!

Vielen Dank für die Antworten. Für meinen speziellen Anwendungsfall ist GetTickCount64() genau das Richtige. Ich will im Wesentlich die Vergangene Zeit ab einem bestimmten Punkt messen (typische TStopwatch-Anwendung). TStopwatch ist etwas verwirrend, da intern auch mit GetTickCount() abgefragt wird falls FIsHighResolution = False ist. Allerdings sollte das seit XP nicht mehr der Falls sein :-).

Alex

Michael II 22. Aug 2018 13:48

AW: Zeitmessung unabhängig von der Uhrzeit
 
Hallo BigAl

beachte dabei, dass GetTickCount64 erst ab Vista verfügbar ist (d.h. unter XP nicht).

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

siehe dazu u.a.

https://www.delphipraxis.net/194048-...indows-xp.html


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz