Ayuda con programa de chat en delphi

[zanyodark]

Hola, espero alguien sepa y pueda ayudarme, mi problema es el siguiente:

Hice un programa que es un chat a base de socket server y socket cliente, el cual se conectan a base de la ip del servidor, por lo que el mensaje que se envia de cualquier cliente o servidor lo visualizan en todos los conectados( los clientes deciden si ponen nombre de usario o como invitado), lo que yo quiero hacer es que el servidor haga una lista de todos los clientes conectados y los clientes puedan ver esta lista y tambien que estos (los clientes) puedan decidir a quien enviar el mensaje, para que sea privado y no público osea que nomas el destinatario sea el que vea el mensaje enviado.

No se si me expliqué, pero espero que alguien me pueda ayudar, perdon por las molestias y gracias de antemano.

[lag_0]

Buenas,

La manera más facil es que lo hagas apartir de añadir, por ejemplo, identificadores en las cadenas, que cuando el cliente seleccione un "nick" se mande %%nick%%-mensaje, y al llegar a tu servidor pues busque la ip de el nick y mande el mensaje... No es tarea muy complicada.

Respecto a lo de la lista de usuarios... lo mismo, que al conectar un usuario el servidor lo añada a una lista y mande la de los otros usuarios al nuevo cliente...

Un saludo y espero ayudarte...

[zanyodark]

Gracias por tu ayuda, lo voy a implementar.

[lag_0]

De nada =) mucha suerte.

[zanyodark]

disculpen, aa como puedo ver la ip de los clientes conectados al servidor desde el servidor claro, algun código?

[lag_0]

Supongo que utilizarás TServer socket y tu delphi será < delphi 7, así que intenta con:

ServerSocket1.Socket.Connections[numerodecliente].RemoteAddress