GetTickCount / Fehler bei Bereichsprüfung

[Andidreas]

Ich habs grad geprüft...
Der Windows 2008 R2 Server wurde das letzte mal am 15.12. neu gestartet...

@DeddyH
Danke für den Tipp, werd ich gleich mal ausprobieren...
Wenn Deine Variante Funktioniert, muss man da was richtung Uptime berücksichtigen?

[DeddyH]

Welche Variante meinst Du, den Cast? Nunja, nach einer Uptime von knapp 25 Tagen wird das Ergebnis dann negativ, das Kernproblem bleibt also. Spricht denn etwas gegen GetTickCount64 wie von MS empfohlen?

[himitsu]

Bei dem expliziten Integer-Cast wird der binäre Wert in der Variable nicht verändert.

Man stellt da nur vor der Zuweisung die Interpretierung des höchsten Bits um, womit dann die Wertebereiche zusammen passen.

Stell dir es so vor:
Delphi erkennt, daß die beiden Typen nicht zusammen passen und macht intern aus deinem

MyInteger := MyCardinal;

ein

Delphi-Quellcode:

TempInt64 := MyCardinal;
if (TempInt64 < Low(MyInteger)) or (TempInt64 > High(MyInteger)) then
  raise exception....;
MyInteger := Integer(TempInt64);

MyInteger := Integer(MyCardinal); tut jetzt so, als seien die 4 Byte in MyCardinal schon ein Integer, womit das gleich da rein passt.

[DeddyH]

Welche Variante meinst Du, den Cast? Nunja, nach einer Uptime von knapp 25 Tagen wird das Ergebnis dann negativ, das Kernproblem bleibt also. Spricht denn etwas gegen GetTickCount64 wie von MS empfohlen?

[Andidreas]

Also das mit dem Cast habe ich gerade wie folgt ausprobiert und das Ergebnis erscheint mir plausibel:

Delphi-Quellcode:

//Start Zeit  
If gsPerformCheck = 'YES' Then giTimerStart := Integer(GetTickCount());

//Differenz
If gsPerformCheck = 'YES' Then
Begin
  gdblTimeDiff := ((Integer(GetTickCount()) - giTimerStart)/1000);
  prMsgLog(MySQL_Database, tyINF, 99999, '', FloatToStrF(gdblTimeDiff, ffFixed, 5, 3), 'Delete Master Data Tables', gbBlckInfoMsg);
End;

Ich bräuchte eine Lösung die sowohl auf einem Windows 2003 Server als auch auf einem Windows 2008 R2 Server läuft...
Geht das mit dem GetTickCount64 in beiden Systemen (2003 & 2008)?

[DeddyH]

Laut MSDN leider erst ab Windows Server 2008.
[edit] Vielleicht könnte man aber auch auf QueryPerformanceCounter/QueryPerformanceFrequency ausweichen, damit sollte das Problem eigentlich nicht bestehen. [/edit]

[Andidreas]

Wenn ich himitsu jetzt richtig verstanden habe, dann wäre doch meine Berechnung nach dem Casten wieder richtig oder sehe ich das falsch.

Spricht dann was dagegen wenn ich es so lasse wie ich es vorhin gepostet habe? Also den GetTickCount immer so abzufragen:
Integer(GetTickCount())

[himitsu]

Ja, das geht ... also entweder die Variable auf DWORD/Cardinal ändern oder das Funktions-Ergebnis nach Integer casten.

Aber, wie gesagt, du mußt auch bei den Berechnungen auspassen. (auch wenn da die Wahrscheinlichkeit viel kleiner ist, daß du diesen kleineren Zeitraum auch nochmal triffst, dort nach den fast genau 49.7 Tagen)

[DeddyH]

Wie von himitsu schon angedeutet musst Du dann aber berücksichtigen, dass der Wert nach 24,85 Tagen negativ wird und GetTickCount nach 49,7 Tagen wieder bei 0 beginnt.

[Andidreas]

Zitat von DeddyH:

Wie von himitsu schon angedeutet musst Du dann aber berücksichtigen, dass der Wert nach 24,85 Tagen negativ wird und GetTickCount nach 49,7 Tagen wieder bei 0 beginnt.

Ok, aber wenn gecastet wird ist das doch egal???
Sorry ich verstehs grad net ganz...