Discussion :

[BECHE]

Voila, je compte utiliser un Getticcount sur une application (développée avec Delphi 2005) qui tournera en permanence pour avoir une bonne précision car ce Gettickcount servira par différence à définir la position (d'une vanne ) qui s'ouvre et se ferme. La précision est nécessaire pour éviter d'empiler les erreurs
Or, j'ai vu sur Developpez.com que le système remet à 0 cette valeur de Gettickcount tous les 39 jours
Que ce passera-t-il lorsque le gettickcount repart à zéro entre de 2 appels de Gettickcount ? mes valeurs de variables seront dans les choux !
Merci d'avance

[tourlourou]

je suppose que GetTickCount() renvoie un Cardinal : au bout de 49 jours et des brouettes, il s'est écoulé (2^32)-1 millisecondes, le compteur vaut donc 111111111.....1111111 en binaire et la milliseconde suivante : 0 !

si tes appels sont relativement fréquents, stocke dans un Int64, et si l'appel suivant est plus petit, ajoute (2^32)-1 pour obtenir le bon delta, puis repars de la valeur obtenue

[Rayek]

Tu peux aussi passer par des datetimes, la tu as plus le problème des x jours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure Wait (ms : Integer);
var
  dTimeDebut : TDateTime;
  iMsBetween : Integer;
begin
  dTimeDebut := Now;
  iMsBetWeen := MilliSecondsBetween(Now,Now);
  while  iMsBetWeen <= ms do
  begin
    Application.ProcessMessages;
    iMsBetween := MilliSecondsBetween(dTimeDebut,Now);
  end;
end;

C'est une procédure que j'ai réalisé pour remplacer le sleep et pour eviter le problème de remise a zéro du GetTickCount.
Je ne sais pas si c'est tres précis (je ne suis pas a quelques ms près), faut tester

[BECHE]

Impeccable, merci à tous pour ces réponces