[ServerSocket] Envoyer un message vers un client

Bonjour, j'ai une question qui peut paraitre stupide mais je n'ai pas trouvé comment on fait pour envoyer un message vers un client connecté sur le server.

SendText ne s'utilise que si l'on connait le client, par exemple dans la procedure OnClientRead, il y a la variable Socket, et je fais Socket.SendText(s) mais si je veux envoyer un message à n'importe que moment ??

Mon but est d'envoyer un meme message à tous les clients connectés à mon server, alors dans la procedure OnClientConnect, je récupère les IP des clients dans un tableau dynamique, ca pourrait peut etre servir pour ce que je veux faire ?

Merci de m'aider :roll:

Il faut que tu boucles un SendText() pour tous tes clients.

J'essaie de te retrouver une portion de code qui traine dans un projet en stand-by :?

J'ai fait plus vite que prévu :lol:

Code:

---

1 2 3 4 5 6 7 8 9

if (Server0.Socket.ActiveConnections > 0) then begin for i := 0 to Server0.Socket.ActiveConnections - 1 do begin //si le texte reçu vient d'un pc different de celui en cours, lui envoyer if Socket.RemoteAddress <> Server0.Socket.Connections[i].RemoteAddress then Server0.Socket.Connections[i].SendText(Reception); end; end;

---

Voilà le code tel qu'il est actuellement dans un de mes projets...

merci c'est ce que je cherchais ! tu me sauve la vie !!
juste un détail :

Code:

---

1 2 3 4 5 6

for i := 0 to Server0.Socket.ActiveConnections - 1 do begin //si le texte reçu vient d'un pc different de celui en cours, lui envoyer if Socket.RemoteAddress <> Server0.Socket.Connections[i].RemoteAddress then Server0.Socket.Connections[i].SendText(Reception); end;

---

ceci devrait suffire, ton if ne sert à rien.

Sorti du contexte, c'est vrai que le test n'a aucun sens.

Cependant j'effectue une tâche différente s'il n'y a aucun client donc...

N'oublie pas le "Résolu" :wink: