Um das ganze Geraffel einfacher zu bekommen
lb_Clients.Items.AddObject( IntToStr(Socket.SocketHandle) + #9 + Socket.RemoteAddress, Socket );
Jetzt hast in der Liste den direkten Zugang zum Socket
Delphi-Quellcode:
if lb_Clients.Selected[i] then
TCustomWinSocket( lb_Clients.Items.Objects( i ) ).Close;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)