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 :
Et la, j'aimerai que le serveur envoie la liste des pseudo a tous les clients pour etre affiché dans un TMemo
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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 ?
Partager