Discussion :

[JohnLocke]

Bonjour,

Je suis à la recherche d'un moyen de récupérer l'ID d'un client lors de sa connexion à mon serveur (afin de pouvoir lui envoyer du texte), est il possible de le faire dans l'event "OnClientConnect" ? Et comment ?
Merci d'avance , bonne journée

[ShaiLeTroll]

Qu'est ce que l'ID pour toi ?

Le plus pratique c'est de conserver son SocketHandle à toi de voir si c'est au OnClientConnect ou OnClientRead

Sur le OnClientConnect, je ne vois pas trop à quoi cela servirait, comment reconnaitre une connexion d'une autre
Sur le OnClientRead, en gros tu réponds à celui qui a fourni une trame ou alors tu gères un système d'identification qui te permet de reconnaitre tel ou tel connecté

Quel est ton projet ?
Un Chat ? C'est le sujet à la mode ! Voir probleme connexion 1 serveur 2 clients ou Simple question IdTCP
Un Truc plus intéressant ???

Puis lors d'un envoie sur Connections[] de convertir le Handle en Index comme dans le sujet : Problème sur SocketHandle conflit d'identifiant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function IndexHandle (ServerSocket : TServerSocket; Handle : Integer) : Integer ;
var
    I : integer;
begin
    // Verification de la connexion
    Result := -1 ;
    for I := ServerSocket.Socket.ActiveConnections - 1 downto 0 do begin
        if (Handle) = ServerSocket.Socket.Connections[i].SocketHandle then begin
            Result := I ;
            Break ;
        end;
    end;
end ;

[JohnLocke]

Et bien pour moi l'ID c'est ici la variable i: ServerSocket.Socket.Connections[i], en fait je dev actuellement un serveur multi client et un client en mode console, sur le serveur serra affiché sur la 1ère ligne, le 1er client avec son ID (1), et son IP, sur la 2ème ligne le 2ème client, etc etc

pour le moment j'utilise une variable que j'auto incrémente quand un client se connecte, mais ça devient vite la catastrophe (quand un client se déconnecte par exemple, impossible de savoir lesquels est partis )
Mon projet, c'est une alternative à http://emcosoftware.com/remote-console

Je teste ton code, merci encore pour ton aide

[JohnLocke]

Je n'arrive pas à utiliser cette fonction, il me ressors une erreur ici:

Index := IndexHandle(ServerSocket.Socket, ServerSocket.Socket.Handle) ;
[dcc32 Erreur] Project1.dpr(123): E2010 Types incompatibles : 'TServerSocket' et 'TServerWinSocket'

[ShaiLeTroll]

Pourtant la réponse était simple, suffisait de passer juste ServerSocket !
Sinon, il faut le SocketHandle du CLIENT et non celui du Serveur !
Il faut que tu trouves un système pour mémoriser ses SocketHandle, perso, je gère cela avec des TThread et TThreadList utilisé comme FIFO, c'est un peu tôt pour t'expliquer cela vu que tu débutes !

Code :

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

 Index := IndexHandle(ServerSocket, Client.SocketHandle) ;

Si tu retournes du texte depuis le OnClientRead, tu n'as pas besoin de faire aussi compliqué !


Tu devrais discuter avec franckjoane , il semble faire la même chose que toi probleme connexion 1 serveur 2 clients

[JohnLocke]

Code :

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

 Index := IndexHandle(ServerSocket, Client.SocketHandle) ;

ne fonctionne pas:
[dcc32 Erreur] Project1.dpr(132): E2003 Identificateur non déclaré : 'Client'

[ShaiLeTroll]

Client c'est le Socket du OnClientRead,
Ne connaissant pas tout ton code, je ne peux pas savoir le nom de tes variables,
j'ai volontairement utilisé le terme de "client" comme dans le titre de ton sujet.

Si tu réponds directement depuis le OnClientRead, tu n'as pas besoin de récupérer l'ID d'un Client
Utilise tout simplement le paramètre Socket

ou si tu veux passer par une TThreadList, c'est une variable que TU dois définir, par exemple

Code :

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

1
2
3
4
TClient = record
  ReceivedText: string;
  SocketHandle: TSocket;
end;

Dans le OnClientRead, tu fais ceci

Code :

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

1
2
3
4
5
6
7
8
9
//---------------------------------------------------------------------------
procedure ....ClientReadEventHandler(Sender: TObject; Socket: TCustomWinSocket);
var
  Client: TClient;
begin
  Client.ReceivedText := Socket.ReceiveText;
  Client.SocketHandle = Socket.SocketHandle;
  TraiterMessage(Client); // Idéalement, un TThread + TThreadList de traitement éviterait de bloquer l'évènement de lecture mais tu n'en es pas encore là !
end;

TraiterMessage est une fonction que TU dois écrire

Code :

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

1
2
3
4
5
6
7
8
procedure TraiterMessage(AClient: TClient);
var
  Index: Integer;
begin
   Index := IndexHandle(ServerSocket, AClient.SocketHandle) ;
   if Index >= 0 then
     ServerSocket.Socket.Connections[Index].SendText('Salut, je te réponds : ' + Client.ReceivedText);
end;