Discussion :

[eric30eric]

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...?

[sjrd]

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.

[Clorish]

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.

[eric30eric]

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

[Clorish]

Evenement "OnClientConnect" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le parametre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Socket :  TCustomWinSocket

pointe vers le socket client.

Pour en garder une trace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
TClient = Record
Login : String;
ID : Integer;
..
Socket : TCustomWinSocket;
End;

Pour avoir plus d'infos sur un client.

[eric30eric]

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