Home

Page 172
Page 172
background image

Простые приемы работы с сетью

выбрать 11245 (вы можете выбрать любое другое). Назначьте это значение
свойству Port компонента

 и свойству

 компонен-

та

 Это заставит клиента и сервер работать на одном и том же

порте, что необходимо для работы связи.

ЗАПОМНИТЕ!!! Порты протокола

 не пересекаются с портами TCP.

Это значит, что ТСР-порт 80 не равен

 80.

Теперь у клиента

 нужно указать свойство Host. Сюда записы-

вается IP-адрес компьютера, которому будут отправляться сообщения. Но
у нас чат и сообщения должны получать все пользователи в сетке,
тившие программу. Поэтому, чтобы не было проблем, желательно устано-

вить у

 СВОЙСТВО

 равным true. А Вместо

конкретного IP-адреса использовать широковещательный (такой адрес, который
получают все). Если у вас в сетке используются адреса типа

 то для

вас широковещательный адрес будет 192.168.100.255 (последний октет меняем

на 255).
Приготовления окончены, можно программировать.

Создайте обработчик события

 кнопки и напишите там следующий

код:

procedure

 TObject);

begin

end;

Здесь всего одна строчка, которая отправляет с помощью

 со-

держимое строки ввода (компонента
Теперь нужно научить UDP-сервер получать эту информацию. Для этого

создайте

 ДЛЯ компонента

В нем напишите следующее:

procedure

 TObject; AData:

 ABinding:

var

 TStringStream;

s: String;

begin

//Инициализация

 :

//Копирование из простого потока в строковый

//Вывод полученного сообщения


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.