Umlaufzeit eines Threads ermitteln

[Thanatos81]

Tach auch!

Ich hab da mal ne kurze Frage. Und zwar ermittele ich die ungefähre Umlaufzeit eines Threads, in dem ich mir am Anfang des Thread.Execute den Wert von "now" in eine TDateTime-Variable "lastStart" speichere und beim nächsten Durchlauf delta := MilliSecondsBetween(lastStart, now) aufrufe.

Jetzt könnte es natürlich ein Problem geben bei der Umstellung von Sommer- auf Normalzeit. Theoretisch könnte lastStart von 02:59:59 sein und now 02:01:00. Da hätte ich ein negatives Delta :shock:

Da das Programm durchlaufen soll ist GetTickCount ja auch keine Lösung. Da könnte/würde ich ein dementsprechendes Problem nach 49,7 Tagen haben.

Wie macht ihr das in euren Threads, die dauerhaft laufen und bei denen ihr die Umlaufzeit benötigt?

[Bernhard Geyer]

Die Lösung mit Now würde schon gehen. Und Sommer/Winterzeitumstellung sollte über entsprechende API-Befehle auch bestimmbar sein.

[Thanatos81]

Jupp, so in der Richtung. Eine Lösung gibts hier auch schon, Stichwort UTC:

http://www.delphipraxis.net/internal...=340194#340194

Danke für den Fingerzeig!

[alzaimar]

Übrigens kannst Du sehr wohl GetTickCount nehmen. Du musst nur wissen, wie man mit negativem Delta umgeht ...

Delphi-Quellcode:

Var
  Delta : Int64;

Begin
  Delta := GetTickCount - LastCall;
  If Delta < 0 Then Delta := High (Cardinal) + Delta;

Ungetestet, sollte aber funktionieren.

[Thanatos81]

Hmm, auch ne interessante Variante. Ich bastel da mal ein Testprogramm mit und lass das mal ein paar Wochen aufm Server laufen. Mal schauen was passiert ;-)