Discussion :

[Hypollite76]

Bonjour , j'ai crée un thread et une procedure onterminate ma fonction fonctionne dans une application standard par contre lorsque je l'utilise dans un active X, mon thread execute fonctionne mais pas mon onterminate. Je ne comprends pas pourquoi.
Trouvez le code d'essai que j'ai réalisé.

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
CONSTRUcTOR TESSAI.CREATE(SUSPENDED:BOOLEAN);
begin
FreeOnterminate:=true;
inherited create(suspended);
onterminate:= onterminateprocedure;
 end;
 
procedure TESSAI.Execute;
begin
 
sleep(20000) ;
 i:=10;
end;
 
procedure TESSAI.onterminateprocedure(sender :Tobject);
begin
i:=5000;
end ;

[Eric Boisvert]

Sans pouvoir expliquer ce qui ce passe, tu peux toujours
forcer cette fonctionnalitée de cette manière:

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
 
constructor TESSAI.CREATE(SUSPENDED:BOOLEAN);
begin
  FreeOnterminate:=true;
  inherited create(suspended);
  OnTerminate:= OnTerminateProcedure;
end;
 
procedure TESSAI.Execute;
begin
  try 
    sleep(20000) ;
    i:=10;
  finally
    DoTerminate; //Force l'execution de OnTerminate() 
  end;
end;

Il y a surment un context particulier du fait qu'on est dans un ActiveX...
mais ca, j'y connais pas grand chose...

Faut dire que OnTerminate est appelé avec la méthode Synchronize...
c'est peut-être elle qui fait des problèmes dans un ActiveX...
Si c'est le cas, le code que je viens de citer ne fonctionnera pas non plus

Il te reste alors la possibilité d'appeler directement ta procedure dans
la portion finally ce qui implique d'enlever l'assignation à OnTerminate.

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
 
constructor TESSAI.CREATE(SUSPENDED:BOOLEAN);
begin
  FreeOnterminate:=true;
  inherited create(suspended);
  //OnTerminate:= OnTerminateProcedure;
end;
 
procedure TESSAI.Execute;
begin
  try 
    sleep(20000) ;
    i:=10;
  finally
    OnTerminateProcedure(Self); //call directe la fonction sans synchronize   
  end;
end;

Je crois que le 2ème code devrait régler ton problème.