Enviar un mensaje a todas las conexiones activas

[•–[XII]–•]

Pido perdón por mi conducta, pero un compañero que viaja por estos foros me recomendó que entrase, que me responderían rápido, y al ver que esperaba y no encontraba respuesta de ninguno de Ud., postee otro mensaje. Sinceramente, les pido disculpas.

Lo que trato es de enviar un string a todas las conexiones activas. Voy a explicar el funcionamiento de mi aplicación:

-El cliente envía un mensaje al servidor
-El servidor comprueba que no sea un comando
-El servidor reenvía el mensaje a todos los clientes conectados al servidor.

¿Alguien sabría como puedo hacer lo tercero?. Muchas gracias.

[roman]

Empezado por •–[XII]–•

¿Alguien sabría como puedo hacer lo tercero?. Muchas gracias.

Pues esto ya te lo contestó el compañero jachguate:

Empezado por jachguate

bastaría hacer un bucle que recorra los Threads del server para escribir los mensajes

Si buscas en las demos de Indy (puedes bajarlas de http://www.nevrona.com/Indy/ junto con la útima versión) encontrarás varias que te pueden ejemplificar; por ejemplo la del Chat, que tiene la función BroadcastMessage que manda un menaje a todos los clientes.

// Saludos

[•–[XII]–•]

Código Delphi [-]
//Esto supongo que listará los clientes conectados
 List := tcpServer.Threads.LockList;
 try
    for Count := 0 to List.Count -1 do
      try
           //Supongo que en esta parte es el la que se envía el mensaje a todas las conexiones.
          TIdPeerThread(List.Items[Count]).Connection.WriteLn(Msg);
      except
           TIdPeerThread(List.Items[Count]).Stop;
       end;
       finally
           tcpServer.Threads.UnlockList;
       end;

Es verdad, había revisado el ejemplo, pero no encontraba la sección para distribuirlo. Una duda más... ¿para que sirve el Trim?, porque con la ayuda de Delphi no me aclaro (No se si debería poner esto en un nuevo hilo..., pero como es una pregunta sencilla...).


Muchas gracias

[marcoszorrilla]

Realmente debieras de abrir otro hilo, puesto que la pregunta no tiene nada que ver con Internet, pero ya para cerrar este, te respondo.

Si escribes trim te colocas sobre dicha palabara y pulsas control + F1:

string handling routines

function Trim(const S: string): string;

Description

Trim removes leading and trailing spaces and control characters from the given string S

Un Saludo.

[•–[XII]–•]

Empezado por marcoszorrilla

te colocas sobre dicha palabara y pulsas control + F1:

Eso ya lo hice antes de postear, lo que no se es el significado de la frase última. de:

Trim removes leading and trailing spaces and control characters from the given string

Trim elimina ¿? y ¿? espacios y controla los carácteres de la cadena dada.

[roman]

Empezado por •–[XII]–•

Trim elimina ¿? y ¿? espacios y controla los carácteres de la cadena dada.

Trim elimina espacios al comienzo y al final y carácteres de control de la cadena dada.

Hay que reforzar el inglés ¿eh?

// Saludos

[•–[XII]–•]

Empezado por roman

Hay que reforzar el inglés ¿eh?

Cuanta razón lleva!!, por cierto, en la línea:

Código Delphi [-]
  //Esto supongo que listará los clientes conectados
  List := tcpServer.Threads.LockList;

Me da error en Threads en mi aplicación, ¿porqué?