GetTickCount64 liefert falsche Anzahl an Ticks

[Vamogu05]

Schönen, guten Tag,

ich dachte die Funktion GetTickCount64 von Lazarus soll unter Windows die Millisekunden seit dem letzten Einschalten des PCs liefern.
Ich habe dazu ein kleines Testprogramm geschrieben was diese Aussage nicht bestätigt.
Ich bekomme stark unterschiedliche Werte. Manchmal größer 400 Millionen. Das würde ca. 111 Stunden bedeuten. Der PC wird aber immer in der Nacht abgeschaltet.
Heute bekomme ich einen Wert von 72Mio. nach einer Einschaltzeit von ca. 3 Stunden.
Kann das mal jemand nachvollziehen welche Anzahl von Ticks bei Euch geliefert werden? Außerdem ist das von Tag zu Tag unterschiedlich.

Code: Alles auswählen

var Value: Int64;
begin
  Value:=GetTickCount64;
  Label1.Caption:=IntToStr(Value);
end;   

Ich verwende Lazarus in der Version 2.0.10, FPC-Version: 3.2.0.

Liebe Grüße

Hannes

[wp_xyz]

Vielleicht bist du ein Opfer der neuesten "Optimierung", den PC beim Herunterfahren nur schlafen zu legen, statt ihn wirklich auszuschalten. Mit solchen Tricks versucht man, die Zeit für das erneute Einschalten zu verkürzen (zumindest bei Windows). Wiederhole deinen Test einmal nach "Neu starten",

[Vamogu05]

Tatsächlich stimmen die Ticks nach einem Neustart.
Auf das wäre ich nie gekommen. Danke für die Erleuchtung.

Lg

Hannes

[Winni]

Hallo!

Zwei Anmerkungen:

Erstens ist der DatenTyp von getTickCount64 ein QWord und nicht ein Int64.
Da getTickCount64 aber einen Zeitraum von ~ 500 000 000 Jahren umfasst, spielt das erst ab der Hälfte dieses Zeitraum eine Rolle - also nie. Bei anderen Funktionen solltest Du aber genau auf den Typ des Rückgabewerts achten.

Zweitens wird getTickCount64 meistens für die Berechnung eines Zeitraums genutzt, so dass der Anfangswerts keine Rolle spielt. Beispiel:

Code: Alles auswählen

Procedure xyz;
var StartZeit, Differenz: QWord;
begin
StartZeit := getTickCount64;
// zeitfressende Berechnungen
Differenz := getTickCount64-StartZeit;
showMessage (IntToStr(Differenz));
end;

Winni

[Vamogu05]

Hallo Winni.

danke für die beiden Hinweise. Das könnte vielleicht mit meinem Problem zu tun haben. Ich habe eine "Warte-Funktion" geschrieben, die an manchen Tagen nicht richtig funktioniert:

Code: Alles auswählen

procedure TForm1.warte(n:Int64);
var diff,t: Int64;

    f: Single;
begin

    t:=GettickCount64();
    Shape6.Brush.Color:=$00FCEBCD;
    while (GettickCount64()<t+n*1000) and not Terminate do
    begin

      Application.ProcessMessages;
      diff:=(n*1000)-(Gettickcount64()-t);
      f:=diff/(n*1000)*Shape6Breite;
      Shape6.Width:=Round(f);
    end;
    Shape6.Width:=Shape6Breite; Shape6.Brush.Color:=$00FCEBCD;
end;  

In dieser Funktion stelle ich über ein Shape einen Countdown dar.
Ich denke, dass ich diese Funktion umschreiben sollte:
while (GetTickCount64()-t <n*1000 and not Terminate do

Könnte meine o.a. Funktion tatsächlich zu Problemen führen?
Lg Hannes

[Socke]

In Formularen solltest du auf Timer umstellen.

[siro]

Ich staune grade über GetTickCount64() mit Klammern
Ich wuste garnicht dass man bei Funktionen, die nur etwas zurück liefern, einen leeren Parameter angeben darf
und habe das grad mal probiert. Tatsächlich das funktioniert. Man lernt nie aus.
Vermutlich kommt der Hannes aus der C-Programmierung....

Code: Alles auswählen

function MyFunc:Int64;
begin
  result:=1234;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  caption:=IntToStr(MyFunc());   // oder halt IntToStr(MyFunc);
end;

[Winni]

Hallo!

Manche können anscheinend nicht lesen.

Also noch einmal:

function GetTickCount64: QWord;

Winni

[Winni]

Hi!

Ich hab den Code etwas überarbeitet.

* Eingabe von Sekunden: da langt ja wohl ein Word. MaxWord sind 18 Stunden. Oder möchtest Du länger warten?
* Die fehlerhaften Int64 durch QWord ersetzt
* Gleich mal n mit 1000 multipliziert, damit das nicht insgesamt dreimal passiert.
* Aufgeräumt mit deiner "Klammeritis"
* Unklar war, woher "Shape6Breite" kommt. Ich berechne das denn mal am Anfang der Procedure.

Ja, wie nennen wir das Ding denn nun? Countdown-rückwärts-Progressbar???

Code: Alles auswählen

procedure TForm1.warte(n:word);
var diff,t: Qword;
    Shape6Breite : Integer;
    f: Single;
begin
   n := n * 1000;
   Shape6Breite := shape6.width;
    t:=GettickCount64;
    Shape6.Brush.Color:=$00FCEBCD;
    while GettickCount64<t+n  do
    begin
      Application.ProcessMessages;
      diff:=n-Gettickcount64 + t;
      f:=diff/(n)*Shape6Breite;
      Shape6.Width:=Round(f);
    end;
    Shape6.Width:=Shape6Breite;
    Shape6.Brush.Color:=$00FCEBCD;
end;

Wo hattest Du denn das "terminated" her.?? Das ist etwas für TThreads. Und den wolltest Du doch wohl nicht, oder?

Winni

[Vamogu05]

Hallo Winni,

Danke für Dein Beispiel. Ja, ist natürlich etwas optimaler geschrieben.
Das Terminated ist eine globale Variable die von anderer Stelle gesetzt werden kann.
Mit Threads kenne ich mich leider noch nicht aus. Möchte ich aber auch lernen zu verstehen.

Lg

Hannes

[PascalDragon]

Ich staune grade über GetTickCount64() mit Klammern
Ich wuste garnicht dass man bei Funktionen, die nur etwas zurück liefern, einen leeren Parameter angeben darf
und habe das grad mal probiert. Tatsächlich das funktioniert. Man lernt nie aus.
Vermutlich kommt der Hannes aus der C-Programmierung....

Du kannst bei Funktionen und Prozeduren ohne Parameter (oder mit nur Standardparametern) jederzeit ein leeres Klammerpaar nutzen (das geht auch in Delphi und glaub auch TP). In den nicht-Delphi und nicht-TP Modi ist es sogar notwendig, wenn du eine Prozedur- oder Methodenvariable hast und diese keine Parameter hat, um es leichter unterscheidbar von einer Zuweisung der Variable zu machen.