Discussion :

[Sub0]

Salut!

J'ai un problème de "multitâche" avec un code du genre :

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
{----------------------------------------------------------------}
procedure Boucle(Lab: TLabel);
Var x: Integer;
Begin
  Repeat
    x := StrToIntDef(Lab.Caption, 0) + 1;
    Lab.Caption := IntToStr(x);
    Application.ProcessMessages;
    Sleep(200);
  Until(x > 500);
End;
 
{----------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
 If (Label1.Caption = 'Label1') Then Begin Boucle(Label1); Exit; End;
 If (Label2.Caption = 'Label2') Then Begin Boucle(Label2); Exit; End;
end;

La 1ère boucle se lance bien lorsqu'on clique sur le bouton, mais se bloque lorsqu'on lance la 2ème boucle... Je pensais qu'Application.ProcessMessages suffisait dans ce cas... Existe-t-il une solution pour que les 2 boucles fonctionnent simultannément sans utiliser les threads ?

Sinon, quelle est le code le plus simple pour résoudre ce problème ?

Merci d'avance.

[Linkin]

S'il y a une solution je suis intéressé. Mais j'en doute, étant donné que c'est le même processus qui lance les deux fonctions.

[Sub0]

J'ai réalisé ceci (avec un thread). Le code vous semble-t-il bon ?

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Unit Unit1;
Interface
Uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
     Forms, Dialogs, StdCtrls;
 
Type
  TForm1 = Class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Procedure Button1Click(Sender: TObject);
  End;
 
  TMyThread = Class(TThread)
    CurLab: TLabel;
  Protected
    Procedure Execute; Override;
  End;
 
Var Form1: TForm1;
 
 
{----------------------------------------------------------------}
{                       }Implementation{                         }
{----------------------------------------------------------------}
{$R *.dfm}
 
Var th1, th2: TMyThread;
 
 
{----------------------------------------------------------------}
Procedure TMyThread.Execute;
Var x: Integer;
Begin
  Repeat
    x := StrToIntDef(CurLab.Caption, 0) + 1;
    CurLab.Caption := IntToStr(x);
    Application.ProcessMessages;
    Sleep(200);
  Until (x >= 100);
  FreeAndNil(self);
End;
 
{----------------------------------------------------------------}
Procedure Boucle(th: TMyThread; Lab: TLabel);
Begin
  th := TMyThread.Create(False);
  th.CurLab := Lab;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  If (Label1.Caption = 'Label1') Then Begin Boucle(th1, Label1); Exit; End;
  If (Label2.Caption = 'Label2') Then Begin Boucle(th2, Label2); Exit; End;
End;
 
{----------------------------------------------------------------}
End.

[Rayek]

La 1ère boucle se lance bien lorsqu'on clique sur le bouton, mais se bloque lorsqu'on lance la 2ème boucle... Je pensais qu'Application.ProcessMessages suffisait dans ce cas... Existe-t-il une solution pour que les 2 boucles fonctionnent simultannément sans utiliser les threads ?

Sinon, quelle est le code le plus simple pour résoudre ce problème ?

Merci d'avance.

Au vu du code, je te dirais un gros non, vu que c'est du traitement séquentiel que tu fais (tant que le premier n'a pas fini ca ne passera pas à la suite), le Application.ProcessMessages ne sert qu'a laissé passer les message windows pour le rafraichissement de ta form et les applications à coté.

Si tu veux que les 2 se lancent en même temps, il va te falloir un thread.
Sinon tu peux utiliser les TJvThread de la JVCL qui est simple d'utilisation pour le fonctionnement que tu veux faire.

[Sub0]

Au vu du code, je te dirais un gros non, vu que c'est du traitement séquentiel que tu fais (tant que le premier n'a pas fini ca ne passera pas à la suite), le Application.ProcessMessages ne sert qu'a laissé passer les message windows pour le rafraichissement de ta form et les applications à coté. Si tu veux que les 2 se lancent en même temps, il va te falloir un thread.

Merci pour vos réponses. J'avais peu d'espoir de pouvoir le faire sans thread... je suis fixé maintenant.

Sinon tu peux utiliser les TJvThread de la JVCL qui est simple d'utilisation pour le fonctionnement que tu veux faire.

Alors j'ai quelques questions à ce propos :
• Quels avantages / inconvéniants de TJvThread par rapport au code donné ci-dessus ?
• La fonction synchronize est-elle indispensable dans un thread ?
• Mon code fonctionne, mais est-il "propre" selon vous ?

[Linkin]

J'aurais plutôt initialisé le Thread avec un FreeOnTerminate à True après le Create
et à la place du FreeAndNil, j'aurais mis un Terminated := True.

Pour le synchronize, normalement il est indispensable pour tout interaction avec le thread principal (et donc l'aspect graphique il me semble). Mais pour quelle raison, je ne sais pas.

[Eric Boisvert]

J'ai un petit problème lorsque tu créer ton thread...

If CreateSuspended is False, Execute is called immediately

donc

Code :

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

1
2
3
4
5
6
 
Procedure Boucle(th: TMyThread; Lab: TLabel);
Begin
  th := TMyThread.Create(False); // selon la citation, Ton thread peut ici être lancé sans que CurLab soit initialisé...
  th.CurLab := Lab;
End;

je crois qu'il serait préférable de surchargé le create du thread ou de le créer suspendu comme suit:

Code :

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

1
2
3
4
5
6
7
 
Procedure Boucle(th: TMyThread; Lab: TLabel);
Begin
  th := TMyThread.Create(TRUE); // Creation en mode suspendu 
  th.CurLab := Lab;                   // Initialisation des variables du thread
  th.Resume;                       //Permet ici l'execution du thread.
End;

ensuite vient le synchronise qu'on doit utiliser surtout lorsqu'on effectue
des changements dans le thread principale.
(On pourrait-être en train d'affiché le label dans le thread principale lorsqu'on le modifie dans notre thread)

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
procedure TMyThread.SetCaption;
begin
  CurLab.Caption := IntToStr(x);
end;

Procedure TMyThread.Execute;
Begin
  FreeOnTerminate:=TRUE;     // Indique qu'on veut libirer le thread automatiquement lorsqu'il est terminé.

  Repeat
    x := StrToIntDef(CurLab.Caption, 0) + 1;
    Synchronize(SetCaption);
    Sleep(200);
  Until (x >= 10) or (Terminated);
  //Le thread ce termine lorqu'on quitte Execute.
End;

C'est une bonne habitude de verifier la variable Terminated dans la boucle du thread.

la déclaration de la classe devient ceci:

Code :

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

1
2
3
4
5
6
7
8
 
TMyThread = Class(TThread)
    CurLab: TLabel;
  Protected
    x: Integer;
    Procedure Execute; Override;
    procedure SetCaption;
  End;

Voilà, c'est mieux ainsi je crois...

[Sub0]

Excelent!

Grâce à tes conseils, j'ai solutionné le problème dans mon programme!
Merci à tous!