Discussion :

[Gaadek]

Bonjour,

Je me retrouve confronté à un petit problème...

En effet, j'ai une appli dans laquelle j'ai besoin de temporiser certaines actions.

Pas de soucis, je suis parti sur la solution de la fonction sleep.

Je teste, et là je m'apperçois que le sleep "endort" également les événements sur la form, ce qui se traduit pas une réaction très lente - par exemple si on désire déplacer l'interface ou même ma réduire - . Pas cool ça...

Du coup, je me retourne vers un bon et vieux timer.

J'implémente tout ça, je lance, et oh magie, plus de problèmes d'évènements liés à ma form. Bien bien bien me dis-je, mais c'était parler trop vite!

En effet, travaillant sur un portable (très silencieux), voila que le ventilateur se met à tambouriner mes oreilles sensibles.

Diantre, qu'est-ce ce phénomène me dis-je? Allons recherche le fautif processus qui consomme mes ressources CPU au point de briser la quiétude studieuse de mon environnement de travail!

Un petit click-droit plus tard + un géstionnaire des tâches exécuté, et voila que j'observe que mon projet, en exécution, consomme dans les 80% de ressources processeur!!!

Ayant eu des déboirs avec les timer sous LabWindows/CVI, je me dis: "tiens, comparons avec et sans timer".

Et là, désillusions, le timer Delphi et aussi pourri que celui de CVI, il consomme des ressources le petit!

Bon, trève de plaisenterie et de tournures verbales.

Je me retrouve avec le problème suivant:
- Utiliser un sleep qui consomme peu mais bloque la convivialité de mon soft
- Utiliser un timer, plus confortable, sauf pour mon CPU et mes oreilles.

La question du jour, donc, avons nous une solution permettant de bénéficier des deux avantages (et pas des deux inconvénients, je peux aussi faire un timer utilisant un sleep!!):
- Pas de ralentissement et une consommation des ressources faible?

Merci à tous.

[TicTacToe]

Salut,

La fonction du Timer et de sleep n'est pas la même...

Le Sleep, effectivement, temporise avant de passer à la suite (en passant, un refresh et un applications.ProcessMessages avant le sleep, ne sont souvent pas de trop pour ré-afficher correctement la form)

Le Timer est là, pour lancer un action à un certain moment, ou pour vérifier qu'un certains délai s'est produit.
Je ne pense pas que ce soit le timer qui consomme, mais plutot ce que tu lances dans le timer.

D'ailleurs, à combien est-il réglé ? et est-ce que le code qui est lancé ne dépasse pas en temps de traitement le temps des intervals d'appel ?

[PadawanDuDelphi]

Bonjour,

Ne pourrais-tu pas effectuer une temporisation à l'aide des threads?

@+.

[Gaadek]

1) Effectivement, le timer et le sleep n'ont pas la même utilité, cependant, mon cas est l'exception à la règle: le but est de lancer à intervalle variable une action.

Dans les deux cas, j'ai une boucle while qui appelle une fonction x fois.

Dans le premier cas, j'ai inséré un application.processmessage avant un sleep de y millisecondes (y variant de 1000 à 10.000)

Dans le second cas, j'ai encapsulé un autre while dans le premier. Juste avant de l'exécuter, je force la valeur d'un booléen. Ensuite, je défini le cycle de mon timer à y (y variant également de 1000 à 10.000), puis j'autorise le timer (propriété enable) à s'exécuter et enfin je rentre dans le structure while, composée uniquement d'un application.processmessage. L'événement du timer change uniquement la valeur de mon flag (le booléen), condition pour sortir de ma boucle d'attente.

2) Utiliser un thread pour réaliser une telle opération!!! Cela signifierait qu'il n'existe pas de solution "basique" à ce problème... Et c'est pas mon style de sortir l'artillerie lourde pour résoudre un problème aussi simple.... En tout cas, j'espère trouver une solution alternative avant de me lancer là dedans!

[Lung]

Pour faire une pause, moi je fais comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure Pause(const nDuree: Cardinal);
var 
  Tc: Cardinal; 
begin 
  Tc :=  GetTickCount; 
  repeat 
    Application.ProcessMessages; 
  until Cardinal(GetTickCount - Tc) > nDuree; 
end;

[TicTacToe]

peux-tu donner un exemple de tes 2 codes ?

[Graffito]

Bonjour,

Bien vérifier que dans le traitement de l'event timer,
il y a au début du traitement :

Code :

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

timer1.enabled:=false

;
et en fin de traitement :

Code :

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

timer1.enabled:=true ;

[Dry]

Je complete la réponse de Lung, pour ne pas que ca pompe 100% du CPU pendant la pause

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Pause(const nDuree: Cardinal);
var
  Tc: Cardinal;
begin
  Tc :=  GetTickCount;
  repeat
    Application.ProcessMessages;
    Sleep(1); //éventuellement Sleep(10) ou plus si tu n'est pas a 10 ms près...
  until Cardinal(GetTickCount - Tc) > nDuree;
end;

Bon dev !
Dry

[Gaadek]

Merci à Lung et Dry, votre solution me convient parfaitement, quoique un peu "batarde" à mon gout!!!

Pour Graffito, j'avais oublié de suspendre la callback du timer

Ceci dit, entre un test et une affectation de variable, je pense que j'étais loin des 1 sencondes, mais parfois, ça réagit bizarrement!!!

Merci encore à tous d'avoir planché sur le sujet!!!