Entwickler-Ecke

Internet / Netzwerk - TServerSocket - Nur zwei Verbindungen annehmen?


fidionael - Sa 25.03.06 15:03
Titel: TServerSocket - Nur zwei Verbindungen annehmen?
Ich will ein einfaches Netzwerk-Spiel schreiben, in dem immer 2 Spieler gegeneinander spielen. Ich will dies mit den TServerSocket- und TClientSocket-Komponenten lösen.

Meine Frage nun:
Kann ich, nachdem zwei Verbindungen zum TServerSocket stehen, verhindern, dass sich weitere Personen verbinden können, ohne die aktuell bestehenden Verbindungen zu kappen?

Schonmal vielen Dank!


Marco D. - Sa 25.03.06 15:33

2. Möglichkeiten:
1.Irgendwie im OnConnect-Ereignis diese Verbindungen gleich wieder schließen.
2. Mit einem Timer die Anzahl der Verbindungen prüfen, und wenn diese höher ist als zwei alle unnötigen beenden:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
if serversocket1.socket.activeconnections>2 then
begin
  for i := 2 to serversocket1.socket.activeconnections-1 do
  begin
    serversocket1.socket.connections[i].close;
  end;
end;