Discussion :

[raggadoll]

Salut !

Bon je developpe un programme qui doit piloter un moteurs pas à pas. Pour cela j'ai une interface qui lance un thread contenant les ordres de déplacements des moteurs. Sur cette interface je veux mettre un bouton pause/reprise et un bouton arrêt d'urgence. Mon problème est le suivant : l'appel de la méthode suspend () du thread est inefficasse, le mouvement continue toujours.

Merci de votre aide.

code de l'interface :

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
 
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
void __fastcall TForm1::threadClick(TObject *Sender)
{
 generationthread () ;
}
void __fastcall TForm1::killerClick(TObject *Sender)
{
try {
monthread->Terminate() ; }
catch ( const EThread &e ) { ShowMessage ("thread fini avant"); return ;}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::pauseClick(TObject *Sender)
{
  //compteur initialisé à 0 dans le header
try {
if ( compteur == 0 ) { monthread->Suspend(); compteur++ ; }
   else  { monthread->Resume() ; compteur-- ; }
   }
catch ( const EThread &e ) { ShowMessage ("thread inexistant");}
}
//---------------------------------------------------------------------------
void TForm1::generationthread ()  //creation du thread
{
  monthread = new essais ( true ) ;
  monthread->FreeOnTerminate = true ;
  monthread->Resume() ;
}

et le code du 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
26
27
 
__fastcall essais::essais(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall essais::Execute()
{
if (!Terminated){
 
a.ymove(-2000) ; // ordre de bouger à la position -2000
a.yfinmove() ;  //attente bloquante de fin de mouvement
Sleep ( 500 ) ;
}
 
if (!Terminated){
 
a.ymove(0) ; //ordre de revenir à la position de départ
a.yfinmove() ;  //attente bloquante de fin de mouvement
Sleep ( 500 ) ;
 
}
 
//le thread appel une méthode de l'interface pour générer un nouveau thread
// identique
if (!Terminated){ Form1->generationthread() ; }
}

[declencher]

Je n'ai peut être pas tout compris, mais tu as marqué toi même que tu avais une méthode bloquante dans ton thread.

C'est normal que le suspend soit inefficace. En tout cas moi je m'étais posé la même question lorsque je voulais terminer mon thread

[raggadoll]

Tu veux dire que si le prog principal appel la méthode suspend du thread et que celui ci est en attente de quelque chose ( en l'occurence d'une réponse de mon interface moteur ), le thread ne se met pas en pause ( cad que suspend n'est pas traité ) ???

[declencher]

oui, c'est ça Moi j'appelé la méthode Terminate, je voulais stopper mon thread, or il était en attente de lecture sur un socket.

[raggadoll]

Bon j'ai peut être trouvé la parade avant chaque instruction de mouvement moteur je place la ligne de code suivante dans le thread :

Code :

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

while ( Suspended ) {}

Bien sur c'est efficase mais j'aimerai connaitre une technique pour éviter l'attente active qui consomme du temps CPU pour rien.

merci

[DjmSoftware]

utilise les objects de synchonisation de Win32

Code :

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

WaitForSingleObject

d'autre part c'est assez dangereux d'appeler une méthode du thread Principal VCL sans synchronisation,
le mieux est d'utilisser un PostMessage depuis ton thread
tu peux voir cette technique depuis mon tut

http://djmsoftware.developpez.com/PrintMonitor/
cordialement