Discussion :

[Champy_33]

Bonjour

Delphi 2010 :
J'ai 1 PC (serveur) qui doit communiquer avec 2 autres par socket.
Ne pouvant pas modifier les softs des 'Clients' (sous Android), je souhaite utiliser un port spécifique pour chacun d'eux, afin de ne pas mélanger les messages.

Quand j'implémente un seul composant TServerSocket sur le PC serveur, tout se passe bien, mais je ne peux forcément dialoguer que sur un port unique.
Si je tente d'implémenter un second TServerSocket (écoutant un port différent), il ne fonctionne pas. Seul le premier créé fonctionne !
La seconde demande de connexion n'est même pas repérée...

Est-ce normal, ou bien je m'y prends comme un manche ?

Merci d'avance
Amicalement, Champy

[ShaiLeTroll]

Pour en avoir utiliser 6 en même temps en D6, je peux te dire que cela fonctionnait très bien à l'époque
Tu as du mal configurer quelque choses !
Le Firewall ?
Tu as mis les gestionnaires Accept et Read

, je souhaite utiliser un port spécifique pour chacun d'eux, afin de ne pas mélanger les messages.

Si c'est le client qui émet une requête et le serveur qui répond
Pense que si tu codes bien ton TServerSocket, tu peux associer un message avec le Handle du Socket qui a émis le message, et te servir de celui-ci pour émettre la réponse


Si le serveur prend l'initiative du dialogue, c'est difficile de savoir à qui envoyer un message

[ram-0000]

Si le serveur prend l'initiative du dialogue, c'est difficile de savoir à qui envoyer un message

Et même plus, si le serveur prend l'initiative du dialogue, c'est que c'est un client (du moins pour cette partie du protocole) .

[Champy_33]

Merci beaucoup

Je me doute que ça devrait marcher. Mais malheureusement, c'est 'niet'

Les Firewall sont stoppés sur les 3 PC.
Les 2 TServerSocket sont implémentés exactement de la même manière, mis à part le numéro de port écouté, et c'est le même code pour les deux (je fais le distingo dans les procédures en me servant du 'Sender').
Les procédures marchent impeccable quand il n'y a qu'un seul SocketServer. Le problème doit donc logiquement se situer ailleurs.

Le composant TServerSocket étant un peu ancien (il me semble qu'il date de Delphi 3 -1997...), n'y aurait-il pas une incompatibilité avec Win 7, ou bien avec Delphi 2010 ?

Malheureusement, je n'ai plus Delphi 7, pour faire un essai...

Pour préciser le but, le PC 'Serveur' gère une animation OpenGL qui varie en fonction des messages transmis par les 2 clients. Il renvoie aussi des valeurs aux clients.
C'est un peu comme un jeu en ligne qui s'adapte aux demandes des joueurs (sauf que c'est plutôt un 'serious game' dans mon cas ).

Je vais tenter le coup avec un Server 'Indi'. Ca lèvera peut-être le doute.

Allez, on verra ça lundi prochain...

Bon WE et encore merci.
Amicalement, Champy

[ShaiLeTroll]

Et même plus, si le serveur prend l'initiative du dialogue, c'est que c'est un client (du moins pour cette partie du protocole) .

quand je parlais de prendre "l'initiative du dialogue", j'ai peut-être mal choisi mon terme
Je voulais dire que le serveur décide d'envoyer une trame à tous ses clients connectés et non qu'il décide lui même de se connecter !

J'opposais un GET\RESPONSE typique d'un dialogue client\serveur
à un KeepAlive ou à une émission cyclique d'état par exemple,
le serveur tous les n secondes émets une trame de sa propre initiative !

Pour ma part, j'ai eu cette situation, comme j'avais plusieurs clients, seuls une partie souhaitais s'abonner à un event, lors de la connexion, le client émettait une trame d'identification et d'abonnement

ce qui donnait un dialogue de la forme, IDT->\ABON->\<-CONFIRM\<-EVENT\<-EVENT\<-EVENT....
client->server
server<-client

(je fais le distingo dans les procédures en me servant du 'Sender')

Si tu arrives à bien gérer Sender + SocketHandle, oublie les 2 ports !
Tu ne peux pas ouvrir autant de port que tu as de clients !

Je ne vois pas ce qui te pose problème avec un seul TServerSocket

Par contre, TServerSocket a été déprécié un moment,
aujourd’hui, c'est moins clair et il a en plus été migré en Unicode !

Alors que peut-être, il n'apprécie pas Win7 !

Tes deux TServerSocket sont bien en NonBlocking ?
Tu n'as pas oublié le Active à true ?

[Champy_33]

Re

En réalité, chaque client se connecte au serveur pour ouvrir sa session.
Le serveur peut distinguer chaque client (ne serait-ce qu'avec l'IP d'emission) afin de les 'trier les patates'. .

En revanche, le serveur doit répondre individuellement à chaque client (en fonction du contexte) sans que les autres clients ne reçoivent ce message.

C'est finalement ça que je ne sais pas faire en n'utilisant qu'un seul port.

Merci
Amicalement, Champy

[philnext]

Bon moi pour des manips similaires j'utilises les composants ICS. Tu as des exemple de serveur TCP lequel crée une instance à chaque client connecté, tous se connectent sur le même port.

[ShaiLeTroll]

En revanche, le serveur doit répondre individuellement à chaque client (en fonction du contexte) sans que les autres clients ne reçoivent ce message.

C'est finalement ça que je ne sais pas faire en n'utilisant qu'un seul port.

Tu n'as pas lu ce lien que j'ai fourni dès le début : Handle du Socket
Cela fourni un exemple de dispatch de message vers le bon destinataire !
Faut juste faire un peu d'effort, j'ai fait ce code alors que j'étais encore qu'un apprenti, c'est donc largement à ta portée !

Il suffit de boucler sur ServerSocket.Socket.Connections[i] et de retrouver la bonne cible en fonction de l'IP ou du SocketHandle


Mais si tu as procédé autrement , c'est donc ?
Le bouton est juste en bas !