Discussion :

[lou_delphdev]

bonjours tous le monde, je dois developper une aplication clients/serveur...avec les composants sockets....
Idée générale:
sur l'aplication serveur je dois afficher les clients connecté sur le réseau....environ 8 post avec des Ip fix! les postes clients ne doivent pas changer je veus dire que le poste ayant l'IP 192.168.1.1 par exemple dois tjrs figurer comme etant le poste N°1 et c la meme chose pour la suite des postes......ya aussi autre chose d'important que je n'arrive pas a résoudre.....c'est que je dois envoyer des text au postes clients de puis le serveur et chaque text dois etre destiné a un seul poste donnée et pas aux autres!!!
Help me

[ShaiLeTroll]

Quelle Version de Delphi ?
Quel Composant TCP\IP Socket ? TServerSocket ? TTCPServer ? Indy ? ICS ?

Si IP Fixe, stockage dans une table des IP et de leur numéro
Exemple Ini

[CLIENTS]
1=192.168.1.1
2=192.168.1.48
3=192.168.1.51
4=192.168.1.2
5=192.168.1.3

Ensuite, en fonction de la Lib, tu as des objets sockets dans une collection, le serveur a autant de client dans sa connexion qu'il y a poste connecté !

J'avais pourtant déjà répondu en 2007 : Utilisation des Tsocket en parcourant TServerSocket.Socket.Connections[i] en utilisant le Handle (ou RemoteAddress\RemoteHost) pour mémoriser qui envoie et donc qui doit recevoir sa réponse !

j'ai fait exactement la même manip pour mon 1er projet Socket en Delphi, c'est vraiment très simple avec le TServerSocket !

[lou_delphdev]

Oups, j'ai oublié de mentionner la version du delphi que j'utilise et les composant....
Delphi6 et pour les composants c'est les tserversocketet tclient socket.

pour la partie du stockage des Ip c claire, mais Svp pouvez me dire comment envoyer un texte a un tclientsocket qui a une Ip donnée (192.168.1.1) par exemple uniquement sans que les autres tclientsocket ne reçoivent le txt...
Merci d'avence

[Paul TOTH]

Oups, j'ai oublié de mentionner la version du delphi que j'utilise et les composant....
Delphi6 et pour les composants c'est les tserversocketet tclient socket.

pour la partie du stockage des Ip c claire, mais Svp pouvez me dire comment envoyer un texte a un tclientsocket qui a une Ip donnée (192.168.1.1) par exemple uniquement sans que les autres tclientsocket ne reçoivent le txt...
Merci d'avence

lors de l'Accept tu récupères l'@IP du client, donc tu sais qui c'est.

[lou_delphdev]

oui, mais c'est dans le sens contraire que je bloque!!! peut etre que je me suis mal exprimer..

j'ai 8 aplications client sur le quelles j'ai mis un tclientsocket et une apli serveur ou il y a un tserversocket
exemple:
ip serveur : 192.168.1.1
ip client 1 : 192.168.1.2
ip client 2 : 192.168.1.3
ip client 3 : 192.168.1.4
ip client 4 : 192.168.1.5
ip client 5 : 192.168.1.6
ip client 6 : 192.168.1.7
ip client 7 : 192.168.1.8
ip client 8 : 192.168.1.9

NB: les IP des postes client restent fixe...

pour reconaitre les postes clients sur l'apli serveur c'est claire, je stocke les Ip sur une table ou fichier ini puis a chaque connexion je compareet Op je reconaisquel posteest connecté!!!

ce que je veus réaliser, est d'envoyer des textes aux clients, mais pas tous au meme temps.

par exemple, j'envoe "Bonjour" uniquement au poste 1 qui a comme IP: 192.168.1.2 mais s'a ne s'affiche que chez le Poste 1.
comme j'envoie "Salut" au poste 2 qui a comme IP :192.168.1.3 et sa ne s'affiche qu'au poste 2........aini de suite!

Normalement c'est claire!
Help me!!!

[ShaiLeTroll]

J'ai très bien compris, tu veux choisir le destinataire !
Tu pourrais lire nos réponses, utiliser l'aide F1 sur les mots que tu ne connais pas ?
Je t'ai répondu la même chose il y a plus de trois ans, tu n'as toujours pas cherché à comprendre, c'est lassant !

Code :

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

1
2
3
4
5
6
7
8
for i := 0 to ServerSocket.Socket.ActiveConnections - 1 do
begin
  if ServerSocket.Socket.Connections[i].RemoteAddress = GetClientIPByNumero(ClientNumero) then
  begin
    ServerSocket.Socket.Connections[i].SendText(...);
    break;
  end;
end;

Code :

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

1
2
3
4
5
function GetClientIPByNumero(AClientNumero: Integer): string;
begin
  // IniFile Create et Free si tu n'utilises pas une globale (singleton)
  IniFile.ReadString('CLIENTS', IntToStr(AClientNumero), '');
end;

[CLIENTS] est la section décrit plus haut

[lou_delphdev]

Merci....