3.6 Пример реализации простейшего клиент-серверного приложения на основе сокетов

Запустить Delphi. На пустой форме (возможен вариант совмещения функций клиента и сервера в одном приложении) разместить два компонента с закладки Internet: TClientSocket и TServerSocket (в 6 и 7 версии Delphi они могут отсутствовать; для установки надо выполнить шаги:Component – Install Packages – Add – dclsockets60.bpl или dclsockets70.bpl).

Для клиентской части программы понадобятся два компонента TEdit (один для ввода ip-адреса или dns-имени сервера, другой – для ввода передаваемой информации) и одна кнопка «Послать» для соединения с сервером и отправки ему сообщения.

Для серверной части понадобится один компонент TMemo для выдачи служебной информации о подключениях и отображения принимаемых сообщений).

В свойствах TServerSocket: установить Port в 4000, затем – Active в true.

В обработчике Button1Click написать код для соединения с сервером:

ClientSocket1.Host:=Edit1.Text;

ClientSocket1.Port:=4000;

ClientSocket1.Active:=true;

Теперь, при нажатии на Button1 произойдет соединение с сервером, адрес которого был указан в Edit1. При установлении соединения произойдет событие ClientSocket1.OnConnect, которое, например, надо обработать так, чтобы на сервер передавалась строка из Edit2 и происходило отсоединение:

Socket.SendText(Edit2.Text);

ClientSocket1.Active:=False;

При подключении клиента к ServerSocket1 произойдет событие Server-Socket1.OnClientConnect, в котором нужно вывести следующую информацию:

Memo1.Lines.Add('Client connected from: '+Socket.RemoteHost);

При попытке передать клиентом на сервер сообщение на сервере произойдет событие ServerSocket1.OnClientRead, в котором текст считывается и выводится в Memo1:

ReceivedString:=''; {локальная переменная типа string}

while Socket.ReceiveLength>0 do

ReceivedString:=ReceivedString+Socket.ReceiveText;

Memo1.Lines.Add('Received string: '+ReceivedString);

При отсоединении клиента произойдет событие OnClientDisconnect, в котором мы добавим в Memo1 соответствующее сообщение:

Memo1.Lines.Add('Client '+Socket.RemoteHost+' disconnected.');

Запустите проект и протестируйте его. В качестве ip-адреса можно использовать адреса соседних компьютеров, на которых запущены аналогичные программы или адрес 127.0.0.1 для тестирования на локальном компьютере.

Примечание: Отправка сообщений с сервера клиентам осуществляется с использованием тех же методов и событий соответственно на стороне сервера и клиентов. Отличие заключается в необходимости точного указания номера соединения в свойстве Connections[Index: Integer]: TcustomWinSocket. Например:

ServerSocket1.Socket.Connections[i].SendText('Test');

Здесь i = (0..N-1) – номер соединения, N – общее количество соединений.

3.7. Задание на лабораторную работу

1. Ознакомиться с теоретическим и справочным материалом.

2. Реализовать приведенное в п. 2 простейшее приложение и ознакомиться с работой компонентов Socket.

3. Разработать приложение сервера и приложение клиента, позволяющее общаться между клиентами в режиме online (один сервер обслуживает несколько клиентов).

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

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