Действие.ИмяМетода (Action.MethodName) Свойство

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

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

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

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

TCPСервер1 = КС.TCPСервер(10085);

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

Сообщить("Действие.ИмяМетода = " + Действие.ИмяМетода);

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

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