О чём не пишут в книгах по 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('Соединение установлено');

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