Gestion de plusieurs clients Socket
Bonjour a tous !
Voila mon probleme !
je voudrais que tous les clients puissent voir qui est connecter sur le chat !
j'ai deja programmé ca :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
int i=0,j=0;
AnsiString Mess,Pseudo;
for(j=0; j<ServerSocket1->Socket->ActiveConnections; j++)
{
if(ServerSocket1->Socket->Connections[j]->ReceiveLength()>0)
{
Mess = ServerSocket1->Socket->Connections[j]->ReceiveText();
if((Mess.c_str()[0]=='@')&&(Mess.c_str()[1]=='@')&&(Mess.c_str()[2]=='@')&&(Mess.c_str()[3])=='@')
{
Pseudo=Mess.SubString(5,20);
ServerSocket1->Socket->Connections[i]->SendText(ClientsCo->Lines->Add(Pseudo));
}
else
{
for (i=0; i<ServerSocket1->Socket->ActiveConnections; i++)
{
if(ServerSocket1->Socket->Connections[i]->Connected)
{
ServerSocket1->Socket->Connections[i]->SendText(Mess);
}
}
}
}
}
} |
Et la, j'aimerai que le serveur envoie la liste des pseudo a tous les clients pour etre affiché dans un TMemo
Et le petit plus serai d'enlever le pseudo une fois déconnecté mais ca, j'essairai de le résoudre une fois que j'aurai gerer les Clients
Voila si quelqu'un a une idée ?:cry: