![]() |
![]() |
![]() |
![]() |
![]() |
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 ![]() 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. |
|
|
![]() |
|