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

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

 Connection.ClientAddr + ': ' + GetErrorString);

 RemoveConnection;

 Exit;

end;

end

else 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])) +

'(AsyncSelect server)'#0;

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

Connection.Phase:= tpSendString;

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

 Connection.Offset:= 0;

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

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

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

 // для того, чтобы учесть добавляемый к строке

 // автоматически символ #0. Здесь мы еще один #0 добавили

 // к строке явно, поэтому он уже учтен в функции Length.

 Connection.BytesLeft:= Length(Connection.Msg);

 // Ставим в очередь сообщение с событием FW_WRITE.

 // Его получение заставит сервер отправить данные

 PostMessage(Handle, WM_SOCKETMESSAGE, Msg.Socket, FD_WRITE);

end;

 end

else if Res = 0 then

 begin

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

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

 RemoveConnection;

 Exit;

 end

 elsе