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
Si un Client est Connecté, il est déconnecté (OK).
Code : Sélectionner tout - Visualiser dans une fenêtre à part ServeurWeb.Active := false;
et la procédure
est automatiquement appelée
Code : Sélectionner tout - Visualiser dans une fenêtre à part procedure TForm1.ServeurWebDisconnect(AThread: TIdPeerThread);
dans cette procédure, je vais écrire dans un Tmemo
et la j'ai un message d'erreur (Exception) :
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));
"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
Partager