Hallo Christian,
du könntest raten - oder probiere es mal so:
Delphi-Quellcode:
function ConnectionIndexOf(server: TServerSocket; address:
string): Integer;
begin
with server.Socket
do
begin
Result := Pred(ActiveConnections);
while Result >= 0
do
if Connections[Result].RemoteAddress = address
then Exit
else Dec(Result);
end;
end;
Freundliche Grüße vom marabu