Discussion :

[LN(a)]

Bonjour,

J’ai besoin d'afficher la fenêtre d'attente avec un progressbar pendant le calcul de la taille des fichiers. Mais si je l'affiche juste comme ça elle se fige. Donc j'ai créé le thread qui doit seulement afficher cette fenêtre et changer la valeur de son progressbar. Mais ça se fige quand même. S'il vous plait, est-ce que quelqu'un peut me dire qu'est-ce que ne va pas.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 TCalculTaille = class(TThread)
  private 
   tform: TFormEnCours;
  protected
  public
    procedure Execute; override;
   Constructor Create(form: TFormEnCours);
  end;
 
Constructor TCalculTaille.Create(form: TFormEnCours);
begin 
  tform := form;
  tform.spSkinGauge1.Value := 0;
  tform.Show;
  FreeOnTerminate := true;
  inherited Create(false);
end;
 
procedure TCalculTaille.Execute;
var
  iprogress: integer;
begin 
  iprogress := 0;
  while not terminated do
    begin
      if iprogress < 100 then
         iprogress := iprogress + 1
      else
         iprogress := 0;
      tform.Gauge1.Value := iprogress;
      sleep(50);
    end;
  tform.Close;
end;
//---------dans le module principale
th: TCalculTaille;
 
FormEnCours := TFormEnCours.Create(Self);
th := TCalculTaille.Create(FormEnCours);

[DMO]

Pour qu'un thread puisse modifier l'affichage, il faut passer par synchronize, ce qui fonctionne, mais synchronise ton thread avec le thread principal, ce qui te fait perdre l'interet d'un thread. Donc un thread qui ne fait que de l'affichage n'a aucun intéret.

Je te suggère plutot lors de tes calculs de modifier la progressbar et de ne rafraichir que cela, ou de faire des Application.ProcessMessage, mais ce peut etre dangeureux.

[neilbgr]

Lorsque qu'on fait fichier->nouveau->Thread on a dans l'unité créée :

{ Important : les méthodes et propriétés des objets de la VCL ou CLX peuvent uniquement être
utilisées dans une méthode appelée avec Synchronize. Par exemple,

Synchronize(UpdateCaption);

UpdateCaption ayant l''apparence suivante :

procedure Test.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

[LN(a)]

J'ai essayé faire ça, mais je comprend pas pourquoi quand je met Timer sur ma fenêtre qui est programmé pour rafraîchir la progressbar, ça ne fonctionne pas : la progressbar ne se rafraîchi pas.

PS: ici la Synchronize ne fonctionne pas car ce n'est pas une application standard de delphi.

[DMO]

Le Timer n'est pas une solution. Si ton programme tourne à fond, il n'aura pas le temps de se déclencher avant la fin. Il faut que tu intercales au milieu de ton traitement lourd un évènement ou quelquechose qui te permette de modifier l'affichage.

[LN(a)]

Ah ok! Merci!
Mais qu'est-ce qu'on peut faire s'il faut afficher une fenêtre pendant les traitements lourds et cette fenêtre doit refleter l'état des traitements (par exemple la progression globale de téléchargement des données). L'information s'affiche bien mais on peut pas bouger cette fenêtre avec une sourie, elle se minimise qu'apres un bon moment et etc.

[DMO]

La réponse à cette question a déjà dû être donnée de nombreuses fois, mais voici : ton application ne traite pas les messages tant qu'elle est occuppé dans ton traitement lourd.

Tu as de nombreuses solutions :
- Ne pas te soucier de pouvoir modifier l'ihm, et simplement ne rafraichir que la ProgressBar pendant ton traitement
- Au lieu de ne rafraichir que ta progressbar, toujours "au milieu" de tron traitement, faire des Application.ProcessMessages, qui obligeront à traiter les messages (déplacements de souris, rafraichissements, etc...)
- Beaucoup mieux : exactement l'inverse de ce que tu proposais au départ : laisser la gestion de l'ihm au thread principal, il est fait pour ca, et faire tout le traitement lourd dans un thread à coté, qui ne vient que de temps en temps (avec Synchronise comme te l'a bien expliqué Neilbgr) rafraichir la ProgressBar (pas trop souvent non plus histoire de ne pas trop ralentir ton thread).

[LN(a)]

Merci.
Et si je ne peut pas utiliser Synchronize dans cette application, a-t-il d’autre possibilité de réaliser la troisième solution (je veut dire avec un thread pour les traitements)?

PS: en plus je peut pas ecrir "Application.ProcessMessages" car ce n'est pas une application. Donc presque aucune solution ne marche pas ici .

[DMO]

Je crois que tu as suffisament d'informations pour résoudre ton problème. Cherche un peu par toi même comment mettre en oeuvre la solution qui te semble la plus adaptée à ton cahier des charges. Je ne veux pas m'immisser dans la conception de ton logiciel. Bien sûr tu pourras revenir poser des d'autre questions bien précises si tu as d'autres problèmes.

Allez bon dev'