Discussion :

[tornade69]

Bonjour à tous,

J'ai un traitement très très long (extraction de donnée d'une base de donnée) qui dure presque 1 H.
J'avais un plantage (la fenêtre figé, et les processbar qui ne bougeais plus, mais l'application qui réalisait son travail. Très pénible pour l'utilisateur, sachant en plus qu'en mode debugage pas de problème.

J'ai trouvé dans la FAQ un exemple qui marche mais me provoque 1 bug

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  Stop := False;
  I    := 0;
  { Traitement long }
  Repeat
    Inc(i);
    Label1.Caption := IntToStr(i);
    { Mise à jour des évènements en attente }
    Application.ProcessMessages;
  Until (i>=100000000)Or Stop; //modif à 10000
end;
 
procedure TForm1.BoutonStopClick(Sender: TObject);
begin
  { Demande d'arrêt de la boucle }
  Stop:=True;
end;

J'ai mis mon traitement a l'endroit indiqué. et donc cela marche enfin presque. J'ai ma fenetre qui se duplique, celle de devant devient inactive, sur celle de derrière sur laquelle les progressbar se mette à jour, le bouton stop ne marche pas.

Merci pour votre aide.

[ShaiLeTroll]

Fenêtre qui se duplique ??? Je ne vois pas comment, sauf si tu as fait deux Create ...

Ensuite, pour le until, remplace ta limite de compteur, par une limite temporel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  TimeOut := GetMaximumDelay(); // Paramètre, ça pourrait être bien en fonction des postes ! En MilliSecondes ! 
 
  StartTime := GetTickCount(); // Pas forcément précis, en MilliSecondes, tu en as pour 49.7 jours au plus :mouarf: 
  repeat
    Inc(i);
    Label1.Caption := IntToStr(i);
    { Mise à jour des évènements en attente }
    Application.ProcessMessages; // peut être ne pas appeler systématiquement mais disons au plus 10 fois par secondes ... sinon tu passe ton temps à l'appeler ...
   PointTime := GetTickCount(); // Idem, tu peux vérifier le temps qu'au bout que toutes les 1000 ou 10000 itérations ...
   // Continue tant que l'Objet est vide ou que le Délai Maximum soit écoulé
  until Stop or (PointTime >= StartTime+TimeOut);

[tornade69]

Merci pour ta réponse, je vais essayer d'y mettre en oeuvre. Par contre l'histoire des 2 fenetres, je ne vois pas de 2eme create. Je vais faire plus de recherche

Merci pour ta réponse rapide
Tornade

[ShaiLeTroll]

tu n'aurais pas laisser une fenêtre dans le DPR (Application CreateForm) et ajouter en plus un TForm.Create ...

[tornade69]

Je n'arrive pas a expliquer l'apparition de la double fenetre, par contre j'ai completement modifié, le déroulement avec le ProcessMessages.

En fait le traitement long, n'était qu'une boucle, j'ai donc ajouter l'instruction après chaque Next, et cela m'a complétement déverouiller les problèmes de figé et de fenetre fantome.

Merci beaucoup pour votre aide.