Bonjour
alors en utilisant TServerSocket pour mon serveur, j'ai un énorme problème

Quand un mec perd sa co internet ou son client crash, TServersocket lance la procédure de OnClientDisconnect facilement 4000 fois en loop et inévitablement, le programme plante

Je peux pas passer mon code en ce moment, même si c'est useless car je code en Delphi, mais voici en gros comment ça se présente:

OnClientDisconnect est appelé.

• Le serveur lance une procédure pour retrouver les infos du client, qui sont dans une classe que j'ai créé, à partir du socket qu'il utilise.

• Le serveur change le compte de personnes dans le serveur en général en enlevant celle qui viens de déco. (J'viens de penser à une meilleure façon )

• Lorsque le client est trouvé, le server prend la salle dans laquelle le client était (système de salle genre chat IRC) et lui enlève 1.

• Le serveur envoie à tout les clients une ligne indiquant la salle et le nouveau compte pour l'afficher.

• Je brise le loop avec break;

J'ai essayé de loggé le problème, et tout semble venir que la personne déconnecte virtuellement 4000 fois.

[99.xxx.xxx.xxx]disconnected 
//La personne est déco, premier log généré au début de onclientdisconnect
found socket
//Lles infos clients sont trouvé via un loop
untaken char
//Nombre de personnes modifié
removed from room
//Le comptes pour la salle où était la personne est modifié
[99.xxx.xxx.xxx]disconnected
found socket
untaken char
removed from room
[99.xxx.xxx.xxx]disconnected
found socket
untaken char
removed from room
[99.xxx.xxx.xxx]disconnected
found socket
untaken char
removed from room

du coup je sais pas comment régler le problème, et s'en est un plutôt gros