Chat con Delphi

[Olofi]

Mira lo primero que debes de tratar es conectar de manera segura dos máquinas en red. Una aplicación que pueda filtrase en los procesos de la otra computadora y pueda mandarse mensajes hacia un memo de su propia aplicación. en el trucomanía beta 3.1 aparece como enviar mensajes de un aplicación a otra creada en delphi. Mediante la API de windows puedes tratar de conectarte de manera segura. Luego te explico como trabajar con lo procesos del ordenador...En la paleta de las conecciones para red si sabes trabajar con variables basura, con Pilas, Listas, y Colas bien implementadas puedes crear listas para los IP y nombres y puedes de manera segura buscar datos sin necesidad de agregar componentes como listbox y otros.

saludos

[Julián]

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!

[mjjj]

Gracias Julian por tu tiempo, te agradecería enormemente si subes el ejemplo, codigos fuente, componentes, etc.

Me parece que esa es la mejor altermativa a mi problema.

Espero que me puedas ayudar.

Saludos.

[Julián]

Aquí está:

http://pabernosmatao.com/downloads

Con el código fuente y ejemplo de uso. YA sabes que neecsitas tener los ICS de Fpiette.

Y otra cosa: el otro día me puse el delphi2009 (versión de prueba) y no pude poner los componentes ICS, pues daban errores al intentar registrarlos en la paleta, así que me bajé la última versión, compatible con delphi2009, pero una vez bajada pude comprobar que habían cambiado hasta los nombres de los componentes, así que ni me molesté en seguir.

Ademas, tambien tuve bastantes problemas para instalar algunos componentes como los JEDI y algunos otros que venía usando desde hace mucho tiempo. Así que desinstale el delphi2009, pues mi tiempo es escaso para perderlo investigando tonterías. Cauando quiera hacer algo seguiré con mi delphi7 personal, que me va de cine en el vmware.

Un saludo!

PD: Se pueden poner comentarios en la web. Es gratis

[dec]

Hola,

La "demo", desde luego, funciona estupendamente Julián. Muchas gracias.

[dec]

Hola,

He instalado los ICS sin problemas en Delphi 2009, pero, a la hora de probar la demostración Julián, me encuentro con esto en "Unit1.pas":

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  memo1.Enabled:=true;
  memo1.color:=clWhite;
end;

Se ve que está "corrupto" el archivo... o algo así.

[Julián]

vaya!

Pues esta noche, en cuanto llegue a casa ( y cene y aciueste a los crios y.. ) vuelvo a subir el archivo. Es que lo he subiodo desde el trabajo, y como tenemos el ftp filtrao tengo que andar con el Putty, haciendo ssh tunneling o come se diga. Y se vé que esas cosas no van muy finas.

Tahora!

AH, y ya te preguntaré como has puesto los ICS, que aún tengo el "delphi2009 trial" puesto en el portatil.

[dec]

Hola,

¡Julián! Los cambios para que "icsChat" funcione con Delphi 2009 (y la nueva versión de ICS) son mínimos... ¡sólo toca renombrar una unidad! En efecto, esto es lo que he hecho:

- He añadido al principio de "icsChatServer" el "unit icsChatServer;", puesto que no existía

- He renombrado el archivo "WSocket" a "OverbyteIcsWSocket": la clase "TWSocket" sigue igual

- En la línea 279 de la unidad "icsChatServer" paso a usar "CharInSet()" para que D2009 no se "queje"

¡Y eso es todo! Aparentemente debería funcionar... al menos compila... voy a hacer alguna prueba a ver. Y adjunto el "icsChat" con los cambios, por si alguien los quiere.

[jusnjosesch]

Empezado por Julián

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

[jusnjosesch]

Como se hacen las conversaciones privadas?

[Ñuño Martínez]

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

[edgwin]

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!