Des boucles de plus en plus lentes... Que faire?Résolu

Question

Salut à tous,

Voici mon petit problème. Je développe actuellement un petit logiciel en delphi dans lequel j'inclus une boucle se répétant beaucoup de fois (l'execution peut durer quelques minutes), j'utilise la commande Refesh() et Redraw() dans la boucle pour actualiser l'affichage de la fenêtre (j'en ai d'ailleurs profité pour y mettre une progressbar qui indique l'avancement du bordel).
Aucun soucis jusque là, cependant, lorsque notre petit while commence à tourner, on peut constater que l'execution est de plus en plus lente (les calculs effectués dans chaque boucle sont généralement les mêmes à quelques choses près), de plus, si le refresh fonctionne au début, au bout de quelques secondes si on a le malheur de cliquer quelque part dans le programme celui-ci ne répond plus et continue à tourner. Il faut attendre la fin de la boucle pour que le programme réponde à nouveau. Grrr... 

Je ne sais pas si il existe des techniques permettant d'éviter ce genre d'ennuis, que j'ai déja rencontré plusieurs fois auparavent sans parvenir à trouver de solution...

Merci à tous, Julien

florenth · Accepted Answer

Salut !

Il y a un seul remède: le thread.
Mais ça rentre dans un autre domaine de prog', assez compliquà à mettre en oeuvre et à comprendre pour la première fois.

En tapant "thread" dnas le moteur de recherche, tu devrais trouver quelques pistes.
Et si tu as d'autres problèmes, n'hésites pas.

++
Flo

Ressources Delphi, sources, tutoriaux, actu, ...: www.mx-dev.nethttp://te%3C/body

cs_cantador · Answer

fuites mémoires..
Et j'ai mis des 's', on ne sait jamais..
Et puis mettre un refresh dans une boucle c'est osé..

cantador

f0xi · Answer

Sans code on peut pas t'aider.

d'ailleur je comprend pas que Flo t'oriente vers les threads ... comme ça ... sans voir de code.

tu dis que tu appel Refresh etc ... mais les refresh/redraw se mettent en file d'attente et plus tu en appel plus la queue se remplis!

faut appeler application.processmessages toutes les 5 boucles par exemple :

while ... do
begin
   code ...
   compteur := compteur + 1;
  if (compteur mod 5) = 0 then
    Application.ProcessMessage;
end;

cs_Pingouin57 · Answer

Merci à vous pour ces infos, je vais tester l'utilisation de processmessages je vous tiens au courant

florenth · Answer

Eh eh  f0xi: le remplaçant des "grandes" boucles qui prennent trop de temps, c'est bien sur les threads !!!

ProcessMessages, ça va deux minutes. Mais c'est 15 fois moins souple et ça bouffe les ressources processeur pour rien (donc ça ralentit). Et puis, c'est plus compliqué qu'un thread bien mené.
Et en plus, ça résout pas 100% des problèmes qu'on pourrait avoir.

Ressources Delphi, sources, tutoriaux, actu, ...: www.mx-dev.nethttp://te%3C/body

cs_Pingouin57 · Answer

Exact, j'ai en effet opté pour la solution du thread, cela parait être la meilleure solution dans ce genre de cas ^^

Des boucles de plus en plus lentes... Que faire?

6 réponses

Votre réponse

Discussions similaires