ServerSocket怎么样禁止CLientSocket的连入???(急急急)

Question

当有一个CLientSocket连入后,就禁止别的CLientSocket再连入,等已经连入的CLientSocket断开,再允许别的CLientSocket连入,要怎么做???(急急急)

Answer 1

if ServerSocket1.Socket.ActiveConnections > 0 then
    Socket.Close;

Answer 2

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if ServerSocket1.Socket.ActiveConnections > 1 then
    Socket.Close;
end;

Answer 3

如果楼主想禁止的是所有的CLientSocket的连入，那就用serversocket1.socket.close;
如果禁止的是某一个，那就这样：serversocket1.Socket.Connections[i].Close;//其中i是一变量，代表你想断开的那个clientsocket的序号（姑且这么说^_^!)，从0开始的，最先连上的为0，好了，试试看吧，有问题，再发贴吧。

Answer 4

if ServerSocket1.Socket.ActiveConnections > 1 then
    Socket.Close;