Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
uups hab was vom source vergessen, hier nochmal komplett:
var
intEnd, intFreq, intStart : Int64;
QueryPerformanceFrequency(intFreq);
If gsPerformCheck = 'YES' Then QueryPerformanceCounter(intStart);
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
Meine Lösung wäre jetzt die folgende um über den QueryPerformanceCounter ein Performance Ergebnis in Sekunden zu bekommen:
var
intEnd, intFreq, intStart : Int64;
If gsPerformCheck = 'YES' Then QueryPerformanceCounter(intStart);
If gsPerformCheck = 'YES' Then
Begin
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
Ok, jetzt hats klick gemacht, peinlich :oops: :oops: :oops:
Also wäre es so sinnvoller?
var
wrdStart, wrdEnd : DWord;
If gsPerformCheck = 'YES' Then wrdStart := GetTickCount();
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
Ok, aber wenn gecastet wird ist das doch egal???
Sorry ich verstehs grad net ganz...
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
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())
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
Also das mit dem Cast habe ich gerade wie folgt ausprobiert und das Ergebnis erscheint mir plausibel:
//Start Zeit
If gsPerformCheck = 'YES' Then giTimerStart := Integer(GetTickCount());
//Differenz
If gsPerformCheck = 'YES' Then
Begin
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
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?
Forum: Object-Pascal / Delphi-Language
by Andidreas,
15. Jan 2014
Hallo,
ich habe folgendes Problem...
Ich hab einen Service Programmiert der auf einem Windows Server 2008 R2 läuft...
Um die Performance meines Services zu überprüfen arbeite ich mit dem GetTickCount um die Start- und Endzeit zu stoppen...
Nun das kuriose...
Manchmal kann der Service ausgeführt werden, manchmal hängt er sich auf...
Aufhängen tut sich der Service an der Stelle wo ich...