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

// Как обычно, "ошибку" WSAEWOULDBLOCK просто игнорируем

if WSAGetLastError <> WSAEWOULDBLOCK then

begin

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

Connection.ClientAddr + ': ' + GetErrorString);

 RemoveConnection;

 Exit;

end;

end

else if Connection.Phase = tpSendString then

// Если сервер находится на этапе отправки данных,

 // а событие FD_READ все же произошло, отмечаем это

 Connection.SendRead:= True;

 end;

 FD_WRITE: begin

if Connection.Phase = tpSendString then

 begin

// При наступлении события FD_WRITE проверяем, находится ли

 // сервер на этапе отправки данных, и если да, отправляем их

 Res:=

 send(Connection.ClientSocket, Connection.Msg[Connection.Offset + 1],

 Connection.BytesLeft, 0);

if Res > 0 then

begin

Inc(Connection.Offset, Res);

 Dec(Connection.BytesLeft, Res);

// Если Connections. BytesLeft = 0, значит, строка отправлена

 // полностью.

if Connection.BytesLeft = 0 then

 begin

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

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

// Очищаем строку, просто чтобы сэкономить память

 Connection.Msg:= '';

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

Connection.Phase:= tpReceiveLength;

 // Получено — 0 байт

 Connection.Offset:= 0;

// Осталось прочитать столько, сколько занимает целое число

Connection.BytesLeft:= SizeOf(Integer);

// Если были промежуточные события FD_READ, вызываем их

// снова искусственно

it Connection.SendRead then

begin

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

 Connection.SendRead:= False;

 end;

 end;

 end

 else if WSAGetLastError <> WSAEWOULDBLOCK then

 begin

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

Connection.ClientAddr + ': ' + GetErrorString);

RemoveConnection;

 Exit;

 end;

end;

 end;

 FD_CLOSE: begin

// Клиент вызвал функцию shutdown. Закрываем соединение.

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

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

shutdown(Connection.ClientSocket, SD_BOTH);

 RemoveConnection;

 end

 else

 begin

AddMessageToLog('Неверное событие при обмене с клиентом ' +

Connection.ClientAddr);

 RemoveConnection;

 end;

 end;

end;