После этого главная форма примет вид, изображенный на рис. 4.

5. При запуске программы необходимо произвести инициализацию параметров по умолчанию. Данное действие описано в листинге следующей процедуры:

procedure TForm1.FormCreate(Sender: TObject);

begin

//Инициализация параметров по умолчанию

IPLocal:=IdIpWatch1.LocalIP; //Определение локального IP

IPRemote:=IPLocal; //По умолчанию удалённый IP равен локальному

TCPLocal:='1001'; //Локальный порт по умолчанию

TCPRemote:='1000'; //Удалённый порт по умолчанию

Edit1.Text:=IPlocal; //Записываем значения по умолчанию в поля ввода

Edit2.Text:=IPRemote;

Edit3.Text:=TCPLocal;

Edit4.Text:=TCPRemote;

Button3.Click; //Вызываем нажатие кнопки "Применить"

end;

Следует помнить, что данная процедура автоматически записывается во всех необходимых модулях программы при двойном щелчке мыши по конструктору формы. После того как процедура сформирована, запуск программы вызовет инициализацию параметров по умолчанию и окно программы примет вид, показанный на рис. 5.

6. Теперь необходимо описать процедуру применения заданных параметров к компонентам TCPClient и TCPServer:

procedure TForm1.Button3Click(Sender: TObject);

begin

//Применение параметров

TCPClient1.Active:=False; //Отключение клиента

TCPClient1.RemoteHost:=IPRemote; //Задание параметров клиента

TCPClient1.RemotePort:=TCPRemote;

TCPClient1.Active:=True; //Включение клиента

TCPServer1.Active:=false; //Отключение сервера

TCPServer1.LocalHost:=IPLocal; //Задание параметров сервера

TCPServer1.LocalPort:=TCPLocal;

TCPServer1.Active:=true; //Включение сервера

end;

7. Далее опишем процедуры отправки и приёма сообщений.

procedure TForm1.Button1Click(Sender: TObject);

begin

//Отправка сообщения

TCPClient1.Active:=true; //Включение клиента

TCPClient1.Connect; //Соединение клиента с удалённым сервером

TCPClient1.Sendln(Memo1.Text);//Отправка сообщения

TCPClient1.Disconnect; //Отключение от сервера

TCPClient1.Active:=false; //Выключение клиента

end;

procedure TForm1.TcpServer1Accept(Sender: TObject;

ClientSocket: TCustomIpClient);

begin

//Приём сообщения

showmessage(ClientSocket.Receiveln());

end;

8. Далее необходимо описать процедуру выхода из программы.

procedure TForm1.Button2Click(Sender: TObject);

begin

//Выход

close;

end;

В качестве примера приведена схема рис. 6, где один компьютер имеет адрес: порт 192.168.0.101:1000, а второй – 192.168.0.102:1001. Если сообщения отправляются и принимаются, то лабораторная работа считается выполненной.

Содержание отчёта

1. Титульный лист работы.

2. Формулировка цели и задач работы.

3. Схема клиент-серверного соединения.

4. Алгоритм выполнения соединения клиента и сервера.

5. Проверка соединения и параметры передачи данных.

6. Краткие выводы по проделанной работе.

Контрольные вопросы

1. Назовите основные принципы технологии клиент-сервер в задачах обмена данными.

2. Какие уровни управления имеются в модели ISO/OSI и объясните назначение уровней модели.

3. Приведите примеры типовых пользовательских сетевых приложений.

4. Назовите основные компоненты, необходимые для реализации обмена в среде Delphi.

5. Какой компонент среды Delphi нужно использовать для автоматического определения текущего IP-адреса?