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

    Port := StrToInt(ParamStr(1));

    if Port = 0 then

     raise ESocketException.Create(

      'Номер порта должен находиться в диапазоне 1-65535');

   except

    on EConvertError do

     raise ESocketException.Create(

      'Параметр "' + ParamStr(1) + '" не является целым числом');

    on ERangeError do

     raise ESocketException.Create(

      'Номер порта должен находиться в диапазоне 1-65535');

   end;

  // инициализация библиотеки сокетов

  if WSAStartup($101, WSAData) <> 0 then

   raise ESocketException.Create(

    'Ошибка при инициализации библиотеки WinSock');

  // Создание сокета, который затем будет "слушать" порт

  MainSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

  if MainSocket = INVALID_SOCKET then

   raise ESocketException.Create(

    'Невозможно создать слушающий сокет: ' + GetErrorString');

  // Формирование адреса для "слушающего" сокета

  FillChar(MainSockAddr.sin_zero, SizeOf (MainSockAddr.sin_zero, 0);

  MainSockAddr.sin_family := AF_INET;

  // Выбор IP-адреса доверяем системе

  MainSockAddr.sin_addr.S_addr := INADDR_ANY;

  // Порт назначаем, не забывая перевести его номер в сетевой формат

  MainSockAddr.sin_port := htons(Port);

  // Привязка сокета к адресу

  if bind(MainSocket, MainSockAddr, SizeOf(MainSockAddr)) = SOCKET_ERROR then

   raise ESocketException.Create(

    'Невозможно привязать слушающий сокет к адресу: ' +

    GetErrorString);

  // Установка сокета в режим прослушивания

  if listen(MainSocket, SOMAXCONN) = SOCKET_ERROR then

   raise ESocketException.Create(

    'Невозможно установить сокет в режим прослушивания: ' +

    GetErrorString);

  WriteLn(OemString('Сервер успешно начал прослушивание порта '), Port);

  ...

  // Основная часть сервера приведена в листинге 2.15

  ...

 except

  on Е: ESocketException do

   WriteLn(OemString(E.Message));

  on E: Exception do

   WriteLn(OemString('Неожиданное исключение ' + E.ClassName +

    ' с сообщением ' + E.Message));

 end;

end.

Основная часть кода сервера — это два цикла, один из которых вложен в другой (листинг 2.15). Перед внешним циклом сервер создает сокет и переводит его в режим прослушивания, и внешний цикл начинается с вызова функции accept. Завершение accept указывает на подключение клиента. После этого начинается внутренний цикл, который состоит из получения сообщений от клиента, преобразования строки и отправки ответа. Внутренний цикл завершается, когда соединение разрывается либо самим клиентом, либо из-за ошибки в сети. После этого управление вновь передается на начало внешнего цикла, т.е. на accept, и сервер может принять подключение другого клиента (или повторное подключение того же клиента).

Листинг 2.15. Основная часть сервера SimplestServer

// Начало цикла подключения и общения с клиентом

repeat

 ClientSockAddrLen := SizeOf(ClientSockAddr);

 // Принимаем подключившегося клиента. Для общения с ним создается новый

 // сокет, дескриптор которого помещается в ClientSocket.

 ClientSocket :=

  accept(MainSocket, @ClientSockAddr, @ClientSockAddrLen);

 if ClientSocket = INVALID_SOCKET then

  raise ESocketException.Create(