Usando el TDA TObjectList
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.
|