Exécution d'un thread

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:

---

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);

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

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:

---

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

---

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.

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

Merci

aller je fais un effort

Code:

---

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.