А. Григорьев - О чём не пишут в книгах по Delphi

// Реакция на кнопку "Запустить"

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));

if ServerAddr.sin_port = 0 then

begin

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

mtError, [mbOK], 0);

Exit;

end;

// Создание сокета для получения сообщений

ServerSocket := socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);

if ServerSocket = INVALID_SOCKET then

begin

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

mtError, [mbOK], 0);

Exit;

end;

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

if bind(ServerSocket, ServerAddr, SizeOf(ServerAddr)) = SOCKET_ERROR then

begin

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

mtError, [mbOK], 0);

closesocket(ServerSocket);

Exit;

end;

// Создание нити, которая будет получать сообщения.

// Сокет передается ей, и дальше она отвечает за него.

TReceiveThread.Create(ServerSocket);

// Перевод элементов управления в состояние "Сервер работает"

LabelServerPort.Enabled := False;

EditServerPort.Enabled := False;

BtnStartServer.Enabled := False;

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

except

on EConvertError do

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

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

MessageDlg('"' + EditServerPort.Text +

'" не является целым числом', mtError, [mbOK], 0);

on ERangeError do

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

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

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

mtError, [mbOK], 0);

end;

end;

Для отправки сообщения пользователь должен нажать кнопку Отправить. При этом формируется адрес на основании введённых пользователем данных и вызывается функция sendto(листинг 2.10). Пользователь должен каким-то образом узнать, какой порт назначения выбран у адресата. Его IP-адрес тоже, разумеется, необходимо знать.

// Реакция на кнопку "Отправить"

procedure TChatFormBtnSendClick(Sender: TObject);

var

// Адрес назначения SendAddr: TSockAddr;

// Сообщение для отправки

Msg: string;

// Результат отправки

SendRes: Integer;

begin

// Формируем адрес назначения на основе того,

// что пользователь ввел в соответствующие поля

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

SendAddr.sin_family := AF_INET;

SendAddr.sin_addr.S_addr := inet_addr(PChar(EditSendAddr.Text));

// Для совместимости со старыми версиями 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 + не является целым числом',