Discussion :

[xenos]

Bonjour,

Je développe une application avec Delphi 2006 sous Windows Vista.

J'aimerais utiliser la fonction GetTickCount64 (http://msdn2.microsoft.com/en-us/lib...11(VS.85).aspx). Malheureusement Delphi ne reconnait pas cette fonction alors qu'il arrive à utiliser GetTickCount (http://msdn2.microsoft.com/en-us/lib...08(VS.85).aspx).

Le GetTickCount64 a l'avantage de ne pas obliger un redémarrage de l'ordinateur tous les 49 jours !

Dés lors, comment puis je faire pour utiliser GetTickCount64 ?

D'avance merci pour vos réponses.



xenos

[Lung]

En indiquant manuellement, que cette fonction vient de la DLL kernel32.dll

[Kaféine]

Salut,

Cette fonction n'est dispo que pour Windows 64 bits ou Windows Server 2008 je crois ?!

[Lung]

Salut,

Cette fonction n'est dispo que pour Windows 64 bits ou Windows Server 2008 je crois ?!

C'est vrai que dans XP, je ne l'ai pas trouvée.

[Kaféine]

en fait non ca marche !

voici la declaration

Code :

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

1
2
 
function GetTickCount64: Int64; StdCall; external 'Kernel32.dll' name 'GetTickCount64';

heu j'ai vista business 32bits

[ShaiLeTroll]

Pour plus de précision il y aussi QueryPerformanceCounter qui 64bit depuis Win95 et NT4 ...

[xenos]

Merci pour votre aide Lung et Kaféine.

GetTickCount64 fonctionne maintenant.

En effet, cette fonction n'est disponible que pour peu d'OS, voici ce qui est écrit dans la documentation :

Requirements
Client Requires Windows Vista.
Server Requires Windows Server 2008.

Dernière question ... en utilisant une telle requête après 1000 jours de lancement, je risque d'avoir un overflow, non ? ... un nombre trop grand que pour pouvoir le gérer ...

Comment pourrais je faire dés lors pour traiter ce nombre ?

[Kaféine]

avec Int64 il y a de la marge je pense

[ShaiLeTroll]

Sous Win95, 98 et NT, le passage à 49,7 jours était un plantage magistral !
Sous Win2K et +, le passage à 49,7 jours est une remise à zéro
GetTickCount renvoi un Entier Positif

GetTickCount64 ou QueryPerformanceCounter renvoyent un Entier Signé, est qu'une fois la limite atteinte, il passe à Zéro ou en Négatif ?

On peut penser qu'ils ont géré l'improbable ..., car maintenant, à part si ton programme dure deux centaines de millions d'année pour GetTickCount64 ou plus de 50 000 ans pour QueryPerformanceCounter (dépend de la vitesse du processeur), cela devrait tenir !

Après tout dépend, ce que tu veux en faire, il ne serait pas plus simple, de récupérer la Date au démmarage de ton programme via Now\GetLocalTime puis de faire la différence entre la nouvelle date courante, et celle du démarrage ...

[xenos]

En effet, ça devrait tenir ...

Un Int64 va jusqu'à 2^63-1. Une année est constituée de 1000 * 60 * 60 * 24 * 365,25 milli-secondes. Int64 / le nombre de milli-secondes = 146 135 511 années ...

Heureusement j'ai bien l'intention de redémarrer le pc tous les 146 millions d'années ! Ouf, je suis sauvé !

Après tout dépend, ce que tu veux en faire, il ne serait pas plus simple, de récupérer la Date au démmarage de ton programme via Now\GetLocalTime puis de faire la différence entre la nouvelle date courante, et celle du démarrage ...

Si j'utilise le GetTickCount, c'est pour effectuer des pauses de X milli secondes entre deux traitements. Il me semble que c'est ce qu'il y a de mieux pour une telle pause.

En tout cas merci à tous pour votre aide.

[Kaféine]

Heureusement j'ai bien l'intention de redémarrer le pc tous les 146 millions d'années

lol on sera tous (les humains) des pc dans 148 millions d'années

[ShaiLeTroll]

Un Int64 va jusqu'à 2^63-1. Une année est constituée de 1000 * 60 * 60 * 24 * 365,25 milli-secondes. Int64 / le nombre de milli-secondes = 146 135 511 années ...

Euh, on a pas la même calculatrice ?

(2^63) / (1000 * 60 * 60 * 24 * 365,25 ) = 292 271 023

Pour faire des "pauses", tu peux utiliser Sleep, qui manque un peu de précision, car j'ignore comment tu fais ta pause, mais si c'est une boucle genre:

Code :

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

1
2
3
4
StartTime := GetTickCount();
repeat
  PointTime := GetTickCount();
until not PointTime >= StartTime+TimeOut;

C'est une pause à 100% du Proc

je fais ceci :

Code :

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

1
2
3
4
5
6
7
StartTime := GetTickCount();
        repeat
          Sleep(1); // Il laisse une Milliseconde Entière aux Autres Processus
          Application.ProcessMessages(); // uniquement si NON Threadé
          PointTime := GetTickCount();
        // Continue tant que l'Objet est vide ou que le Délai Maximum soit écoulé
        until (PointTime >= StartTime+TimeOut);

[xenos]

Euh, on a pas la même calculatrice ?

(2^63) / (1000 * 60 * 60 * 24 * 365,25 ) = 292 271 023

En effet ...

Mais j'ai pas fait le même calcul, j'ai fait :

(2^(63 - 1)) / (1000 * 60 * 60 * 24 * 365,25 ) = 146 135 511 - FAUX

Alors qu'il aurait fallu faire :

((2^63) - 1) / (1000 * 60 * 60 * 24 * 365,25 ) = 292 271 023 - CORRECT

[xenos]

Code :

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

1
2
3
4
5
6
7
StartTime := GetTickCount();
        repeat
          Sleep(1); // Il laisse une Milliseconde Entière aux Autres Processus
          Application.ProcessMessages(); // uniquement si NON Threadé
          PointTime := GetTickCount();
        // Continue tant que l'Objet est vide ou que le Délai Maximum soit écoulé
        until (PointTime >= StartTime+TimeOut);

Je fais exactement comme ça.

Par contre tu as dis plus haut :

Sous Win95, 98 et NT, le passage à 49,7 jours était un plantage magistral !
Sous Win2K et +, le passage à 49,7 jours est une remise à zéro
GetTickCount renvoi un Entier Positif

Ce qui voudrait dire que si je commence ma boucle à la valeur la plus grande que le GetTickCount peut renvoyer, soit 49,7 jours après le lancement du logiciel, il va attendre que le GetTickCount lui renvoie cette valeur + X milli-secondes ...

En gros il va boucler indéfiniment, si le GetTickCount après avoir renvoyé sa plus grande valeur retombe à 0 ...