Discussion :

[BECHE]

Quel est le code pour sortir d'une procédure qui tourne en boucle au bout d'un certain temps
A priori l'outil timer n'est pas adapté daprès ce que j'ai compris sur les FAQ

Autre question: est-il possible d'éxecuter 2 procédures ou fonctions simultanément dans une application ou faut-il passer de l'une à l'autre par les appels?
Merci d'avance

[spyk]

Je pense (je pense in, chuis pas sur)
Qu'il suffit d'initialiser une variable de temps avant de faire ta boucle, et a chaque fois que la boucle est exécuté, fait une soustraction entre l'heure actuel et l'heur enregistré au depart, et t'obtient depuis combien de temps tourne ta boucle.

Voila!
Pour plus d'info sur la gestion => faq

[edam]

Autre question: est-il possible d'éxecuter 2 procédures ou fonctions simultanément dans une application ou faut-il passer de l'une à l'autre par les appels?

voir l'aide en ligne sur les thréad
shttp://delphi.developpez.com/faq/?page=systemethread
http://lberne.developpez.com/delphi/Proc-Thread/

[/dev/null]

Et oui... tu créer ta boucle celon le scéma suivant :

Code :

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

1
2
3
4
5
6
7
8
Var
  I, Time: DWord;
begin
  Time := GetTickCount;
  For I := 1 to 15 do Begin
    if GetTickCount - Time > Limite then break;
  End;
end;

Avec, bien sur, Limite : DWord initilisé avec une valeur en milisecone

[BECHE]

En faisant des essais, je me suis rendu compte que lorsque je fais un sleep de 500 entre 2 Gettickcount, que je ne retouve pas chaque fois 500 à l'affichage de la différence , ca varie de +ou-2 et pas toujours dans le même sens.
Est ce un problème de précision du sleep, du gettickcount, ou de temps de réaction de l'application?

[Nono40]

C'est un problème du Sleep qui n'est pas précis.
Sur une longue durée il vaut mieux utiliser une mémorisation du temps de départ et travailler sur la différence heure encoure/ top de départ.

[Rayek]

Diffère l'exécution du programme pendant le nombre de microsecondes spécifié.

Le sleep c'est plus qu'un problème de précisions, c'est que le sleep bloque l'execution de l'appli pendant x millisecondes, d'où l'ecart au niveau de l'affichage de la différence.

[/dev/null]

Si tu veux rigoller 30s... essay de faire un sleep(1) et vois combient de temps il dure
Le GetTickCount est ce qu'il y'a de plus précis ( en un certain sens bien entendue ) car la fonction et directement lié a l'horologe phisique du system .

[Rayek]

Si tu veux rigoller 30s... essay de faire un sleep(1) et vois combient de temps il dure

Clair que le sleep est pas terrible, a mon avis le problème doit venir du fait que l'application doit après reprendre la main dans les priorités des processus doù le temps en plus entre deux GetTickCount ^^.

sinon y a possibilite de faire une pause aussi avec les DateTime

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
    iMsBetween := MilliSecondsBetween(dTimeDebut,Now);
    Application.ProcessMessages;
  end;
end;