Лабораторна робота №13

Тема: Створення програми типу клієнт-сервер.

Мета роботи: Створити програму, яка обробляє клієнтські запити використовуючи Delphi.

Розробка проекту «Чат для локальної та глобальної мережі»

Завдання. Створити програму «Чат для локальної та глобальної мережі», яка обробляє клієнтські запити.

Хід роботи

1. Створити папку С:\Delphi\lab_12.

2. Створити новий проект.Присвоюємо властивості Caption форми значення Чат.

3. Розмістити на формі компоненти MainManu з вкладки Standart палітри компонентів і створимо меню.

Присвоїмо властивості Name пунктів меню З’єднання наступні значення: Створити - create1; З’єднати - connect1; Роз’єднати - disconnect1. Властивості Enabled пункту меню З’єднання – Роз’єднати присвоюємо значення false, щоб зробити цю команду недоступною.

4. Розмістимо на формі компонент Memo і встановити цьому компоненту властивості за табл. 1.

Таблиця 1

Властивість (Properties)/ Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Align	AlTop
Name	txt
Lines	Вітаємо в чаті!
Readonly	True

5. Нижче розмістимо компонент Edit і присвоїмо його властивостям значення, як в табл. 2.

Таблиця 2

Властивість (Properties)/ Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Name	sms
Text	Очистимо поле

6. Справа від поля SMS розмістимо компонент Button і надамо його властивостям наступні значення (табл.3).

Таблиця 3

Властивість (Properties)/ Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Name	send
Caption	Відправити

7. Два важливих компоненти нашої програми, які будуть виконувати роль клієнта і сервера, знаходяться в палітрі компонентів на закладці Internet. Це компоненти TServerSocket та TClientSocket.

8. Для компонента ClientSocket змінимо значення властивості Port на 1945, Host – на 127.0.0.1, а Name – на Client. Для ServerSocket встановимо для властивості Port значення 1945, а для властивості Name – server. Форма набуде такого вигляду:

Розробка форми на настройок

9. Тепер створимо ще одну форму, яка буде служити для зміни настойок. Для цього виконаємо команду меню File–New–Form. В результаті чого з’явиться нова форма з іменем form2. присвоїмо її властивостям значення згідно табл. 4.

Таблиця 4

Властивість (Properties)/ Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Name	Settings
Caption	настройки

10. Розмістимо на формі три компоненти Label, три компоненти Edit та Button. Задано їхнім властивостям значення згідно таблиці 5.

Таблиця 5

Компонент	Властивість (Properties)/ Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Label1	Caption	Ім’я
Label2	Caption	ІР сервера
Label3	Caption	ІР клієнта
Edit1	Name	name
Edit2	Name	ips
Edit3	Name	ipc
Button1	Caption	встановити

В результаті форма набуде такого вигляду: