WinSockets: Alle Verbindungen anzeigen

[Muetze1]

Delphi-Quellcode:

procedure tform1.button1click(sender: tobject);
   var i: integer;
begin
   for i := 0 to server.socket.activconnections - 1 do
      memo1.Lines.Add(format(server.socket.connections[i].RemoteHost + ' ('+Server.socket.connections[i].RemoteAddress+')');
end;