|
Lo he probado y así me funciona.
Espero como te he dicho antes entender que es esto lo que necesitas.
ej: TS es un TidTCPServer;
var
AT: array of TIdPeerThread;
it : integer;
procedure TS.ServerConnect(AThread: TIdPeerThread);
begin
SetLength(AT,it+1);
AT[it] := AThread;
end;
más adelante puedes referirte a cada conexión así
AT[it].Connection.WriteLn('HOLA');
etc...
Un saludo.
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
|