TServerSocket - Nur zwei Verbindungen annehmen?

fidionael · Verfasst: Sa 25.03.06 15:03

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. · Verfasst: 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:

markieren

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;

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme