Indy Terminate Thread Timeout

Tous d'abord,

bonjour à tous,

Je suis entrain de développez un petit serveur HTTP avec Indy V9.0.18.
(TIdHTTPServer)

Tous ce passe bien, excepté lorsque je désir fermer le serveur en faisant

Code:

---

ServeurWeb.Active := false;

---

Si un Client est Connecté, il est déconnecté (OK).

et la procédure

Code:

---

procedure TForm1.ServeurWebDisconnect(AThread: TIdPeerThread);

---

est automatiquement appelée

dans cette procédure, je vais écrire dans un Tmemo

Code:

---

1 2	Trames.Lines.Add(FormatDateTime('"Server disconnected at " hh:mm:ss ', Now) + ' Nb. = ' + IntToStr(x));

---

et la j'ai un message d'erreur (Exception) :
"Terminate Thread Timeout" qui est généré.

J'ai essayer de chercher une solution dans différent forum, mais je n'ai pas trouvé de solution.

Quelqu'un pourrait-il m'aider ?

Je vous remerci de votre aide

Fred

Citation:

---

Envoyé par FredKaes

Quelqu'un pourrait-il m'aider ?

---

Aide-toi et le ciel t'aidera, :mouarf:, et sinon, un ch'tit coup de F1 sur Terminate, y a sûrement une embrouille par là ou dans le Create avec pas la bonne propriété.
Mais ch'suis pas spécialiste des threads.
--
jp

Merci JP pour la réponse, je vais chercher dans cette direction ;).

Désolé Slimjoe pour les balises code, je n'avais pas vu...

Et à +

Aide-toi et le ciel t'aidera, :yaisse2:

c'est bien ce que disait JP, en cherchant bien, j'ai remarqué que "Terminate Thread Timeout" est générer au moment ou j'écris dans le Tmemo. En mode debug, le curseur rest bloqué (5 secondes) et l'exception apparaît.

J'ai simplement ajouter un flag qui me signal quand je suis entrain de fermer le logiciel et je n'écrit pas de ligne dans Tmémo, comme je quitte le logiciel, je ne verrais de toute manière pas cette ligne.

Il est vrai que si l'on ne quitte pas le logiciel, rien ne sera écrit !!

Mon problème est par conséquent que partiellement résolu et si quelqu'un a une autre solution, je suis preneur.

Fred