TCPСервер.ПриПодключенииКлиента (TcpServer.ClientConnected) Свойство

Использование

Чтение и запись.

Значение

Тип: Действие.

Возвращает или задает код для выполнения, когда новый клиент подключается к серверу.

Примечание

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

Процедура обработки события должна быть объявлена с ключевым словом Экспорт.

Пример

TCPСервер1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "TCPСервер1_ПриПодключенииКлиента");
Полный пример кода 

Копировать     Выделить всё


//== Файл Сервер.os == начало
Перем КС;

Процедура TCPСервер1_ПриПодключенииКлиента() Экспорт
	СерверКлиент = КС.СерверКлиентАрг().Клиент;
	Сообщить("Клиент подключен. Идентификатор клиента = " + СерверКлиент.ИдентификаторКлиента);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
КС = Новый КлиентСерверДляОдноСкрипта();

TCPСервер1 = КС.TCPСервер(10085);
TCPСервер1.ПриПодключенииКлиента = КС.Действие(ЭтотОбъект, "TCPСервер1_ПриПодключенииКлиента");
TCPСервер1.Начать();
Сообщить("Сервер запущен.");

Пока КС.Продолжать Цикл
	КС.ПолучитьСобытие().Выполнить();
КонецЦикла;
//== Файл Сервер.os == конец

//== Файл Клиент.os == начало
Процедура TCPКлиент_ПриПодключении() Экспорт
	Сообщить("TCPКлиент_ПриПодключении");
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
КС = Новый КлиентСерверДляОдноСкрипта();

TCPКлиент1 = КС.TCPКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085));
TCPКлиент1.ПриПодключении = КС.Действие(ЭтотОбъект, "TCPКлиент_ПриПодключении");
TCPКлиент1.Подключить();

Пока КС.Продолжать Цикл
	КС.ПолучитьСобытие().Выполнить();
КонецЦикла;
//== Файл Клиент.os == конец

Смотрите также

TCPСервер (TcpServer) Класс | Библиотека OneScriptClientServer