Ver Mensaje Individual
  #2  
Antiguo 03-01-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Reputación: 24
DarkByte Va por buen camino
Me alegra que te guste esto de la programación...

Mira, lo que te voy a decir es del Client y Server Socket y no de los Indy's, a si que si utilizas estos últimos, no me eches cuenta.

Para conectar el Cliente al servidor puedes hacerlo a través de un botón con el código:

Código Delphi [-]
ClientSocket1.Address := IpDelServidor;
ClientSocket1.Active := True;

Después también puedes poner en el cliente un Edit y un botón con el texto enviar, supongamos que el edit se llama eTextoaenviar, y que también tenemos un memo llamado mmConversación; en el evento OnClick del botón pones;
Código Delphi [-]
ClientSocket1.Socket.SendText (eTextoaenviar.Text);
mmConversacion.Lines.Add (eTextoaenviar.Text);
En el evento OnRead (Al leer) del ClientSocket pones:
Código Delphi [-]
mmConversacion.Lines.Add (Socket.ReceiveText);
Con esto has conseguido que, al recibir un texto, lo ponga en el memo.

Ahora el botón de desconectar:
Código Delphi [-]
ClientSocket.Active := False;
Esto te lo he escrito sobre la marcha, por lo que lo más seguro es que tenga algún fallo, confío en que los gurus de clubdelphi me corrigan. Mañana si tengo tiempo y me acuerdo te pongo algo que te aclare las ideas con el ServerSocket.

Espero haberte ayudado..., si tienes alguna duda o te sale algo mal no dudes en preguntar. Y... espero que te siga entusiasmando delphi, yo me sorprendo con él cada día
__________________
:)

Última edición por DarkByte fecha: 19-07-2004 a las 13:32:24. Razón: Pongo las etiquetas [Delphi] y [/Delphi]
Responder Con Cita