Discussion :

[Chyokyka]

Bonjour !
Je vous explique mon problème :
Je suis le serveur et mon frère et ma soeur, le client.
Adresse IP de mon frère : 192.168.0.10
Adresse IP de ma soeur : 192.168.0.11
Depuis le serveur, je souhaiterais envoyer un message a 192.168.0.10 et pas à 192.168.0.11 !
Comment faire ? Merci !
PS : TListBox : LConnecte;
Tous les clients connectés sont sur cette ListBox.

Code :

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

1
2
3
4
5
6
7
8
procedure Send(t:string); // t:='ENVOYE A 192.168.0.10 : Message a envoyer';
var i:integer;
begin
  for i:=0 to Form1.Serveur.Socket.ActiveConnections-1 do
  begin
    Form1.Serveur.Socket.Connections[i].SendText(t);
  end;
end;

[ShaiLeTroll]

il te suffit de tester la propriété RemotelAddress de Connections[i] ...

tu peux utiliser aussi RemoteAddr qui est l'adresse IP en binaire, conversion via inet_ntoa et inet_addr

[Chyokyka]

Salut,
"il te suffit de tester la propriété RemoteAddress de Connections[i] ..." ?
Comme ceci ?

Code :

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

Form1.Serveur.Socket.Connections[i].RemoteAddress.SendText(TextAEnvoyer);

Ce code ne marche pas

[ShaiLeTroll]

Quand même !
Consulte un peu l'aide, et reflechit avant d'écrire des conneries !
Tester, comme tester une condition ...

Code :

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

1
2
3
4
5
6
7
8
9
procedure Send(t:string; dest: string); 
var i: integer;
begin
  for i:=0 to Form1.Serveur.Socket.ActiveConnections-1 do
  begin
    if Form1.Serveur.Socket.Connections[i].RemoteAddress = dest then 
      Form1.Serveur.Socket.Connections[i].SendText(t);
  end;
end;

Code :

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

1
2
 
Send('Salut', '192.168.1.10');

[Chyokyka]

Ah d'accord ...
Merci :p