Cliente/Servidor de Mensajeria Instantania

[Neftali [Germán.Estévez]]

Empezado por fide_uci

Nunca has querido hacer algo tu mismo desde 0, sin nada de nada, comenzandolo todo tu?
Esos es un deseo que tengo hace ya bastante tiempo y es sobre este tema.

Me ha pasado muchas veces. Sólo quería confirmar que realmente era así.

[Neftali [Germán.Estévez]]

Empezado por fide_uci

He comenzado a trabajar usando los componentes de la Indy 9, el idTCPClient e idTCPServer respectivamente. Pero necesito que me den mas o menos la logica de como es que se hace esto.

Arranca el Servidor y realiza el Open.
Al arrancar los clientes realiza el Open.

Con eso ya tienes la conexión.
Programa el OnClientConnect y OnClientDisconnect para controlar los clientes conectados; Aquí puedes utilizar las propiedades RemoteHost y RemoteAddress (revisa qué valores tienen).
A partir de ahí se trata de ir añadiendo cosas.

Para enviar un texto desde un cliente utiliza el SendText.

Código Delphi [-]
    ClientSocket1.Socket.SendText(edtTexto.Text);

Y para recibirlo desde el Servidor programa los eventos ClientRead/ClientWrite (para ambas operaciones).

Espero que te sirva para empezar.
Un saludo.

[duranguenze]

Hace ya varios años hice uno, pero en otro lenguaje, usando los indi te facilita bastante, no hay necesidad de tener un servidor por asi decirlo, creas un programa el cual haga el papel de cliente y de servidor, este lo pones a escuchar un puerto pre establecido, y le dices que cheque todas las terminales para ver si el puerto esta a la escucha, si lo esta entonces que se presente.

Dicho de otro modo, inicia el programa, pregunta a todas las terminales si esta activo, si no esta entonces se pone a escuchar, cuando hace la conexion crea un nuevo socket en un puerto que este disponible, y a travez de este se hace el dialogo entre las personas, el puerto que esta a la escucha o por donde le hablan solo es para hacer la conexion, aparte de este puerto se abren otros dos, uno para el dialogo entre las personas y otro para los comandos.

Espero que te sea sencilla la explicacion de manera general.

[fide_uci]

Oye, yo no soy novato trabajando con la Indy. todo eso lo se. Pero te repito, mi principal problema radica en que no se como controlar todas las conexiones que van surgiendo a medida que se conectan mas clientes.

En el indyTCPDemo que trae la Indy 9 se ve que usan una Lista de Hilos, pero no tengo ni idea de como usarla. Me podrian dar mas ayuda pleasee?

[Neftali [Germán.Estévez]]

Entonces es que a lo mejor no estás planteando las preguntas como debes.

Código Delphi [-]
var
  i:Integer;
  wSocket:TCustomWinSocket;
  str:string;
begin

  for i := 0 to (ServerSocket1.Socket.ActiveConnections - 1) do begin
    wSocket := ServerSocket1.Socket.Connections[i];

    Str := 'Host: ' + wSocket.RemoteHost + '  Adress: ' + wSocket.RemoteAddress +
           '  Port: ' + IntToStr(wSocket.RemotePort);
    MessageDlg(Str, mtInformation, [mbOK], 0);
  end;

[fide_uci]

Ya entiendo. Pero ahi estas usando el TServerSocket y yo lo que uso es el idTCPServer.
Ya estoy avanzando bastante, asi que en cualquier momento te comento como voy adelantando. Esta quedando Cool !

[Neftali [Germán.Estévez]]

Empezado por fide_uci

Pero ahi estas usando el TServerSocket y yo lo que uso es el idTCPServer.

Perdón, se me escapó ese detalle (que ya habías comentado).