Ver Mensaje Individual
  #10  
Antiguo 12-05-2004
•–[XII]–• •–[XII]–• is offline
Miembro
 
Registrado: may 2004
Posts: 21
Reputación: 0
•–[XII]–• Va por buen camino
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

Última edición por •–[XII]–• fecha: 12-05-2004 a las 08:11:00.
Responder Con Cita