Conocer la posición de un Thread dentro del Listado de ActiveThreads del IdTCPServer

[R_Richards]

Saludos...
Tengo un problema importante que resolver y espero que alguno de ustedes me pueda ayudar...

Tengo un programa que usa una Componente IdTCPClient y que va a ser activada varias veces simultáneamente en la misma PC (ya que es un DCOM). Estos Clientes se van a pegar a otro programa que tiene una componente IdTCPServer.

La misión es conocer qué posición ocupa el Thread que recién activó el evento "Execute" del IdTCPServer (dentro del listado de "ActiveThreads"), para posteriormente enviarle una respuesta a ESE Thread especifico.

Gracias de Antemano por su ayuda...

Rafael Richards

[RiverPlate]

Buenas, mira yo hice algo parecido hace unas semanas...

Tuve que realizar una aplicación Cybercafé que usaba componentes Indy para reconocer cada PC lo que usé fue el TDA Lista (lo podes crear vos o usar el TObjectList que viene con delphi)..si me preguntas yo use un TDA mio porque el de delphi no me gustó la verdad no me liberaba bien los elementos de la lista.

La idea es que el elemento del TDA Lista sea de la forma
Type
Tipo_elemento= Class
private
fidentificador: integer;
Client_Thread: TidPeerThread;
public
property Identificador:integer read findentificador write fidentificador;
property Thread: TidPeerThread read Client_Thread write Client_thread;
end;

La idea es que cada vez que el Server ejecuta el evento OnConnect se añade un elemento al TDALista (usas el Athread que recibe por parametro el Server) despues cuando llega al OnExecute lo que tenes que hacer es buscarlo en la lista (segun algun identificador que lo guardas en el Tipo de elemento de la lista) y listo al obtener el elemento tenes el Thread del cliente para hacer lo que quieras.

Espero que te sirva yo no tuve problemas con ese metodo, para identificar cada PC en la Red.

[R_Richards]

Muchas Gracias Amigo, el ejemplo que me diste me dió luz para encontrarle la solución, pero usé un elemento TLIST para hacer ese "Listado" de Threads activos del IdTCPServer.

Cuenta con un amigo...

Rafael Richards