Discussion :

[yanis97]

Bonjour ;

J'utilise un pool de thread maison qui est customisé (max de thread) et je souhaite savoir comment recycler en Delphi 7 un thread une fois qu'il a terminé son activité.
Je ne veux pas laisser les threads se suicider à la sortie de la méthode run ou execute pour en créer de nouveaux (dommage !).

Merci;

[Graffito]

Bonjour,

Tu peux faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Instructions du Pgm appelant 
// premier appel : mythread1:=mythread.create(false) (ou ...create(true) ; mythread.resume; )
// autres appels : mythread1.resume ;
// libération    : mythread1.terminate ; mythread1.resume ;
 
procedure Tmythread.execute ;
begin 
repeat RealExecute ; suspend ; until terminated ;
end ;
 
procedure TmyThread.RealExecute ;
begin
// ici le code d'éxecution du thread
end ;

[yanis97]

Bonjour,

Tu peux faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Instructions du Pgm appelant 
// premier appel : mythread1:=mythread.create(false) (ou ...create(true) ; mythread.resume; )
// autres appels : mythread1.resume ;
// libération    : mythread1.terminate ; mythread1.resume ;
 
procedure Tmythread.execute ;
begin 
repeat RealExecute ; suspend ; until terminated ;
end ;
 
procedure TmyThread.RealExecute ;
begin
// ici le code d'éxecution du thread
end ;

Bonjour;

J'ai essayé ca mais ce ne fonctionne pas : le traitement associé au deuxième resume n'est jamais réalisé !
Bizare !!!!

A+;