ПриложениеСервис.ПриОтключенииКлиента (ServiceApplication.ClientDisconnected) Свойство

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

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

Значение

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

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

Примечание

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

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

Пример

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

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


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

Процедура ПриложениеСервис_ПриОтключенииКлиента() Экспорт
	ПриложениеКлиентАрг = КС.АргументыСобытия;
	Сообщить("ПриложениеКлиентАрг = " + ПриложениеКлиентАрг);
	Сообщить("Клиент отключен! Гуид клиента = " + ПриложениеКлиентАрг.Клиент.ГуидКлиента);
	Сообщить("СостояниеСоединения = " + ПриложениеКлиентАрг.Клиент.СостояниеСоединения);
	Сообщить("========================================");
КонецПроцедуры

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

ПриложениеСервис1.Начать();
Сообщить("ПриложениеСервис запущен");

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

//== Файл Клиент.os == начало
Перем ПриложениеКлиент1;

Процедура ПриложениеКлиент1_ПриОтключении() Экспорт
	Сообщить("Я отключился. Гуид = " + ПриложениеКлиент1.ГуидКлиента);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptClientServer\OneScriptClientServer\bin\Debug\OneScriptClientServer.dll");
КС = Новый КлиентСерверДляОдноСкрипта();
ПриложениеКлиент1 = КС.ПриложениеКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085), ЭтотОбъект);
ПриложениеКлиент1.ПриОтключении = КС.Действие(ЭтотОбъект, "ПриложениеКлиент1_ПриОтключении");

ПриложениеКлиент1.Подключить();
Приостановить(2000);

ПриложениеКлиент1.Отключить();
Приостановить(1000);

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

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

ПриложениеСервис (ServiceApplication) Класс | Библиотека OneScriptClientServer