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

  LabelPortNumber.Enabled := False;

  EditРоrtNumber.Enabled := False;

  BtnStartServer.Enabled := False;

  LabelServerState.Caption := 'Сервер работает';

 except

  on EConvertError do

   // Это исключение может возникнуть только в одном месте

   // при вызове StrToInt(EditPortNumber.Text)

   MessageDlg('"' + EditPortNumber.Text + '"не является целым числом',

    mtError, [mbOK], 0);

  on ERangeError do

   // это исключение может возникнуть только в одном месте -

   // при присваивании значения номеру порта

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

    mtError, [mbOK], 0);

 end;

end;

Слушающая" нить TListenThread состоит из бесконечного ожидания подключения клиента. Каждый раз при подключении клиента библиотека сокетов создаёт новый сокет, и для работы с ним создается новая нить типа TClientThread (листинг 2.20).

Листинг 2.20. Код "слушающей" нити

procedure TListenThread.Execute;

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

 ClientSocket: TSocket;

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

 ClientAddr: TSockAddr;

 ClientAddrLen: Integer;

begin

 // Начинаем бесконечный цикл

 repeat

  ClientAddrLen := SizeOf(ClientAddr);

  // Ожидаем подключения клиента

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

  if ClientSocket = INVALID_SOCKET then

  begin

   // Ошибка в функции accept возникает только тогда, когда

   // происходит нечто экстраординарное. Продолжать работу

   // в этом случае бессмысленно.

   LogMessage('Ошибка при подключении клиента: ' + GetErrorString);

   Break;

  end;

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

  // и передаём ей сокет, созданный для взаимодействия с ним.

  TClientThread.Create(ClientSocket, ClientAddr);

 until False;

 closesocket(FServerSocket);

 LogMessage('Сервер завершил работу');

 Synchronize(ServerForm.OnStopServer);

end;

Метод LogMessage, существующий у "слушающей" нити, эквивалентен тому, который приведен в листинге 2.7.

Код нити типа TClientThread, которая отвечает за взаимодействие с одним клиентом, приведен в листинге 2.21.

Листинг 2.21. Код нити, реализующей взаимодействие с клиентом

// Сокет для взаимодействия с клиентом создается в главной нити,

// а сюда передается через параметр конструктора. Для формирования

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

constructor TClientThread.Create(ClientSocket: TSocket; const ClientAddr:TSockAddr);

begin

 FSocket := ClientSocket;

 // Заголовок содержит адрес и номер порта клиента.

 // Этот заголовок будет добавляться ко всем сообщениям в лог

 // от данного клиента.

 FHeader :=

  'Сообщение от клиента ' + inet_ntoa(ClientAddr.sin_addr) + ':' +

   IntToStr(ntohs(ClientAddr.sin_port)) + ': ';

 inherited Create(False);

end;

procedure TClientThread.Execute; var Str: string; StrLen: Integer;

begin

 LogMessage('Соединение установлено');

 // Начинаем цикл, из которого выходим только при закрытии