[Socket] Comment faire du multi-client ?

Salut,
je voudrait savoir comment on fais pour envoyer un message a un client spécifique dans le cas ou plusieur client sont connecter au server, prennons par exemple : le client1 envoie le message 'auth' le serveur lui repond au autre message....comment faire cela avec TClientSocket et TServerSocket ou un autre type de socket je suit ouvert...?

Citation:

---

Envoyé par eric30eric

TClientSocket et TServerSocket

---

Tu utilises ces vieilles babioles ? Utilise plutôt les compos Indy, open source et bien plus fonctionnels.
Avec ça tu ne devrais pas avoir de problème.

A chaques connections sockets, moi je stockais mes sockets dans un array of TClient (un record de Login : String et Socket : TCustomWinSocket). Comme ca je pouvais retrouver le socket de dialogue avec le client en parcouraint les logins.

resalut,
je ne comprend pas trop ton exemple, peut tu me donner un petit bout de code??

Evenement "OnClientConnect" :

Code:

---

1 2	procedure TForm1.ServerSocketClientConnect(Sender:TObject;Socket:TCustomWinSocket);

---

Le parametre

Code:

---

1 2	Socket : TCustomWinSocket

---

pointe vers le socket client.

Pour en garder une trace :

Code:

---

1 2 3 4 5 6 7 8 9

Var Clients = Array of TCustomWinSocket;   procedure TForm1.ServerSocketClientConnect(Sender:TObject;Socket:TCustomWinSocket); Begin Size := Length(Clients); SetLength(Clients, Size+1); Clients[Size] := Socket; End;

---

Apres pour effectuer une recherche, tu peux parcourir le tableau client, les objets socket possedent des proprietees "host", "adress", "handle", "port", etc ... qui te permettent de retrouver eventuelement qui est qui.

Ou alors complexifie le tableau CLient comme un array of TClient :

Code:

---

1 2 3 4 5 6 7

TClient = Record Login : String; ID : Integer; .. Socket : TCustomWinSocket; End;

---

Pour avoir plus d'infos sur un client.

merci Clorish, sa ma pris un peu de temps a comprendre mais j'y suit arriver :P