Questions sur les Threads

Version imprimable

Bon je comprends rien aux threads apparament,

Voilà mon code que j'utilise aujourd'hui qui me pause problème
La Gauge1 se mets bien à jour , mes composants se créer bien dans la FormPrincipal, mais mon StatusBar1.Panels[1].Text reste tout le temps à 0.

Pour le moment je fais cela dans OnTimer, j'ai essayé de voir comment faire avec un Thread, mais je ne c'est pas quoi mettre dans execute, quoi synchronizé etc..
De plus je crois qu'il ne faut pas utiliser de timer dans ce cas, alors où je mets l'execution de ma procedure.

Mon code dans un Form
Code:

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 procedure TFormProgressBar3.FormActivate(Sender: TObject); begin Timer1.Enabled := True; end; procedure TFormProgressBar3.FormCreate(Sender: TObject); begin NbRecord:= ModuleDeDonnee.ADO1.Recordset.RecordCount; Timer1.Enabled := False; end; procedure TFormProgressBar3.Timer1Timer(Sender: TObject); Var i: Integer; Panel: TPanel; begin with Gauge1 do Begin MinValue:= 0; MaxValue:= NbRecord; Progress :=0; end; for i:= 0 to (NbRecord -1) do Begin Panel := TPanel.Create(FormPrincipal); Panel.Name := 'PANEL' + ModuleDeDonnee.ADO1.Fields.Fields[31].AsString; Panel.Caption := ''; Panel.Top := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[28].AsString); Panel.left := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[25].AsString); Panel.Height := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[22].AsString); Panel.Color := StringToColor(ModuleDeDonnee.ADO1.Fields.Fields[20].AsString); Panel.Width := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[30].AsString); ModuleDeDonnee.ADO1.Next; Gauge1.Progress := Gauge1.Progress + 1; <- ca se mets a jour StatusBar1.Panels[1].Text := IntToStr(i); <- CA RESTE à 0 end; ModuleDeDonnee.ADO1.Filtered := false; ModuleDeDonnee.ADO1.close; Self.Close; end;
Est-ce que quelqu'un peux m'aider à créer un Thread à partir de cela ?
Doit-je mettre :
- la création ds Panel dans le Threads,
- l'avancement de ma Gauge1
et également
- l'info de la StatusBar1.Panels[1].Text

franchement je vois pas. Merci de votre soutient

Voici un petit exemple simple pour comprendre les thread :
(Une Form, Deux Panel avec Propriété Caption = 'NON'

Code:

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit Ex24a;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure Panel1Click(Sender: TObject);
  private
  public
  end;
 
  TThread1 = class(TThread)
  private
    P1 : TPanel ;
  protected
    procedure Execute; override;
  public
    constructor Create(Panel1 : TPanel);
  end ;
 
var
  Form1: TForm1;
  Thread1,Thread2 : TThread1;
 
implementation
 
{$R *.DFM}
 
procedure TThread1.Execute;
var
  b1 : byte ;
  i1 : integer  ;
begin
  b1 := 0 ;
  i1 := 1 ;
  while true do
  begin
    if b1 = 255 then i1 := -1 ;
    if b1 = 0 then i1 := 1 ;
    b1:=b1 + i1 ;
    P1.Color := RGB (b1,255-b1,0) ;
    if Terminated then
        Exit;
  end ;
end ;
 
constructor TThread1.Create(Panel1 : TPanel) ;
begin
  P1 := Panel1 ;
  FreeOnTerminate := True;
  inherited Create(False);
end ;
 
procedure TForm1.Panel1Click(Sender: TObject);
var
  P1 : TPanel ;
begin
  P1 := Sender as TPanel ;
 
  if P1.Caption = 'NON' then
  begin
    P1.Caption := 'OUI' ;
    if P1.Name = 'Panel1' then Thread1 := TThread1.Create(P1) ;
    if P1.Name = 'Panel2' then Thread2 := TThread1.Create(P1) ;
  end
  else
  begin
    if P1.Name = 'Panel1' then Thread1.Terminate ;
    if P1.Name = 'Panel2' then Thread2.Terminate ;
    P1.Caption := 'NON'
  end ;
 
end;
 
end.

Bon j'ai fais cela mais sa marche pas nikel
1 - la fenetre ne se ferme pas
2 - il me créer aucun Panel dans ma formprincipal

Code:

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
 
unit FenetreDAttente3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, ExtCtrls, StdCtrls, ComCtrls, ThreadUnit;
 
type
  TFormProgressBar3 = class(TForm)
    Panel1: TPanel;
    LabelDeRecherche: TLabel;
    Gauge1: TGauge;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormProgressBar3: TFormProgressBar3;
  UnThread:TUnThread;
  NbRecord: Integer;
implementation
 
uses ModuleData, FenetrePrincipal;
 
{$R *.dfm}
 
procedure TFormProgressBar3.FormCreate(Sender: TObject);
begin
 
// Initialisation de mon Thread
  UnThread:=TUnThread.Create(True);
  UnThread.FreeOnTerminate:=True; // Destruction automatique après exécution.
  UnThread.Priority:= tpNormal;
  UnThread.Resume; // Lancement du thread
 
  self.close;  '<== marche pas'
 
end;
 
end.

MON THREAD

Code:

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
60
61
62
63
64
65
 
unit ThreadUnit;
 
interface
 
uses
  Classes, Sysutils, ExtCtrls, Graphics;
 
type
  TUnThread = class(TThread)
  private
    iPanels : Integer;
  protected
    procedure Execute; override;
    procedure Update;
  end;
 
implementation
 
uses
ModuleData, FenetrePrincipal, FenetreDAttente3;
 
procedure TUnThread.Update;
begin
  FormProgressBar3.Gauge1.Progress := FormProgressBar3.Gauge1.Progress + 1;
  FormProgressBar3.StatusBar1.Panels[1].Text := IntToStr(iPanels);
end;
 
procedure TUnThread.Execute;
Var
  i: Integer;
  Panel: TPanel;
  NbRecord: Integer;
 
Begin
  NbRecord:= ModuleDeDonnee.ADO1.Recordset.RecordCount;
  FormProgressBar3.StatusBar1.Panels[1].Text := IntToStr(NbRecord);
 
  with FormProgressBar3.Gauge1 do Begin
    MinValue:= 0;
    MaxValue:= NbRecord;
    Progress :=0;
  end;
 
  for i:= 0 to (NbRecord -1) do
  Begin
    Panel := TPanel.Create(FormPrincipal);
    Panel.Name := 'PANEL' + ModuleDeDonnee.ADO1.Fields.Fields[31].AsString;
    Panel.Caption := '';
    Panel.Top := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[28].AsString);
    Panel.left := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[25].AsString);
    Panel.Height := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[22].AsString);
    Panel.Color := StringToColor(ModuleDeDonnee.ADO1.Fields.Fields[20].AsString);
    Panel.Width := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[30].AsString);
    ModuleDeDonnee.ADO1.Next;
 
    iPanels := i;
 
    Synchronize(Update);
  end;
  ModuleDeDonnee.ADO1.Filtered := false;
  ModuleDeDonnee.ADO1.close;
end;
 
end.

Donc j'arrive là la gauge bouge à l'identique de mon TEXT cette fois;
Mais plus de création de panel !! et pas de fermeture de m'a fenetre apres la fin de l'excution et si je ferme moi même j'ai une erreur 1400 PAs de Handle

Le truc de ouf.

une idée ?

22/08/2008, 12h43
Aka Guymelef

Aïe Aïe Aïe faire un Close juste après le lancement du Thread en espérant que la fermeture sera effective après que le traitement du Thread soit terminé montre que tu n'as pas compris le principe de Threading.

Lancer des Threads te permet d'avoir une exécution asynchrone de traitements. Soit dès que tu lances l'exécution d'un Thread la main est rendue au programme principal tout de suite après tandis que l'exécution du Thread en lui-même se fait en parallèle du programme principal.

Donc si tu veux que ta fiche se termine après le traitement du Thread il faut que l'appel provienne du Thread (remarque : ce qui est assez dangereux vu que le Thread n'est pas encore détruit à ce moment là).

Ensuite il manque l'affectation du Parent à tes Panels créés dynamiquement de s'afficher, cela devrait être également le cas avec ton code d'origine dans le OnTimer d'ailleurs.
22/08/2008, 12h44
Paul TOTH

argh !

bon déjà ton exemple de Timer ne sert à rien :)

soit tu utilises le Timer pour gérer les enregistrement 1 à 1...mais dans ce cas le OnIdle est peut-être plus indiqué...soit le timer ne sert à rien, vu que tu boucles dans l'évènement.

la réponse simple à ton problème est dans Application.ProcessMessages qui permet à ton application de gérer ses évènements, et notamment le dessin des composants :)

le hic, c'est que ProcessMessages gère aussi les clics et tu peux te retrouver dans une situation complexe d'appel récurant d'une méthode qui n'est pas prévu pour...à toi de gérer cela en désactivant les boutons par exemple...

revenons au thread, IL NE FAUT PAS MODIFIFER UN COMPOSANT VCL DANS UN THREAD ... du coup ça ne sert pas à grand chose dans ton cas :)
22/08/2008, 13h05
BuzzLeclaire

Bonjour, Aka Guymelef

Donc si je comprends bien je dois placer un
FormProgressBar3.close;
apres
ModuleDeDonnee.ADO1.close;
de ma procédure Execute de mon Thread ?

PS : ne t'inkiete pas j'ai pas mis tous les affectations de mes PAnels. etc y'en a des tas donc j'ai réduit expres.

Bonjour, Paul TOTH

Je n'ai aucun probleme de dessin au départ de mes composant TPanel, ni de la progress bar d'ailleur avec mon Ontimer (solution du début), mais je me suis rendu compte que mon Statusbar restais à zéro.
Alors je me suis dis je vais mettre tout en d'un thread et là malheureusement j'y connais pas grandchose.

PS : je me suis mi a delphi depuis 1 mois (en aillant 15 ans d'absence de programmation !!. Je suis juste spécialisé en algo et requete SQl etc...)

Comment dois-je procédé ?
22/08/2008, 13h11
Aka Guymelef

En fait quand je reprend le fil je penses que ni le Timer ni le Thread ne sont nécessaire. La vraie question est de savoir quand vous voulez déclencher votre action et exécuter le code de création des panels + gauge + status bar à ce moment là point final.

La seule chose que j'ajouterais c'est d'ajouter à la fin de chaque tour de boucle du for un Application.ProcessMessages qui permettra à l'affichage de se rafraîchir correctement.

Bon, sa avance pas mal donc j'ai fais cela

Code:

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
unit FenetreDAttente3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, ExtCtrls, StdCtrls, ComCtrls;
 
type
  TFormProgressBar3 = class(TForm)
    Panel1: TPanel;
    LabelDeRecherche: TLabel;
    Gauge1: TGauge;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormProgressBar3: TFormProgressBar3;
  NbRecord: Integer;
implementation
 
uses ModuleData, FenetrePrincipal;
 
{$R *.dfm}
 
procedure TFormProgressBar3.FormActivate(Sender: TObject);
Var
  i: Integer;
  Panel: TPanel;
begin
  with Gauge1 do Begin
    MinValue:= 0;
    MaxValue:= NbRecord;
    Progress :=0;
  end;
 
  for i:= 0 to (NbRecord -1) do
  Begin
    Panel := TPanel.Create(FormPrincipal);
    Panel.Name := 'PANEL' + ModuleDeDonnee.ADO1.Fields.Fields[31].AsString;
    Panel.Caption := '';
    Panel.Top := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[28].AsString);
    Panel.left := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[25].AsString);
    Panel.Height := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[22].AsString);
    Panel.Color := StringToColor(ModuleDeDonnee.ADO1.Fields.Fields[20].AsString);
    Panel.Width := StrToInt(ModuleDeDonnee.ADO1.Fields.Fields[30].AsString);
    ModuleDeDonnee.ADO1.Next;
    ModuleDeDonnee.ADO1.Next;
    Gauge1.Progress := Gauge1.Progress + 1;
    StatusBar1.Panels[1].Text := IntToStr(NbRecord)+'/'+IntToStr(i);
    Application.ProcessMessages;  
  end;
  ModuleDeDonnee.ADO1.Filtered := false;
  ModuleDeDonnee.ADO1.close;
  Timer1.Enabled := True;
end;
 
procedure TFormProgressBar3.FormCreate(Sender: TObject);
begin
  NbRecord:= ModuleDeDonnee.ADO1.Recordset.RecordCount;
  Timer1.Enabled := False;
end;
 
procedure TFormProgressBar3.Timer1Timer(Sender: TObject);
begin
  Self.Close;
end;
 
end.

Alors, maintenant j'ai 3 questions :
- Peux-t-on éviter le scintiellement ? disons qu'a chaque panel pausé sa scintille c'est horrible.
- Pourkoi mon Self.Close ne marche pas dans ma procédure Activate ? j'ai du laisser mon Ontimer qui à true me ferme bien ma fenêtre ?

- A quoi je dois faire attention selon les dire de paul ? (avec Application.ProcessMessages;)

MErci de votre aide.

22/08/2008, 18h59
Franck SORIANO

Citation:

- Peux-t-on éviter le scintiellement ? disons qu'a chaque panel pausé sa scintille c'est horrible.

Tu as plusieurs possibilités :
- Au lieu de créer les panels directement dans la form principale, tu pourrais les créer dans un panel intermédiaire que tu n'afficherais qu'à la fin des créations dynamiques des panels. De cette façon, on ne verrait pas les panels se créer un par un.
- De la même façon, tu peux peut-être cacher la form principale pendant la création des panels (bon si c'est réellement la fiche principale, ça risque de ne pas être beau non plus).
- Tu peux limiter le clignotement en ne raffraichissant pas l'écran à chaque itération, par exemple 1 fois sur 10, sur 100... ça dépend du nombre. Pour celà, il suffit de ne pas appeler ProcessMessage à chaque itération, mais de tester si i mod 10 = 0 par exemple.

Mais tu crées combien de panel de cette façon ? Parce que pour avoir besoin d'afficher une barre de progression, il doit y en avoir un paquet. C'est pas trop lent ensuite ?

Citation:

- Pourkoi mon Self.Close ne marche pas dans ma procédure Activate ?

Je ne saurais pas le dire comme ça. Mais personnellement, lorsque je fais ce genre de chose, les traitements sont faits dans une autre classe et génèrent des événements pour notifier la progression du traitement. Ainsi, la fiche de progression ne fait qu'observer le traitement en cours d'exécution, c'est l'appelant qui décide de l'afficher au début du traitement, c'est lui qui la ferme quand le traitement est terminé.

Citation:

- A quoi je dois faire attention selon les dire de paul ? (avec Application.ProcessMessages

Le principale risque est le suivant :
- Dans ta fiche principale, tu as un bouton qui permet de lancer le traitement.
- L'utilisateur clique sur le bouton, ton traitement démarre.
- L'utilisateur est un excité du mulot et continue à cliquer sur le bouton pendant que le traitement tourne.
- Lorsque tu appelles ProcessMessages, Delphi traite le deuxième clic sur le bouton et relance ton traitement qui est déjà en cours... en général ça devient vite "access violation...".
22/08/2008, 19h45
Paul TOTH
bonjour,

tu peux supprimer le timer en ajoutant ceci dans OnCreate
Code:

1 2 PostMessage(Handle,WM_USER,0,0);
et évidemment, un méthode de traitement de ce message dans la fiche
Code:

1 2 3 4 type TForm2=... procedure WMUser(var Msg:TMessage); message wm_user;
c'est alors cette procédure qui doit effectuer le traitement.

c'est là encore un pb de gestion des messages, tu ne peux pas lancer un traitement dans le OnCreate car la fiche doit finir de dialoguer avec Windows avant cela...en plaçant un WM_USER dans la file de message tu peux contourner cela; il sera traité après les autres qui sont déjà en attente.
23/08/2008, 00h31
BuzzLeclaire

Bonsoir,

Franck pour te répondre,
1) je ne peux pas cacher ma formprincipal (se serait bizard comme affichage)
2) je ne peux pas les disposer sur un autre Panel je les mets dejà sur un StringGrid. et ce n'ai pas ma seule procédure.
3) Par iteration i mod 10=0, alors c'est carement flashant en faite, ca fait l'effet inverse.
4) Je peux crée de 1 à 2500 Panel, Alors evidement cela peux devenir lent si je commence à en avoir 500 à afficher.
Mais ce n'ai pas un probleme justement j'affiche une fenetre d'attente pour cela, c'est la mon Hic
5) Bon chacun sa méthode, je suis novice en delphi et je doit faire mon prg, alors j'avance avec tous les soucis qu'on peux rencontrer
6) Pour les prob sur la propos de Paul, alors j'aurais jamais de soucis, car je lance ma fenetre à l'affichage du StringGrid et la fenetreprincipal n'ai pas accessible pendant se temps là.

Bonsoir Paul,
J'ai tentez de faire ta proposition, voilà le message que j'ai :
Unsatisfied forward or external declaration : 'TFormProgressBar3.WMUser'

C'est vachement compliquer quand même, je vous remercie grandement de votre soutien et je suis persuadé que vous aller pouvoir m'aider.

voici un exemple complet

Code:

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
 
type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMUser(var Msg:TMessage); message WM_USER;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 PostMessage(Handle,WM_USER,0,0);
end;
 
procedure TForm1.WMUser(var Msg:TMessage);
var
 i:integer;
begin
 ProgressBar1.Max:=100;
 for i:=0 to 100 do begin
  ProgressBar1.Position:=i;
  StatusBar1.Panels[0].Text:=IntToStr(i);
  Application.ProcessMessages;
  Sleep(50);
 end;
end;

j'ai juste mis un Sleep(50) pour simuler un traitement long

24/08/2008, 12h02
BuzzLeclaire

Bonjour Paul,

J'ai donc respecté exactement ton exemple, dans le mien.

En résumé la procédure d'envoi de Message
[procedure WMUser(var Msg:TMessage); message WM_USER;]
Ne fait aucune différence de fonctionnement si j'utilise juste [Application.ProcessMessages] tout seul dans mon timer.

Peut-être que c'est plus propre de ta façon que la mienne (surement).

Bref, on remarque donc toujours un scintiellement.

Ceci dit cela fonctionne parfaitement avec où sans ta procédure, et je dirais que je préfère la tienne à la mienne sa semble beaucoup plus propre pour le code.

Merci encore PAUL, on voit bien que tu connais le sujet.
24/08/2008, 16h02
Paul TOTH

pour le scintillement, tu dois pouvoir les limiter en passant par SetBounds() au lieu d'affecter Top,Left,Width,Height indépendamment