О чём не пишут в книгах по Delphi

Листинг 2.77. Обработчик сообщения WM_ACCEPTMESSAGE

procedure TServerForm.WMAcceptMessage(var Msg: TWMSocketMessage);

var

 NewConnection: PConnection;

 // Сокет, который создается для вновь подключившегося клиента

 ClientSocket: TSocket;

 // Адрес подключившегося клиента

 ClientAddr: TSockAddr;

 // Длина адреса

 AddrLen: Integer;

 // Аргумент для перевода сокета в неблокирующий режим

 Arg: u_long;

 // Буфер для операции перекрытого чтения

 Buf: TWSABuf;

 NumBytes, Flags: DWORD;

begin

 // Страхуемся от "тупой" ошибки

 if Msg.Socket <> FServerSocket then

  raise ESocketError.Create(

   'Внутренняя ошибка сервера - неверный серверный сокет');

 // Обрабатываем ошибку на сокете, если она есть

 if Msg.SockError <> 0 then

 begin

  MessageDlg('Ошибка при подключении клиента:'#13#10 +

   GetErrorString(Msg.SockError) +

   #13#10'Сервер будет ocтановлен', mtError, [mbOK], 0);

  ClearConnections;

  closesocket(FServerSocket);

  OnStopServer;

  Exit;

 end;

 // Страхуемся от ещё одной "тупой" ошибки

 if Msg.SockEvent <> FD_ACCEPT then

  raise ESocketError.Create(

   'Внутренняя ошибка сервера - неверное событие на сокете');

 AddrLen := SizeOf(TSockAddr);

 ClientSocket := accept(FServerSocket, @ClientAddr, @AddrLen);

 if ClientSocket = INVALID_SOCKET then

 begin

  // Если произошедшая ошибка - WSAEWOULDBLOCK, это просто означает

  // что на данный момент подключений нет, а вообще все а порядке,

  // поэтому ошибку WSAEWOULDBLOCK мы просто игнорируем. Прочие же

  // ошибки могут произойти только в случае серьезных проблем,

  // которые требуют остановки сервера.

  if WSAGetLastError <> WSAEWOULDBLOCK then

  begin

   MessageDlg('Ошибка при подключении клиента:'#13#10 +

    GetErrorString + #13#10'Сервер будет остановлен',

    mtError, [mbOK], 0);

   ClearConnections;

   closesocket(FServerSocket);

   OnStopServer;

  end;

 end

 else

 begin

  // Новый сокет наследует свойства слушающего сокета.

  // В частности, он работает в асинхронном режиме,

  // и его событие FD_ACCEPT связано с сообщением WM_ACCEPTMESSAGE.

  // Так как нам это совершенно не нужно, отменяем асинхронный

  // режим и делаем сокет блокирующим.

  if WSAAsyncSelect(ClientSocket, Handle, 0, 0) = SOCKET_ERROR then

  begin

   MessageDlg('Ошибка при отмене асинхронного режима ' +

    'подключившегося сокета:'#13#10 + GetErrorString,

    mtError, [mbOK], 0);

   closesocket(ClientSocket);

   Exit;

  end;

  Arg := 0;

  if ioctlsocket(ClientSocket, FIONBIO, Arg) = SOCKET_ERROR then

  begin

   MessageDlg('Ошибка при переводе подключившегося сокета ' +

    'в блокирующий режим:'#13#10 + GetErrorString,

    mtError, [mbOK], 0);

   closesocket(ClientSocket);

   Exit;

  end;

  // Создаем запись для нового подключения и заполняем ее

  New(NewConnection);