Discussion :

[Michel_57]

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

[PyRoFlo]

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

[PyRoFlo]

J'ai fait plus vite que prévu

Code :

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

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...

[Michel_57]

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

Code :

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

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.

[PyRoFlo]

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"