FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Sockets: Enviar un mensaje a todos los clientes conectados!!!
Hola de nuevo. Tengo un problema:
Estoy haciendo un programa que funcione como un chat para una red. Funciona de modo que un cliente envía la información y el servidor se la devuelve a todo el mundo (o así es como debería funcionar ), pero no, el servidor solo me devuelve la información al cliente que se la mandó. El código en el que creo que debe de estar el error es el siguiente: procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var TextoRecibido : String; begin TextoRecibido := Socket.ReceiveText; Socket.SendText(TextoRecibido); txtRecibido.Lines.Add (TextoRecibido); end; Aclaración: txtRecibido es un Memo. Gracias a todos de nuevo, espero su ayuda
__________________
:) Última edición por DarkByte fecha: 09-11-2003 a las 12:50:04. |
|
|
|