Foros Club Delphi - Chat con Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Chat con Delphi (https://www.clubdelphi.com/foros/showthread.php?t=64531)

Como ocupo los comando para enviar mensajes privados, y obtener la lista de usuarios conectados.

alguien me puede ayudar con el codigo porfa... gracias

Hola... tengo una duda, lo que quiero hacer es que la aplicacion me genera una lista (Tlistbox), con todos los usuarios conectados.

Que esta se actualize cada vez que se conecta o desconecta algun usuario.

Una idea que se me ocurre es que en los eventos OnConnected y OnDisconected del TicsChatClient, llame al evento OnNicklist y tengo el siguiente codigo:

Código Delphi [-]procedure TForm1.ChatClientNickList(Sender: TObject; UserList: TUserList);
var
  i: integer;
begin
  for i:=0 to UserList.Count-1 do listbox1.Items.Add(UserList.Users[i].Nick)
end;

El problema es que no se como llamar al evento OnNickList desde otro evento.

Se puede hacer esto?
Alguien se le ocurre alguna mejor idea?

Saludos

Puedes usar estos eventos:
OnJoinNick - te dice el username de alguien que ha entrao al chat
OnPartNick - te dice el username de alguien que se ha ido
OnChangeNick - Un usuario se ha cambiado el nombre

El evento OnNickList se produce como respuesta al envio del comando /list y tambien se recibe la primera vez que se establece la conexión.

Hay bastantes mas eventos, lo único que tienes que hacer es curiosear un poco, y ademas, también puedes mirar el código fuente. Y preguntar aquí, claro.

Un saludo!

Componentes del CHAT

Cita:

Empezado por dec (Mensaje 344313)

Hola,

Tienes que crear un nuevo "paquete" (mira en el menú File -> New -> Package) y en dicho paquete añadir las unidades de los componentes. Una vez tengas esto hecho ya podrás instalar el paquete, y tendrás los componentes listos para usar (en la pestaña "ClubDelphi").

Hola mira estuve leyendo como implementar un chat de Julian, pero no puedo instalar los componentes que menciona... ya realice lo que indicas en el mismo pero me marca un error WSocket.dcu no encontrado. Utilizo DELPHI 2007 FOR 32

Gracias

¿has puesto los ICS de FPiette?
Tienes que ponerlos, y despues los icsChatComponents.

Un saludo!

No se nada al respecto... solo instale los PACKAGE de ICS el que se llama D2007Install.GroupProj... me podrias explicar con que empieza... te lo agradeceria.... :)

:D

Gracias

Cita:

Empezado por Julián (Mensaje 354315)

¿has puesto los ICS de FPiette?
Tienes que ponerlos, y despues los icsChatComponents.

Un saludo!

No se nada al respecto... solo instale los PACKAGE de ICS el que se llama D2007Install.GroupProj... me podrias explicar con que empieza... te lo agradeceria.... :)

:D

Gracias

Cita:

Empezado por mjjj (Mensaje 344271)

Los componentes ICS los pude bajar e instalar, pero el demo, con los codigo no hay caso.... no los puede bajar... me pueden tirar otro link.

Gracias

Hola mjjj que procedimiento realizastes para instalar los ICS que te te pasoron los colegas es no puedo instalar:D

Hola MJJJ, no he podido instalar los componentes ICS... si me lees

Cita:

Empezado por Julián (Mensaje 344211)

Hola!

Yo tengo hechos un par de componentes llamados TChatServer y TChatClient que por su nombre ya te puedes imaginar para lo que sirven.

El TChatServer sólo tienes que ponerlo en un form y para activarlo solo tienes que poner a true su propiedad Active. Tiene algunas propiedades que puedes usar opcionalmente, por ejemplo, una contraseña que necesitarán los clientes para poder conectarse, otra para poder identificarse como administrador y otra como operador. Ademas tiene una propiedad de tipo string llamada key, que sirve para que los mensajes que se envían vayan encriptados, a salvo de los sniffers. Tambien tiene control antiflood, y lleva incorporado un sencillo sistema de comandos que pueden usar los clientes, y que es extensible y personalizable.

El TChatClient tambiene s bastante sencillo, tiene un par de metodos Connect y Disconnect, y las suficientes propiedades y metodos como para poder ser usando sin escribir una línea de código, por ejemplo, en una de sus propiedades puedes ponerle un TMemo o TRichEdit en donde iran escribiendose los mensajes recibidos, y en otra puedes ponerle un TEdit en donde puedes escribir mensajes que seran enviados al pulsar intro.

Ademas de eso permite mantener conversaciones privadas entre dos usuarios.

Lo único que le falta para ser perfecto es una función o metodo para poder enviar y recibir archivos.

Para que funcione necesita tener instalados los componentes ICS, que en mi opinión, son muchisimo mejores que los INDY.

Ahora voy a ver si encuentro donde los tengo y los subo, junto con un ejemplo de uso, a http://pabernosmatao.com/downloads.

Y si quieres probarlos antes, son los componentes usados para el chat del ajedrezchat, así que no tienes mas que probarlos.

Otra opción que puede resolverte el problema es instalear un servidor de irc, que hay algunos muy buenos open source, y usar clientes de irc, que los hay mas y menos complicados de usar. En mi página tambien tienes este cliente de irc hecho en delphi, con el código fuente, el cual puede servirte.

Un saludo!

Julian, he probado tus componentes para chat y funcionan perfecto, son excelentes, pero no puedo encontrar la forma de hacer una conversación entre dos usuarios, me podrías explicar, si no es mucha molestia.
Gracias Mil

Como se hacen las conversaciones privadas?

Creo recordar que se necesita un número mínimo de mensajes, para evitar abusos.

Amigo Julian.

Intente instalar tus componentes en Delphi 2010 sin exito, ya instale los componentes de ICS para D2010 pero me marca errores "No existe el archivo wsocket.dcu", bueno, este y el archivo de wsockBuf.dcu ya los consegui, los puse en el directorio de librerias. Pero me sigue marcando muchos errores.

Tendras la version de Delphi 2010 de estos componentes?

Saludos!

Con IUDPClient, mira este LINK, aca te explica como hacer un chat, yo lo hice y funciona, lo unico que cuando dice PChar vas a tener q poner PAnsiChar

Saludos

Amigo, este chat funciona en internet, es decir, con IPs dinamicas?

Saludos!

si, lo unico que si tenes router tenes que abrir el puerto que uses...

Gracias lo voy a probar

Saludos!

Una pregunta Kdemia.

En esta aplicacion de chat, me imagino que debo de dar de alta una cuenta DynDns a asociarla a las PC valla a instalar la aplicacion, ¿me equivoco?

nono.. solamente abris el puerto que uses (ahi usa el 80), pones la ip de la PC que recibe (ya sea en LAN o en WAN) y envias.. y fijate que mas abajo hay otro chat mas dinamico...

Saludos