Cliente/Servidor de Mensajeria Instantania

[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).

[Alzheimer]

perdonen la repeticion... mi konexion es pesima

[Alzheimer]

hola fide...
hace un tiempo hice un ejemplito k kon bastante mas pulidera kizas te sirva para lo k kieres hacer...> ***en lo k tienes problemas es en gestionar la lista de konexiones esto lo resuelve...*** aklaro, el TIdTelnet funciona kasi igual k el TIdTcp

aki te posteo el kodigo (tiene algunos errores todavia pero es solo la base. en realidad ya tengo un sistema asi funcionando k lo mande no hace mucho a un amigo alla en la UCI, esta integrado a una herramienta k se llama FantasticTool y es de libre distribucion y kopia...)
_____________________________________________________________-__