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

 // экстраординарное. В этом случае завершаем работу нити.
 if RecvLen < 0 then
 begin
 LogMessage('Ошибка при получении сообщения: ' + GetErrorString);
 // Перевод элементов управления главной формы
 // в состояние "Сервер не работает"
 Synchronizе(ChatForm.OnStopServer);
 Break;
 end;
 // Устанавливаем нужный размер строки
 SetLength(Msg, RecvLen);
// и копируем в нее дейтаграмму из буфера
 if RecvLen > 0 then Move(Buffer, Msg[1], RecvLen);
 LogMessage('Сообщение с адреса ' + inet_ntoa(RecvAddr.sin_addr) + ':' +
 IntToStr(ntohs(RecvAddr.sin_port)) + ':' + Msg);
 until False;
 closesocket(FSocket);
end;

procedure TReceiveThread.LogMessage(const Msg: string);
begin
 FMessage := Msg;
 Synchronize(DoLogMessage);
end;

procedure TReceiveThread.DoLogMessage;
begin
 ChatForm.AddMessageToLog(FMessage);
end;

end.

Отправлять данные можно и из основной нити, поскольку функция sendto при наших объемах данных практически никогда не будет блокировать вызывающую ее нить (да и при больших объемах данных, как мы увидим в дальнейшем, этого практически никогда не бывает). Соответственно, нам нужно создать два сокета: один для отправки сообщений, другой для приема. Сокет для отправки сообщений создаем сразу же при запуске приложения, при обработке события OnCreate главной (и единственной) формы. Дескриптор сокета хранится в поле FSendSocket. Пользователю не принципиально, какой порт займет этот сокет, поэтому мы доверяем его выбор системе (листинг 2.8).

Листинг 2.8. Инициализация программы UDPChat

procedure TChatForm.FormCreate(Sender: TObject);
var
 // Без этой переменной не удастся инициализировать библиотеку сокетов
 WSAData: TWSAData;
 // Адрес, к которому привязывается сокет для отправки сообщений
 Addr: TSockAddr;
 AddrLen: Integer;
begin
 // инициализация библиотеки сокетов
 if WSAStartup($101, WSAData) <> 0 then
 begin
 MessageDlg('Ошибка при инициализации библиотеки WinSock',
 mtError, [mbOK], 0);
 Application.Terminate;
 end;
 // Перевод элементов управления в состояние "Сервер не работает"
 OnStopServer;
 // Создание сокета
 FSendSocket := socket(AF_INET, SOCK_DGPAM, IPROTO_UDP);
 if FSendSocket = INVALID_SOCKET then
 begin
 MessageDlg('Ошибка при создании отправляющего сокета:'#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 Exit;
 end;
// Формирование адреса, к которому будет привязан сокет
 // для отправки сообщений
 FillChar(Addr.sin_zero, SizeOf(Addr.sin_zero), 0);
 Addr.sin_family := AF_INET;
 // Пусть система сама выбирает для него IP-адрес и порт
 Addr.sin_addr.S_addr := INADDR_ANY;
 Addr.sin_port := 0;
 // Привязка сокета к адресу
 if bind(FSendSocket, Addr, SizeOf(Addr)) = SOCKET_ERROR then
 begin
 MessageDlg('Ошибка при привязке отправляющего сокета к адресу:'#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 Exit;
 end;
 // Узнаем, какой адрес система назначила сокету
 // Это нужно для вывода информации для пользователя
 AddrLen := SizeOf(Addr);
 if getsockname(FSendSocket, Addr, AddrLen) = SOCKET_ERROR then
 begin
 MessageDlg('Ошибка при получении адреса отправляющего сокета:'#13#10 +
 GetErrorString, mtError, [mbOK], 0);
 Exit;
 end;
 // Не забываем, что номер порта возвращается в сетевом формате,
 // и его нужно преобразовать к обычному функцией htons.
 LabelSendPort.Caption := 'Порт отправки: ' + IntToStr(ntohs(Addr.sin_port));
end;

Сокет для получения сообщений создается при нажатии кнопки Запустить и привязывается к тому порту, который указал пользователь. В случае его успешного создания запускается нить, которой передается этот сокет, и все дальнейшие операции с ним выполняет эта нить. Нить вместе с этим сокетом мы будем условно называть сервером. Код обработчика нажатия кнопки Запустить показан в листинге 2.9.

Листинг 2.9. Обработчик нажатия кнопки Запустить

// Реакция на кнопку "Запустить"
procedure TChatForm.BtnStartServerClick(Sender: TObject);
var
 // Сокет для приема сообщений
 ServerSocket: TSocket;
 // Адрес, к которому привязывается сокет для приема сообщений
 ServerAddr: TSockAddr;
begin
 // Формирование адреса сокета для приема сообщений
 FillChar(ServerAddr.sin_zero, SizeOf(ServerAddr.sin_zero), 0);
 ServerAddr.sin_family := AF_INET;
 // IP-адрес может выбрать система, а порт назначаем тот,
 // который задан пользователем
 ServerAddr.sin_addr.S_addr := INADDR_ANY;
 try
 // He забываем преобразовать номер порта к сетевому формату
 // с помощью функции htons
 ServerAddr.sin_port := htons(StrToInt(EditServerPort.Text));