ПриложениеСервис.Клиенты (ServiceApplication.Clients) Свойство

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

//== Файл Сервер.os == начало
Перем ПриложениеСервис1;

Процедура ПриложениеСервис_ПриПодключенииКлиента() Экспорт
	Клиенты = ПриложениеСервис1.Клиенты;
	Сообщить("Количество подключенных к серверу клиентов = " + Клиенты.Количество());
	Для А = 0 По Клиенты.ВГраница() Цикл
		ПриложениеСервисКлиент = Клиенты[А];
		Сообщить("ГуидКлиента = " + ПриложениеСервисКлиент.ГуидКлиента);
	КонецЦикла;
	Сообщить("========================================");
КонецПроцедуры

ПодключитьВнешнююКомпоненту("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.Подключить();
Приостановить(1000);

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