1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
//------------------------------------------------------------------------
// ***** OnClientDisconnect *****
//------------------------------------------------------------------------
void __fastcall TForm1::sockClientDisconnect(TObject *Sender, TCustomWinSocket *Socket)
{
// Socket est le socket du client qui a quitté (sauvagement ou pas)
// Sachant que le socket ne sera libéré qu'après la fin de l'évènement
// le pointeur est toujours valide
// On va alors chercher dans notre liste de clients, lequel a un pointeur identique.
client *c = MaListDeClients->RenvoyerClientSelonSocket (Socket);
c->mysocket = NULL;
// Après tu fais ce que tu veux de ton client :D
if (c->AQuitteProprement) {FaireCeci (c);}
else {FaireCela (c);}
} |
Partager