programar un chat (Cliente/Servidor)

[DarkByte]

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