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

 // константу INADDR_NONE к типу u_long

 if SendAddr.sin_addr.S_addr = u_long(INADDR_NONE) then

 begin

MessageDlg('"' +EditSendAddr.Text + '"не является IP-адресом',

 mtError, [mbOK], 0);

 Exit;

 end;

 try

SendAddr.sin_port:= htons(StrToInt(EditSendPort.Text));

// Получаем сообщение, которое ввел пользователь.

 // Дополнительная переменная понадобилась потому,

// что нам потребуется ее передавать в качестве var-параметра,

// а делать это со свойством EditMessage.Техt нельзя.

Msg:= EditMessage.Text;

if Length(Msg) = 0 then

// Отправляем дейтаграмму нулевой длины -

 // протокол UDP разрешает такое

SendRes:= sendto(FSendSocket, Msg, 0, 0, SendAddr, SizeOf(SendAddr))

else

// Отправляем сообщение, содержащее строку

SendRes:= sendto(FSendSocket, Msg[1], Length(Msg), 0, SendAddr, SizeOf(SendAddr));

if SendRes < 0 then

 MessageDlg('Ошибка при отправке сообщения:'#13#10 + GetErrorString,

 mtError, [mbOK], 0)

 else

AddMessageToLog('Для ' + EditSendAddr.Text + ':' + EditSendPort.Text +

 ' отправлено сообщение: ' + Msg);

 except

on EConvertError do

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

 // при вызове IntToStr(EditSendPort.Text)

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

 mtError, [mbOK], 0);

 on ERangeError do

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

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

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

 mtError, [mbOK], 0);

 end;

end;

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

Не будем слишком строги к нашему первому примеру — его ценность в том, что он учит основам использования сокетов и протокола UDP. Проблему можно было бы решить, передавая в дейтаграмме не только сообщения, но и номер порта для ответа и реализовав в программе таблицу соответствия портов для отправки и приема сообщений известных адресатов. Однако это уже не относится к работе с сокетами, и потому мы не стали загромождать этим пример. Чуть позже мы научимся делать так, что функция recvfrom не будет блокировать нить, и тогда переделаем чат так, чтобы отправка и прием данных осуществлялись через один и тот же сокет.