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 : Sélectionner tout - Visualiser dans une fenêtre à part
      ServeurWeb.Active := false;
Si un Client est Connecté, il est déconnecté (OK).

et la procédure

Code : Sélectionner tout - Visualiser dans une fenêtre à part
procedure TForm1.ServeurWebDisconnect(AThread: TIdPeerThread);
est automatiquement appelée

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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