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

    SetLength(Connection.Msg, Connection.MsgSize);

   end;

  end

  else if Res = 0 then

  begin

   AddMessageToLog('Клиент ' + Connection.ClientAddr +

    ' закрыл соединение');

   RemoveConnection;

   Exit;

  end

  else

   // Ошибку WSAEWOULDBLOCK игнорируем, т.к. она говорит

   // только о том, что входной буфер сокета пуст, но в целом

   // все в порядке

   if WSAGetLastError <> WSAEWOULDBLOCK then

   begin

    AddMessageToLog('Ошибка при получении данных от клиента ' +

     Connection.ClientAddr + ': ' + GetErrorString);

    RemoveConnection;

    Exit;

   end;

  end;

  if Connection. Phase := tpReceiveString then

  begin

   // Следующий этап - чтение строки. Он практически не отличается

   // по реализации от этапа чтения длины строки, за исключением

   // того, что теперь буфером, куда помещаются полученные от клиента

   // данные, служит не Connection.MsgSize, a Connection.Msg.

   Res :=

    recv(Connection.ClientSocket,

     Connection.Msg[Connection.Offset + 1], Connection.BytesLeft, 0);

   if Res > 0 then begin

    Inc(Connection.Offset, Res);

    Dec(Connection.BytesLeft, Res);

    // Если количество оставшихся байтов равно нулю, можно переходить

    // к следующему этапу.

    if Connection.BytesLeft = 0 then

    begin

     AddMessageToLog('От клиента ' + Connection.ClientAddr +

      ' получена строка: ' + Connection.Msg);

     // Преобразуем строку. В отличие от предыдущих примеров, здесь

     // мы явно добавляем к строке #0. Это связано с тем, что при

     // отправке, которая тоже может быть выполнена не за один раз,

     // мы указываем индекс того символа строки, начиная с которого

     // нужно отправлять данные. И (хотя теоретически вероятность

     // этого очень мала) может возникнуть ситуация, когда за

     // один раз будут отправлены все символы строки, кроме

     // завершающего #0, и тогда при следующей отправке начинать

     // придется с него. Если мы будем использовать тот #0, который

     // добавляется к концу строки автоматически, то в этом случае

     // индекс выйдет за пределы диапазона. Поэтому мы вручную

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

     // ее частью.

     Connection.Msg :=

      AnsiUpperCase(StringReplace(Connection.Msg, #0,

      '#0', [rfReplaceAll])) + ' (Non-blocking server)'#0;

     // Следующий этап - отправка строки клиенту

     Connection.Phase := tpSendString;

     // Отправлено на этом этапе 0 байт

     Connection.Offset := 0;

     // Осталось отправить Length(Connection.Msg) байт.

     // Единицу к длине строки, в отличие от предыдущих примеров,

     // не добавляем, т.к. там эта единица нужна была для того,

     // чтобы учесть добавляемый к строке автоматически символ #0.

     // Здесь мы еще один #0 добавили к строке явно, поэтому

     // он уже учтен в функции Length.