ServiceClient.GetClientsInfo Method

Синтаксис

ПолучитьИнформациюКлиентов()

Параметры

Возвращаемое значение

Тип: Массив.

Массив экземпляров класса ИнформацияКлиента (ClientInfo).

Описание

Возвращает массив экземпляров класса ИнформацияКлиента (ClientInfo), содержащих данные о клиенте приложения.

Примечание

Пример

Массив = ПриложениеКлиент1.ПолучитьИнформациюКлиентов();

Полный пример кода

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

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

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

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

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

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

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

ПриложениеКлиент2 = КС.ПриложениеКлиент(КС.TCPКонечнаяТочка("127.0.0.1", 10085), ЭтотОбъект);
ПриложениеКлиент2.ИмяКлиента = "Клиент2 " + ТекущаяУниверсальнаяДатаВМиллисекундах();

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

Массив = ПриложениеКлиент1.ПолучитьИнформациюКлиентов();
Для А = 0 По Массив.ВГраница() Цикл
	Сообщить("ГуидКлиента = " + Массив.Получить(А).ГуидКлиента);
	Сообщить("ИмяКлиента = " + Массив.Получить(А).ИмяКлиента);
	Сообщить("=====================");
КонецЦикла;

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