Discussion :

[Socrat]

Bonjour,

J'ai testé le tutoriel sur les threads :
http://chgi.developpez.com/thread

Ca marche très bien.

Mon problème est : comment je peux intégré un thread dans mon application.

Voici mon code :

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
//---------------------------------------------------------------------------

void TGestionFrm::MyFunc(ushort u, String FenCaption)
{
        TForm1 *Fen=NULL;
        Fen = new TForm1(this);
        Fen->Caption=FenCaption;
                                .
                                .
                                .
        PEncours(1,"Calcul en cours, Patientez....");
        //Mon code sur le traitement d'une base de données

        Fen->ShowModal();
        PEncours(2,"");}
//---------------------------------------------------------------------------

La fonction PEncours est applée plusieurs fois dans l'application.
Elle affiche un controle : AdvCircularProgress qui est active (Enabled=true) si le 1er paramaitre est égale à 1 sinon il le désactive (Enabled=false);

[pottiez]

Ton thread est une classe, tu peut donc créer une instance de cette classe comme n'importe quelle classe et utiliser cette instance.

[Socrat]

Tout d'abord merci,

Oui c'est vrai ce que tu dit, j'ai déja utiliser cette solution, mais mon prg se plante :

La fenetre PatientezFrm est la fenetre qui permet d'afficher le controle AdvCircularProgress1 :

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
60
61
62
63
64
65
66
67
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "PatientezUnit.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvProgressBar"
#pragma link "AdvProgr"
#pragma link "AdvCircularProgress"
#pragma resource "*.dfm"
TPatientezFrm *PatientezFrm;
//ThreadClass1 *MyThread1;
//---------------------------------------------------------------------------
__fastcall TPatientezFrm::TPatientezFrm(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TPatientezFrm::FormActivate(TObject *Sender)
{
        //Synchronize(UpdateCaption);
        PatientezFrm->AdvCircularProgress1->Enabled=true;
        PatientezFrm->AdvCircularProgress1->Refresh();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TPatientezFrm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
/*        PatientezFrm->AdvCircularProgress1->Enabled=false;
        MyThread1 = new ThreadClass1(false);
        MyThread1->Suspend();*/
        if(MonThread) Action = caNone;
        PatientezFrm->AdvCircularProgress1->Enabled=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TPatientezFrm::FormCreate(TObject *Sender)
{
        MyThread1 = new ThreadClass1(true);
        MyThread1->Resume();
}
//---------------------------------------------------------------------------
 
void __fastcall TPatientezFrm::FormPaint(TObject *Sender)
{
        MonThread = new TMonThread(false);
        MonThread->OnTerminate = FinDeMonThread;
        EnableWindow(Handle, false);
 
}
//---------------------------------------------------------------------------
void __fastcall  TPatientezFrm::FinDeMonThread(TObject *Sender)
{
        EnableWindow(Handle, true);
        msg->Caption = "Thread terminé";
        delete MonThread;
        MonThread = NULL;
}
 
//---------------------------------------------------------------------------

[swirtel]

Crée une classe héritant de TThread, tu surcharges le constructeur si nécessaire et la méthode Execute.
Ensuite, il te suffit d'instancer ta classe et laisser ton thread s'amuser seul. Un join est nécessaire en fin de vie de ton application.

[Socrat]

Si tu peux m'expliquer par un bout de code.

Merci

[swirtel]

aller je fais un effort

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
class MyThread : public TThread {
public:
  MyThread( bool est_ce_que_je_suspend_mon_thread = false ) : TThread( est_ce_que_je_suspend_mon_thread ) {
    // Je fais le configure si nécesssaire
  }
  virtual void Execute() {
     // Je fais quelque chose
  }
private:
};

PS : Suffit de lire la doc de Borland :'(

F1 -> TThread -> Voir utilisation TThread.