Discussion :

[code34]

Lut,

Voila, j'ai un probleme avec un TThread. En fait, le thread en lui même fonctionne parfaitement bien. Le probleme c'est lorsque j'utilise sa méthode waitfor, je l'ai implémanté de cette façon la pour le débugage :

Code :

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

1
2
3
 
                MonThread:= TMonThread.Create(Fileout);
                Thread.WaitFor;

Delphi me renvoit alors une exeception EThread, erreur de thread : descripteur non valide(6).

Code :

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

1
2
3
 
                MonThread:= TMonThread.Create(Fileout);
                Thread.Suspend;

Je précise au passage que les autres méthodes suspend, resume fonctionnent (conf ci dessus).


Est ce que ça peut etre lié au constructor, voila ce que j'utilise :

Code :

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

1
2
3
4
5
6
 
constructor TThreadprincipal.Create(Currentpb_temp:integer; Url_temp:string; Filename_temp:string);
begin
  inherited Create(False);
  FreeOnTerminate := True;
end;

[Smortex]

Hihi ! Je suis tombé dessus cet aprèm

En fait, cela vient du FreeOnTerminate... Comme tu le met a True, lorsque la procédure execute se termine, le thread est libéré (Jusque là, c'est normal). Saut que WaitFor quand le Thread devient égal à nil... Il n'apprécie guère !

Il suffit donc de ne pas mettre le FreeOnTerminate et de bien penser a libérer le thread manuellement

Code :

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

1
2
3
4
5
6
with TMonThread.Create(Fileout) do
try
  WaitFor; 
finally
  Free;
end;

Bon développement

[code34]

Effectivement ça fonctionne bien.

Je suis arrivé à la meme conclusion, il y a quelques minutes en forçant le thread à s'autoterminer (ça fait très terminator ) )

Code :

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

1
2
 
ExitThread(Thread.threadid);

Mais bon, je vais essayer d'implemanter ta méthode, avec le with, ça sera plus propre.