Re: GetTickCount
- From: "Hubert Seidel" <nospam@xxxxxxxxxxxxxxxx>
- Date: Thu, 4 Dec 2008 20:52:53 +0100
Hallo Marian,
"Marian Aldenhövel" <asdsad@xxxxxxxxxxx> schrieb im
Newsbeitrag news:gh8qcs$clc$2@xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Mir wurde erzählt, dass z.B. eine Atomuhr, die eine zu
schnelle RTC korregiert dazu führen kann, stimmt das?
Die Doku sagt zu GetTickCount():
The resolution is limited to the resolution of the system timer.
This value is also affected by adjustments made by the
GetSystemTimeAdjustment function.
Erscheint mir komisch, aber steht da.
Mir auch. Meine Doku findet den Text zu GetSystemTimeAdjustment
welches aber nichts zu GetTickCount aussagt.
Die Doku von GetTickCount sagt bei mir:
The GetTickCount retries the number of milliseconds that have elapsed
since Windows was started.
und dann noch das es nach 49.7 Tage überläuft.
Wenn ich mit 64Bit-Genauigkeit und Präzision von GetTickCount
wissen möchte wie lange eine Anwendung läuft, dann mache ich das damit:
##############################################
unit ugrt64;
interface
/////////////////////////////////////////////////////
// written by www.hubert-seidel.de 2007 //
// Gibt die Laufzeit in Millisekunden zurück //
// Zwischen zwei Aufrufe sollten nicht mehr als //
// 24 Tage vergehen (hälfte Überlauf GetTickCount) //
/////////////////////////////////////////////////////
function GetRunTime64:int64;
implementation
uses
Windows;
var
gRunTime64 : int64;
gLastTc : dword;
function GetRunTime64:int64;
var
tc:dword;
begin
tc:=gLastTc;
gLastTc:=GetTickCount;
gRunTime64:=gRunTime64 + (gLastTc - tc); // Klammer wichtig !!
Result := gRunTime64;
end;
procedure init;
begin
gRunTime64 := 0;
gLastTc := GetTickCount;
end;
initialization init;
end.
##############################################
mfg.
Herby
--
http://www.hubert-seidel.de
.
- Follow-Ups:
- Re: GetTickCount
- From: Hans-Peter Diettrich
- Re: GetTickCount
- References:
- GetTickCount
- From: Arno Garrels
- Re: GetTickCount
- From: Marian Aldenhövel
- GetTickCount
- Prev by Date: Re: GetTickCount
- Next by Date: Re: Unicode nach Latin-1 konvertieren
- Previous by thread: Re: GetTickCount
- Next by thread: Re: GetTickCount
- Index(es):
Relevant Pages
|
Loading