Основные этапы работы с TServerSocket

Работа с сокетами в Delphi

Сокеты (от socket (англ.) — разъём, гнездо) — это программный интерфейс, обеспечивающий обмен информацией между процессами.

 

Одним из основных достоинств сокетного обмена информацией в сети можно назвать его гибкость. Главный принцип работы с сокетами состоит в отправке последовательности байт другому компьютеру, это может быть простое текстовое сообщение или файл.

Важно различать два типа сокетов: клиентские сокеты, и серверные сокеты.

 

Для работы с «клиентским» типом сокетов в Delphi существует компонент TClientSocket, с «серверными» сокетами можно работать при помощи компонента TServerSocket.

Установка компонентов

Зачастую компоненты TServerSocket и TClientSocket не входят в стандартный пакет установки Delphi, но их можно установить дополнительно.

Зайдите на вкладку компонентов «Internet», и проверьте присутствуют ли там компоненты TServerSocket и TClientSocket, если нет, то установите их. Зайдите в меню "Component/Install Packages", затем нажмите кнопку "Add". В открывшемся диалоговом окне нужно найти файл "dclsocketsXX.bpl" (он лежит в папке bin, которая находится в папке с Delphi), где XX - это числовой номер версии вашего Delphi. Найдите файл, нажмите "Открыть", а затем в окне "Install Packages" нажмите "OK". Теперь, во вкладке "Internet" появились два компонента - TServerSocket и TClientSocket.

Работа с клиентскими сокетами (TClientSocket)

1) Определение свойств Port и Host. Для успешного соединения свойствам Port и Host компонента TClientSocket необходимо присвоить некоторые значения. В свойстве Port нужно указать номер порта для подключения (1 – 65535, но лучше брать из диапозона 1001 – 65535, потому что номера до 1000 могут оказаться заняты системными службами).

Host — хост-имя или IP-адрес компьютера, с которым требуется соединиться. Например, rus.delphi.com или 192.128.0.0.

 

2) Открытие сокета. Будем рассматривать сокет как очередь символов, передающихся с одного компьютера на другой. Открыть сокет можно, вызвав метод Open (компонент TClientSocket) или присвоив значение True свойству Active. Тут нелишним будет поставить обработчик исключения на случай неудавшегося соединения.

 

Отправка/прием данных.

 

4) Закрытие сокета. По завершению обмена данными нужно закрыть сокет, вызвав метод Close компонента TClientSocket или присвоив значение False свойству Active.

 

Основные свойства компонента TClientSocket
Active	Показатель того, открыт или закрыт сокет. Открыт – значение True, закрыт – значение False. Доступно для записи.
Host	Хост-имя, с которым нужно соединиться
Address	IP-адрес компьютера, с которым нужно соединиться. В отличие от Host, здесь может быть указан только IP. Разница состоит в том, что если в Host указано буквенное имя компьютера, то IP запросится у DNS
Port	Номер порта компьютера, с которым нужно соединиться (1-65535)
ClientType	Содержит тип передачи данных: ctBlocking — синхронная передача (OnRead и OnWrite не работают). Синхронный тип подключения подходит для поточного обмена данными; ctNonBlocking — асинхронная передача (отправка/приём данных может производиться при помощи событий OnRead и OnWrite)
Основные методы компонента TClientSocket
Open	Открывает сокет (присвоение свойству Active значения True)
Close	Закрывает сокет (присвоение свойству Active значения False)
Основные события компонента TClientSocket
OnConnect	Возникает при установке подключения. В обработчике уже можно приступать к авторизации или отправке/приему данных
OnConnecting	Также возникает при подключении. Отличается от OnConnect тем, что подключение еще не установлено. Чаще всего используется, например, чтобы обновить статус
OnDisconnect	Событие возникает при закрытии сокета вашей программой, удаленным компьютером или из-за сбоя
OnError	Событие возникает при ошибке. Во время открытия сокета это событие не поможет выловить ошибку. Во избежание появления сообщения от Windows об ошибке, лучше позаботиться о внутренней обработке исключений путём помещения операторов открытия в блок «try..except»
OnLookup	Событие возникает при попытке получить IP-адрес от DNS
OnRead	Событие возникает при отправке вам каких-либо данных удалённым компьютером. При вызове OnRead возможна обработка принятых данных
OnWrite	Событие возникает, когда вашей программе разрешено писать данные в сокет

Для приема или отправки данных необходимо использовать методы объекта TClientSocket.Socket:

- SendBuf(var Buf; Count: Integer) - Посылка буфера через сокет. Буфером может являться любой тип, будь то структура (record), либо простой Integer. Буфер указывается параметром Buf, вторым параметром Вы должны указать размер пересылаемых данных в байтах (Count);

- SendText(const S: string) - Посылка текстовой строки через сокет.

- SendStream(AStream: TStream) - Посылка содержимого указанного потока через сокет. Пересылаемый поток должен быть открыт. Поток может быть любого типа - файловый, из ОЗУ, и т.д.

- ReceiveBuf (var Buf; Count: Integer) - Прием данных в буфер Buf, размером Count. Важно знать, что при попытке чтения большего количества данных чем доступно на данный момент – возникнет ошибка чтения с сокета. Количество данных (в байтах), доступных для чтения с сокета, можно узнать в свойстве ReceiveLength.

Для чтения простых данных с сокета можно воспользоваться свойством ReceiveText.

Работа с серверными сокетами (TServerSocket)

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

 

Основные этапы работы с TServerSocket

 

1) Определение свойств Port и ServerType - чтобы к серверу могли нормально подключаться клиенты, нужно, чтобы порт, используемый сервером точно совпадал с портом, используемым клиентом (и наоборот). Свойство ServerType определяет тип подключения (подробнее см.ниже);

2) Открытие сокета - открытие сокета и указанного порта. Здесь выполняется автоматическое начало ожидания подсоединения клиентов (Listen);

3) Подключение клиента и обмен данными с ним - здесь подключается клиент и идет обмен данными с ним.

 

4) Отключение клиента - Здесь клиент отключается и закрывается его сокетное соединение с сервером.

 

5) Закрытие сервера и сокета - По команде администратора сервер завершает свою работу, закрывая все открытые сокетные каналы и прекращая ожидание подключений клиентов.

 

Следует заметить, что пункты 3-4 повторяются многократно, т.е. эти пункты выполняются для каждого нового подключения клиента.

 

 

Основные свойства компонента TServerSocket
Socket	Класс TServerWinSocket, через который Вы имеете доступ к открытым сокетным каналам. Далее мы рассмотрим это свойство более подробно, т.к. оно, собственно и есть одно из главных.
ServerType	Тип сервера. Может принимать одно из двух значений: stNonBlocking - синхронная работа с клиентскими сокетами. При таком типе сервера Вы можете работать с клиентами через события OnClientRead и OnClientWrite. stThreadBlocking - асинхронный тип. Для каждого клиентского сокетного канала создается отдельный процесс (Thread).
ThreadCacheSize	Количество клиентских процессов (Thread), которые будут кэшироваться сервером. Здесь необходимо подбирать среднее значение в зависимости от загруженности Вашего сервера. Кэширование происходит для того, чтобы не создавать каждый раз отдельный процесс и не убивать закрытый сокет, а оставить их для дальнейшего использования.
Active	Показатель того, активен в данных момент сервер, или нет. Т.е., фактически, значение True указывает на то, что сервер работает и готов к приему клиентов, а False - сервер выключен. Чтобы запустить сервер, нужно просто присвоить этому свойству значение True.
Port	Номер порта для установления соединений с клиентами. Порт у сервера и у клиентов должны быть одинаковыми. Рекомендуются значения от 1025 до 65535, т.к. от 1 до 1024 - могут быть заняты системой.
Основные методы компонента TServerSocket
Open	Запускает сервер. По сути, эта команда идентична присвоению значения True свойству Active
Close	Останавливает сервер. По сути, эта команда идентична присвоению значения False свойству Active
Основные события компонента TServerSocket
OnClientConnect	Возникает, когда клиент установил сокетное соединение и ждет ответа сервера (OnAccept)
OnClientDisconnect	Возникает, когда клиент отсоединился от сокетного канала
OnClientRead	Возникает, когда клиент передал серверу какие-либо данные. Доступ к этим данным можно получить через передаваемый параметр Socket: TCustomWinSocket
OnClientWrite	Возникает, когда сервер может отправлять данные клиенту по сокету
OnGetSocket	В обработчике этого события Вы можете отредактировать параметр ClientSocket
OnGetThread	В обработчике этого события Вы можете определить уникальный процесс (Thread) для каждого отдельного клиентского канала, присвоив параметру SocketThread нужную подзадачу TServerClientThread
OnThreadStart	Возникает, когда подзадача (процесс, Thread) запускается
OnThreadEnd	Возникает, когда подзадача (процесс, Thread) останавливается
OnAccept	Возникает, когда сервер принимает клиента или отказывает ему в соединении
OnListen	Возникает, когда сервер переходит в режим ожидания подсоединения клиентов

 

Пример работы сокетами

 

См. демонстрационные проекты в папках /lab1/tcp-ip-client/ и /lab1/tcp-ip-server/