Оборудование для выполнения работы

Работа выполняется на двух компьютерах, включённых в локальную сеть. Для выполнения работы необходимо наличие установленной на компьютерах среды Delphi 7. Для стабильной и надежной работы программы необходимо отключить блокирующие приложения, такие как брандмауэр Windows и антивирус Касперского.

Порядок выполнения работы

1. Запустите Delphi 7. Создайте новое пустое приложение.

2. Для создания программы поместим на главную форму следующие компоненты, описанные в разделе создания класса TForm1:

type

TForm1 = class(TForm)

IdIPWatch1: TIdIPWatch;

TcpClient1: TTcpClient;

TcpServer1: TTcpServer;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button3: TButton;

GroupBox2: TGroupBox;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure TcpServer1Accept(Sender: TObject;

ClientSocket: TCustomIpClient);

private

{ Private declarations }

public

{ Public declarations }

end;

Отметим процедуры – обработчики событий: создание формы при запуске приложения инициализирует параметры по умолчанию; процедура применения новых параметров вызывается нажатием кнопки Button3; нажатием кнопки Button1 вызывается процедура отправки сообщения; процедура Button2Click отвечает за выход из программы; процедура TcpServer1Accept обрабатывает событие «входящее сообщение». При размещении указанных компонентов на главной форме, последняя примет вид, показанный на рис. 3.

3. Для удобства работы зададим следующие глобальные переменные:

var

Form1: TForm1;

IPlocal, //Локальный адрес

IPRemote, //Удалённый адрес

TCPLocal, //Локальный порт

TCPRemote:string; //Удалённый порт

4. Теперь размещённым компонентам необходимо задать особые свойства, перечисленные в табл. 1.

Таблица 1

Свойства размещенных компонентов

Компонент	Свойство	Значение	Цель
Label1	Caption	Свой IP-адрес
Label2	Caption	Удалённый IP-адрес
Label3	Caption	Свой TCP-порт
Label4	Caption	Удалённый TCP-порт
Edit1-Edit4	Text	пусто
Edit1	ReadOnly	TRUE	Заблокировать ввод IP-адреса вручную
Memo1	Lines	пусто
Button1	Caption	Отправить
Button1	Default	TRUE	Для вызова события OnClick по нажатию клавиши Enter
Button2	Caption	Закрыть
Button3	Caption	Применить
IdIPWatch1	Active	True
GroupBox1	Caption	Настройки
GroupBox2	Caption	Сообщение
Form1	Caption	Сервер (или Клиент)