WinSock асинхронный режим FD_ACCEPT и Accept

[dance0ff]

Ребят, доброый вечер.
Пишу клиент-сервер на неблокирующих сокетах. Ну не суть какой клиент а сервер неблокирующий. Значит вооот.

WSAAsyncSelect(ServerSocket,FWndHandle,WM_SocketEvent,
FD_READ or FD_ACCEPT or FD_CLOSE);

Сообщения приходят как и ожадал, всё в порядке. Однако, по приходу сообщения FD_ACCEPT, мне надо поверить количество клиентов и разрешить или запретить этот самый ACCEPT. Как мне это сделать?

То есть событие возникает уже после фактического ACCEPT.

Делал вот так:

Procedure TServerClass.WMSocketEvent(var MSG:TMessage);
var
SOCK:TSocket;
ErrorCode:integer;
SockInfo:TSockAddr;

abuf:array of char;
vbuf:string;
vsize:integer;
bufsize:integer;
IP:string;
begin
SOCK:=TSocket(MSG.WParam);
vsize:=SizeOf(TSockAddr);
GetPeerName(SOCK,SockInfo,vsize);
IP:=inet_ntoa(SockInfo.sin_addr);
ErrorCode:=WSAGetSelectError(MSG.LParam);

if ErrorCode<>0 then
 begin
 CloseSocket(SOCK);
 exit;
 end;


CASE WSAGetSelectEvent(MSG.LParam) OF
 FD_ACCEPT:
  begin //Only on SERVER_SOCKET
//ВОТ здесь значит. Проверяю, если больше 6 то не надо пускать
//Однако как мы знаем, FD_ACCEPT срабатывает только на серврном сокет
//поэтому CloseSocket(SOCK)  у меня закрывается серверный скет полностью
   IF ACTIVECLIENTS<6 then
     begin
     ACCEPT(SOCK,nil,nil);
      Inc(ActiveClients,1);
     end else CLOSESOCKET(SOCK); //Закрывает сам сервер
  end;

 FD_CLOSE:
  begin
  ActiveClients:=ActiveClients-1;
  Shutdown(SOCK,SD_SEND);
  CloseSocket(SOCK);
  end;

 FD_READ:
  begin
  //RECV data
  end;
 end;
end;

-----
Вот прошу помочь. Надо запретить подключение клиентов, если на сервере уже больше 6 клиентов.

[dance0ff]

Всё разобрался.
Вот как было:

CASE WSAGetSelectEvent(MSG.LParam) OF
 FD_ACCEPT:
  begin //Only on SERVER_SOCKET
//ВОТ здесь значит. Проверяю, если больше 6 то не надо пускать
//Однако как мы знаем, FD_ACCEPT срабатывает только на серврном сокет
//поэтому CloseSocket(SOCK)  у меня закрывается серверный скет полностью
   IF ACTIVECLIENTS<6 then
     begin
     ACCEPT(SOCK,nil,nil);
      Inc(ActiveClients,1);
     end else CLOSESOCKET(SOCK); //Закрывает сам сервер
  end;

Вот как надо:

CASE WSAGetSelectEvent(MSG.LParam) OF

 FD_ACCEPT:
  begin //Only on SERVER_SOCKET

     S1:=ACCEPT(SOCK,nil,nil);
     if ActiveClients>6 then 
      begin
      ShutDown(S1,SD_SEND);
      CloseSocket(S1);
      exit; 
      end;

      Inc(ActiveClients,1);
  end;