Discussion :

[Sei]

bonjour,
j'ai un petit probleme avec les threads. J'ai cree une application qui fait de l'acquisition de sequence video (a partir d'une carte d'acquisition). J'ai implementer quelques fonctions me permettant d'acquerir et de visualiser en meme temps la sequence et cela grace a un thread. J'ai egalement deux autres threads qui permettent de faire une lecture arriere et avant lorsqu'on arrete l'acquisition.
Mais le probleme est lorsque je termine l'un des threads, borland me dit:
erreur systeme. erreur code: 6. Handle non valide
Pourtant, j'ai fait:

Code :

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

1
2
3
4
5
6
 
monthread->FreeOnTerminate = false;
monthread->Terminate();
monthread->WaitFor();
delete monthread;
monthread = NULL;

Est-ce quelqu'un pourrait me dire où se trouve mon erreur car des fois tout marche tres bien et d'autre fois tout plante.

merci.

[Laurent GAUDILLIER]

bonjour Sei

1°) FreeOnTerminate doit ètre placé a l'initialisation du Thread
2°) Il est très important de prévoir un test de Terminated dans tes sous-routines de ton thread de façon à lorsque tu Met fin au thread, celui ci soit en mesure de ne pas executer une tâche de sous-routine
exmple :

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
 
void TMonThread::Execute()
{
     while(!Terminated && !Suspended
     {
          .....
          Synchronize(FaireQuelqueChose);
     }
}
 
void __fastcall TMonThread:: FaireQuelqueChose()
{
// execute une tàche supposée longue    
    for(short i=0; i<150; i++)
    {
       If(!Terminated) break;
       .....
       .....
     }
}

2°) Une autre manière de procèder plus élégante:

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
 
void TForm1::TForm1(TComponent *AOwner)
{
    MonThread = new TMonThread(false);
    MonThread->Priority = tpLowest;
    MonThread->OnTerminate = MonThreadTerminate;
    MonThread->FreeOnTerminate = true;
}
 
// demande de fin de tache du Thread
void TForm1:: EndMonThread(void)
{
    MonThread->Terminate();
}
 
void __fastcall TForm1::MonThreadTerminate(TObject *)
{
    Monthread = NULL; 
}

Voila en espèrant t'avoir aidé

Laurent

[Sei]

bonjour Laurent,
merci pour ton aide.
mais je comprends pas trop pourquoi mon code plante. De plus lorsque je laisse freeonterminate a true (a l'initialisation sans faire de delete dans le prog principal) mon thread plante a chaque fois. C'est peut etre lie au fait je cree un thread a chaque fois que je lance l'acquisition. Mais bon je vais mettre en application ton code et voir ca ce week-end.

encore merci pour ton aide.

[Laurent GAUDILLIER]

Tu as écrit :

monthread->FreeOnTerminate = false;
monthread->Terminate();
monthread->WaitFor();
delete monthread;
monthread = NULL;

Attention !! dans ce cas, ne met pas la propriété FreeOnTerminate à true
car il va ce produire ceci:

Code :

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

1
2
3
4
5
6
7
 
monthread->FreeOnTerminate = true;
monthread->Terminate();// A cet endroit !! ton monthread va planté
// car dans la ligne ci après, tu fais reference à celui ci alors qu'il est détruit 
monthread->WaitFor(); 
delete monthread; 
monthread = NULL;

Ainsi, il est normal que ton Thread plante

A + Laurent

[DjmSoftware]

Salut
j'ai eu le même problème que toi
j'ai changé de PC pour passer sur un P4 2,4M et maintenent un code qui semblait tourner sur Celeron 500 Mhz me donne sur l'exeécution d'un thread la même erreur que toi
erreur systeme. erreur code: 6.

l'erreur était chez moi une mauvaise synchronistaion entre la VCL et mon thread

si ton thread fait des appels à la VCL prend garde a la sinchronisation entre le thread de la VCL et celui que tu a creé

le mieux ets de crèer un destructeur dans ta classe Thread qui sera appellé de la manière suivante

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
 
 
// destructeur
__fastcall  TMyThread::~TMyThread()
{
  Terminate();
  WaitFor();
}
 
// Constructeur
__fastcall TMyThread::TMyThread(bool CreateSuspended)
    : TThread(CreateSuspended)
{
  FreeOnTerminate=false;
...// ton code d'initialisation
}
 
Appel dans la form Principale
 
TMyThread * MonThread= new TMyThread(false);
..
//utilisation de ton thread
 
 
// finalement s destruction
 
delete  MonThread;

Salutations

[Sei]

bonjour,
je tiens vraiment a vous remercier tous les deux car ca y est, ca marche!!
Ca ne plante plus!
encore merci.

@+ Sei.