Discussion :

[calou_33]

Bonjour

Je n'arrive pas à utiliser la fonction WaitForMultipleObjects.

Dans ma fiche principale j'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    for ms := 1 to 12 do
    begin
      tab_thread[ms-1]:=TThreadGraphSynthese.Create(tab_ibc_qry[ms-1],nom_stored_proc,prjt,'T'+IntToStr(t),EncodeDate(an,ms,1),IncMonth(EncodeDate(an,ms,1),1));
      //recupere le handle
      tab_thread_hdl[ms-1]:=tab_thread[ms-1].Handle;
    end;
 
    //attend la fin des threads
    WaitForMultipleObjects(12,@tab_thread_hdl,TRUE,INFINITE);

Je créé les threads récupere le handle et attend la fin

Voici la fonction de création de mon 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
18
19
20
21
22
23
24
25
 
constructor TThreadGraphSynthese.Create(ibc_qry:TIBCQuery; 
nom_stored_proc,prjt,trbn: string; dt_deb,dt_fin:TDateTime);
begin
  //FreeOnTerminate:=TRUE;
  IbcQry:=ibc_qry;
  IbcQry.SQL.Text:='SELECT * FROM '+nom_stored_proc+'(:PRJT, :TRBN, 
:DATE_DEB, :DATE_FIN)';
  IbcQry.ParamByName('PRJT').AsString:=prjt;
  IbcQry.ParamByName('TRBN').AsString:=trbn;
  IbcQry.ParamByName('DATE_DEB').AsDate:=dt_deb;
  IbcQry.ParamByName('DATE_FIN').AsDate:=dt_fin;
  ThreadTerminated:=FALSE;
  OnTerminate:=OnTerminateProcedure;
  Inherited Create(FALSE);
end;
 
procedure TThreadGraphSynthese.OnTerminateProcedure(Sender: TObject);
begin
  ThreadTerminated:=TRUE;
end;
procedure TThreadGraphSynthese.Execute;
begin
  IbcQry.Execute;
end;

je remarque que lorsque la fonction WaitForMultipleObjects est terminée mes
threads ne le sont pas car si je regarde la variable ThreadTerminated elle
est à false. Et ensuite j'ai des violations d'acces sur des variables non
initialisées.

Merci

[Andnotor]

Commence déjà par mettre le inherited à la première ligne du constructor.

Code :

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

1
2
3
4
5
6
constructor TThreadGraphSynthese.Create(ibc_qry:TIBCQuery; 
nom_stored_proc,prjt,trbn: string; dt_deb,dt_fin:TDateTime);
begin
  Inherited Create(FALSE);
  ...
end;

[calou_33]

Bonjour,

C'est fait. Le comportement du waitformultipleobjects est le meme

Merci

[Andnotor]

Il n'y a rien d'autre qui me choque . WaitForMultipleObjects est correct !
Je viens encore de faire un essai et ça fonctionne...

[calou_33]

Ca fonctionne?

Et bien ca alors!! Je veux bien voir le code car il doit y avoir quelque chose de different. Moi quand Waitfor... est terminé mon boolean ThreadTerminated est à false

Amitiés

[Andnotor]

Je n'avais pas regardé ton code en entier...

OnTerminate devrait pointer sur une méthode du thread principal et non sur une du thread secondaire. (L'appel étant Synchronize)

Dans ton cas, il suffirait aussi simplement de mettre ThreadTerminated:=TRUE à la fin du Execute.