1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

 Server := TServerSocket.Create(Form1);
 Server.Port := 8954;

 Server.Open;
 Server.OnClientRead := Form1.TServerSocketRead; // Das ist nur, weil bei mir die Sockets
 Server.OnClientConnect := Form1.OnClientConnect; // nicht in der Komponentenpallette und
 Server.OnClientDisconnect := Form1.OnClientDisconnect; // daher nicht im Inspektor sind.

 users := TStringList.Create; // In den beiden StringLists werden Ip des Clients und ein
 users.Sorted := False; // Name den der Client dem Server übermittel gespeichert,
 IPs := TStringList.Create;// natürlich mit dem selben Index
 IPs.Sorted := False;                    

1:
2:
3:
4:
5:
6:

      Client := TClientSocket.Create(Form1);
      Client.Port := 8954;
      Client.Host := wert; // Die IP wird automatisch "geholt" -> funktioniert bestens

      Client.Open;
      Client.OnRead := Form1.TClientSocketRead;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
VAR verbindung: Integer;
BEGIN
   IPs.Add(Socket.RemoteAddress); // Zunächst wird die Ip gespeichert, später wird dann
   users.Add(Socket.RemoteAddress); // der Name übermittelt
   verbindung := users.IndexOf(Socket.RemoteAddress); // Das ist die Nummer des Sockets

   Server.Socket.Connections[verbindung].SendText('/logy' + #13); // Der Befehl an den
       // Client seinen Namen zu übermitteln.
END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.OnClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
VAR verbindung: Integer;
BEGIN
//IF(IPs.IndexOf(Socket.RemoteAddress) = -1) THEN Exit;
// (Hatte ich mal zwischenzeitlich drinne)

verbindung := IPs.IndexOf(Socket.RemoteAddress); // Wieder die Nummer der Verbindung

IPs.Delete(verbindung); // Das löschen der Werte in den beiden Stringlists
users.Delete(verbindung);


// Und jetzt das, was Probleme bereitet:
Server.Socket.Connections[verbindung].Disconnect(0);
Server.Socket.Connections[verbindung].Free;

END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
VAR verbindung: Integer;
BEGIN
   IPs.Add(Socket.RemoteAddress); // Zunächst wird die Ip gespeichert, später wird dann
   users.Add(Socket.RemoteAddress); // der Name übermittelt
   verbindung := users.IndexOf(Socket.RemoteAddress); // Das ist die Nummer des Sockets
   Server.Socket.Connections[verbindung].SendText('/logy' + #13); // Der Befehl an den
       // Client seinen Namen zu übermitteln.
END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.OnClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
VAR verbindung: Integer;
BEGIN

// !! wenn wir mal davon absehen, dass hier praktisch das gleiche gilt, wie oben... !!

verbindung := IPs.IndexOf(Socket.RemoteAddress); // Wieder die Nummer der Verbindung
IPs.Delete(verbindung); // Das löschen der Werte in den beiden Stringlists
users.Delete(verbindung);

// Und jetzt das, was Probleme bereitet:
// --> genau, und das dann einfach weglassen! ;)
END;