Описание соединения. Получение этой информации не требует аутентификации пользователей информационных баз. Представляет собой объект с интерфейсом IConnectionShort.
Полное описание, параметры и ограничения
Описание соединения (IConnectionShort)
Описание соединения (IConnectionShort)
Доступен, начиная с версии 8.1.
Свойства:
Application (Application)
blockedByLS (blockedByLS)
ConnectedAt (ConnectedAt)
ConnID (ConnID)
Host (Host)
InfoBase (InfoBase)
Process (Process)
SessionID (SessionID)
Описание:
Описание соединения. Получение этой информации не требует аутентификации пользователей информационных баз.
Представляет собой объект с интерфейсом IConnectionShort.
Доступность:
Интеграция.
См. также:
Блокировка, свойство Connection
Соединение с агентом сервера, метод GetConnectionLocks
Сеанс, свойство Connection
Использование в версии:
Доступен, начиная с версии 8.1.
Методическая информация
Практические примеры
Сопоставить полное соединение с кратким описанием и номером сеанса
Полный IInfoBaseConnectionInfo получается только через рабочий процесс. Номер соединения, номер сеанса и идентификатор процесса СУБД нельзя считать одним ID.
Где и как запускать
Полный модуль управляемой формы собственной пустой учебной базы на отдельном локальном Windows-стенде 8.5.1.1343. COM-вызовы выполняются только при самостоятельном запуске пользователем; здесь не запускались.
Подготовка
Нужен отдельный собственный локальный серверный стенд 1С 8.5.1.1343 на Windows без рабочих баз. Здесь выполняется только авторская подготовка кода: реальное подключение агентом справочника не выполнялось.
Администратор стенда заранее устанавливает сервер и регистрирует V85.COMConnector той же версии и разрядности, что серверный процесс учебной базы. Код не запускает regsvr32, не устанавливает платформу и не открывает COM 8.3 вместо 8.5.
В своём стенде создайте единственный целевой кластер с точным именем УчебныйКластер85 и новую пустую серверную базу с именем УчебнаяБаза85. У описания этой базы задайте точное значение syntax-guide85:owned-com. Не переименовывайте рабочую базу или кластер ради обхода защит.
У собственной учебной конфигурации задайте имя метаданных УчебнаяКонфигурацияСинтаксиса. Серверная функция должна выполняться на той же Windows-машине, что агент сервера и выбранный рабочий процесс: обращения жёстко ограничены 127.0.0.1.
Заведите отдельные действительные учебные учётные данные администратора агента, администратора кластера и администратора базы с правом Администратор. В этих уроках имена и пароли намеренно должны быть непустыми; анонимный режим не используется.
Создайте свою учебную обработку с управляемой формой. Реквизиты: ПортАгента и ПортКластера — Число без дробной части; КлючПроцесса, ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИмяАдминистратораБазы, ПарольАдминистратораБазы, JSONРезультат — Строка; Занято — Булево, начально Ложь. Длина JSONРезультат 0.
Поля трёх паролей выведите в Режиме пароля и не сохраняйте в настройках формы, истории или файле. JSONРезультат выведите многострочным полем только для просмотра. Добавьте команду ПолучитьУчебныйCOMСнимок с одноимённым клиентским обработчиком.
Вставьте весь приведённый модуль формы, включая обе вспомогательные функции. ПортАгента берите из реальной настройки ragent, ПортКластера — из настройки менеджера кластера. Порт ras сюда не подходит.
Первый раз оставьте КлючПроцесса пустым. Каталог покажет только локальные процессы выбранного учебного кластера. Скопируйте точный ключ порт|PID живого процесса из JSON, повторно введите очищенные пароли и повторите команду. PID не придумывайте; после перезапуска процесса получите каталог заново.
Для диагностики соединений откройте одно или два своих клиентских окна УчебнаяБаза85 и выполните обычные учебные действия, например собственный константный запрос. Не создавайте нагрузку на рабочем сервере; измеряемые числа зависят от реальных действий.
Снимок содержит только выбранные поля, не целые COM-объекты. Пароль СУБД, код разрешения входа, параметр блокировки и строка внешнего управления сеансами выводятся только как признаки наличия. Наличие строки не доказывает её корректность или доступность сервиса.
Если вы сами запустите урок, произойдут административные обращения к своему локальному агенту и рабочему процессу. Настройки не меняются, сеансы не завершаются, база не создаётся и не удаляется. Здесь запуск в 1С и подключение не проверялись.
&НаКлиенте
Процедура ПолучитьУчебныйCOMСнимок(Команда)
Если Занято Тогда
Возврат;
КонецЕсли;
Занято = Истина;
Попытка
JSONРезультат = УчебныйCOMСнимокНаСервере(ПортАгента, ПортКластера, КлючПроцесса,
ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера,
ИмяАдминистратораБазы, ПарольАдминистратораБазы);
Исключение
JSONРезультат = "Снимок не получен. Проверьте собственный Windows-стенд, COM 8.5, разрядность, порты, ключ процесса, учебные имена и права. Сырую ошибку с учётными данными не публикуйте.";
КонецПопытки;
ПарольАгента = "";
ПарольАдминистратораКластера = "";
ПарольАдминистратораБазы = "";
Занято = Ложь;
КонецПроцедуры
&НаСервереБезКонтекста
Функция УчебныйCOMСнимокНаСервере(ПортАгента, ПортКластера, КлючПроцесса,
ИмяАгента, ПарольАгента, ИмяАдминистратораКластера, ПарольАдминистратораКластера,
ИмяАдминистратораБазы, ПарольАдминистратораБазы)
Система = Новый СистемнаяИнформация;
Если Система.ТипПлатформы <> ТипПлатформы.Windows_x86
И Система.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда
ВызватьИсключение "COM-урок требует серверного выполнения на Windows";
КонецЕсли;
Порты = Новый Массив;
Порты.Добавить(ПортАгента);
Порты.Добавить(ПортКластера);
Для Каждого Порт Из Порты Цикл
Если ТипЗнч(Порт) <> Тип("Число") Тогда
ВызватьИсключение "Порты должны быть числами";
КонецЕсли;
Если Порт <> Цел(Порт) ИЛИ Порт < 1 ИЛИ Порт > 65535 Тогда
ВызватьИсключение "Недопустимый порт локального стенда";
КонецЕсли;
КонецЦикла;
Если ТипЗнч(КлючПроцесса) <> Тип("Строка") Тогда
ВызватьИсключение "Ключ процесса должен быть строкой";
КонецЕсли;
УчётныеДанные = Новый Структура;
УчётныеДанные.Вставить("ИмяАгента", ИмяАгента);
УчётныеДанные.Вставить("ПарольАгента", ПарольАгента);
УчётныеДанные.Вставить("ИмяКластера", ИмяАдминистратораКластера);
УчётныеДанные.Вставить("ПарольКластера", ПарольАдминистратораКластера);
УчётныеДанные.Вставить("ИмяБазы", ИмяАдминистратораБазы);
УчётныеДанные.Вставить("ПарольБазы", ПарольАдминистратораБазы);
Для Каждого Поле Из УчётныеДанные Цикл
Если ТипЗнч(Поле.Значение) <> Тип("Строка") Тогда
ВызватьИсключение "Учебные учётные данные должны быть строками";
КонецЕсли;
Если ПустаяСтрока(Поле.Значение) Тогда
ВызватьИсключение "Введите все три непустые учебные пары учётных данных";
КонецЕсли;
КонецЦикла;
ЛокальноеИмя = НРег(ИмяКомпьютера());
АдресАгента = "tcp://127.0.0.1:" + Формат(ПортАгента, "ЧГ=0");
Соединитель = Новый COMОбъект("V85.COMConnector");
Агент = Соединитель.ConnectAgent(АдресАгента);
Если Агент.ConnectionString <> АдресАгента Тогда
ВызватьИсключение "Не совпала строка выбранного локального подключения";
КонецЕсли;
Агент.AuthenticateAgent(ИмяАгента, ПарольАгента);
Кластер = Неопределено;
СовпаденийКластера = 0;
Для Каждого Найденный Из Агент.GetClusters() Цикл
Если Найденный.ClusterName = "УчебныйКластер85"
И УчебныйЛокальныйУзел(Найденный.HostName, ЛокальноеИмя)
И Найденный.MainPort = ПортКластера Тогда
Кластер = Найденный;
СовпаденийКластера = СовпаденийКластера + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийКластера <> 1 Тогда
ВызватьИсключение "Нужен единственный собственный локальный УчебныйКластер85 с указанным портом";
КонецЕсли;
Агент.Authenticate(Кластер, ИмяАдминистратораКластера, ПарольАдминистратораКластера);
КраткаяБаза = Неопределено;
СовпаденийБазы = 0;
Для Каждого НайденнаяБаза Из Агент.GetInfoBases(Кластер) Цикл
Если НайденнаяБаза.Name = "УчебнаяБаза85" И НайденнаяБаза.Descr = "syntax-guide85:owned-com" Тогда
КраткаяБаза = НайденнаяБаза;
СовпаденийБазы = СовпаденийБазы + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийБазы <> 1 Тогда
ВызватьИсключение "Не найдена единственная собственная база с точным маркером описания";
КонецЕсли;
Каталог = Новый Массив;
Процесс = Неопределено;
СовпаденийПроцесса = 0;
Для Каждого НайденныйПроцесс Из Агент.GetWorkingProcesses(Кластер) Цикл
Если УчебныйЛокальныйУзел(НайденныйПроцесс.HostName, ЛокальноеИмя)
И НайденныйПроцесс.MainPort >= 1 И НайденныйПроцесс.MainPort <= 65535
И НайденныйПроцесс.MainPort = Цел(НайденныйПроцесс.MainPort)
И НЕ ПустаяСтрока(НайденныйПроцесс.PID) Тогда
Ключ = Формат(НайденныйПроцесс.MainPort, "ЧГ=0") + "|" + НайденныйПроцесс.PID;
Каталог.Добавить(Новый Структура("Ключ,Хост", Ключ, НайденныйПроцесс.HostName));
Если Ключ = КлючПроцесса Тогда
Процесс = НайденныйПроцесс;
СовпаденийПроцесса = СовпаденийПроцесса + 1;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ПустаяСтрока(КлючПроцесса) Тогда
Возврат СериализоватьСвойСнимок(Новый Структура("УчебныеПроцессы", Каталог));
КонецЕсли;
Если СовпаденийПроцесса <> 1 Тогда
ВызватьИсключение "Нужен один живой локальный процесс с ключом из своего каталога";
КонецЕсли;
РабочееСоединение = Соединитель.ConnectWorkingProcess("tcp://127.0.0.1:" + Формат(Процесс.MainPort, "ЧГ=0"));
СовпаденийПолнойБазы = 0;
Для Каждого НайденнаяПолнаяБаза Из РабочееСоединение.GetInfoBases() Цикл
Если НайденнаяПолнаяБаза.Name = КраткаяБаза.Name И НайденнаяПолнаяБаза.Descr = КраткаяБаза.Descr Тогда
СовпаденийПолнойБазы = СовпаденийПолнойБазы + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийПолнойБазы <> 1 Тогда
ВызватьИсключение "Рабочий процесс не подтвердил свою учебную базу";
КонецЕсли;
РабочееСоединение.AddAuthentication(ИмяАдминистратораБазы, ПарольАдминистратораБазы);
База = Неопределено;
СовпаденийПослеВхода = 0;
Для Каждого НайденнаяПослеВхода Из РабочееСоединение.GetInfoBases() Цикл
Если НайденнаяПослеВхода.Name = "УчебнаяБаза85" И НайденнаяПослеВхода.Descr = "syntax-guide85:owned-com" Тогда
База = НайденнаяПослеВхода;
СовпаденийПослеВхода = СовпаденийПослеВхода + 1;
КонецЕсли;
КонецЦикла;
Если СовпаденийПослеВхода <> 1 Тогда
ВызватьИсключение "После аутентификации изменился выбор учебной базы";
КонецЕсли;
Снимок = Новый Структура;
Снимок.Вставить("База", База.Name);
Снимок.Вставить("ПроцессPID", Процесс.PID);
Снимок.Вставить("ПортПроцесса", Процесс.MainPort);
КраткиеСоединения = Агент.GetInfoBaseConnections(Кластер, КраткаяБаза);
КартаКратких = Новый Соответствие;
Для Каждого Краткое Из КраткиеСоединения Цикл
Если КартаКратких.Получить(Краткое.ConnID) <> Неопределено Тогда
ВызватьИсключение "Повтор номера краткого соединения: снимок не считать однозначным";
КонецЕсли;
КартаКратких.Вставить(Краткое.ConnID, Краткое);
КонецЦикла;
Соединения = РабочееСоединение.GetInfoBaseConnections(База);
КартаПолных = Новый Соответствие;
Для Каждого Подключение Из Соединения Цикл
Если КартаПолных.Получить(Подключение.ConnID) <> Неопределено Тогда
ВызватьИсключение "Повтор номера полного соединения";
КонецЕсли;
КартаПолных.Вставить(Подключение.ConnID, Подключение);
КонецЦикла;
Строки = Новый Массив;
Для Каждого Подключение Из Соединения Цикл
СтрокаСоединения = Новый Структура;
СтрокаСоединения.Вставить("ConnID", Подключение.ConnID);
СтрокаСоединения.Вставить("AppID", Подключение.AppID);
СтрокаСоединения.Вставить("HostName", Подключение.HostName);
СтрокаСоединения.Вставить("UserName", Подключение.UserName);
СтрокаСоединения.Вставить("ConnectedAt", Строка(Подключение.ConnectedAt));
СтрокаСоединения.Вставить("IBConnMode", Подключение.IBConnMode);
СтрокаСоединения.Вставить("dbConnMode", Подключение.dbConnMode);
СтрокаСоединения.Вставить("blockedByDBMS", Подключение.blockedByDBMS);
Если Подключение.IBConnMode <> 0 И Подключение.IBConnMode <> 1 Тогда
ВызватьИсключение "Неожиданный режим информационной базы";
КонецЕсли;
Если Подключение.dbConnMode <> 0 И Подключение.dbConnMode <> 1 И Подключение.dbConnMode <> 2 Тогда
ВызватьИсключение "Неожиданный режим соединения СУБД";
КонецЕсли;
СтрокаСоединения.Вставить("МонопольноИБ", Подключение.IBConnMode = 1);
СтрокаСоединения.Вставить("НетСоединенияСУБД", Подключение.dbConnMode = 0);
СтрокаСоединения.Вставить("МонопольноСУБД", Подключение.dbConnMode = 2);
Краткое = КартаКратких.Получить(Подключение.ConnID);
СтрокаСоединения.Вставить("ЕстьКраткийСнимок", Краткое <> Неопределено);
Если Краткое <> Неопределено Тогда
Если Краткое.InfoBase.Name <> База.Name ИЛИ Краткое.InfoBase.Descr <> База.Descr Тогда
ВызватьИсключение "Краткое соединение относится не к своей базе";
КонецЕсли;
СтрокаСоединения.Вставить("SessionID", Краткое.SessionID);
СтрокаСоединения.Вставить("ApplicationКраткое", Краткое.Application);
СтрокаСоединения.Вставить("HostКраткое", Краткое.Host);
СтрокаСоединения.Вставить("ConnectedAtКраткое", XMLСтрока(Краткое.ConnectedAt));
СтрокаСоединения.Вставить("ТранзакционныйБлокирующийConnID", Краткое.blockedByLS);
СтрокаСоединения.Вставить("ХостПроцессаКраткого", Краткое.Process.HostName);
СтрокаСоединения.Вставить("ПортПроцессаКраткого", Краткое.Process.MainPort);
КонецЕсли;
Если Подключение.blockedByDBMS <> 0 Тогда
Блокирующее = КартаПолных.Получить(Подключение.blockedByDBMS);
СтрокаСоединения.Вставить("БлокирующийЕстьВЭтомСнимке", Блокирующее <> Неопределено);
Если Блокирующее <> Неопределено Тогда
СтрокаСоединения.Вставить("БлокирующееПриложение", Блокирующее.AppID);
КонецЕсли;
Иначе
СтрокаСоединения.Вставить("ПояснениеБлокирующего", "Номер блокирующего соединения не сообщён; это не доказательство отсутствия всех ожиданий");
КонецЕсли;
Строки.Добавить(СтрокаСоединения);
КонецЦикла;
Снимок.Вставить("КоличествоСоединений", Строки.Количество());
Снимок.Вставить("Соединения", Строки);
Возврат СериализоватьСвойСнимок(Снимок);
КонецФункции
&НаСервереБезКонтекста
Функция СериализоватьСвойСнимок(Снимок)
Писатель = Новый ЗаписьJSON;
Писатель.УстановитьСтроку();
ЗаписатьJSON(Писатель, Снимок);
Возврат Писатель.Закрыть();
КонецФункции
&НаСервереБезКонтекста
Функция УчебныйЛокальныйУзел(ИмяУзла, ЛокальноеИмя)
Возврат НРег(ИмяУзла) = ЛокальноеИмя ИЛИ НРег(ИмяУзла) = "localhost" ИЛИ ИмяУзла = "127.0.0.1";
КонецФункции
Разбор по шагам
Проверить имя учебной конфигурации, типы портов и реквизитов до COM. Порты целые в диапазоне 1..65535; секреты не сериализуются.
ConnectAgent обращается только к 127.0.0.1. ConnectionString должна совпасть с построенной строкой без паролей. COM AuthenticateAgent принимает имя, пароль, в отличие от русскоязычного API ras.
Выбрать УчебныйКластер85 по точному имени, локальному хосту и порту менеджера. Отсутствие или неоднозначность не заменяются выбором первого элемента.
Проверить краткое описание УчебнаяБаза85 и точный маркер. Каталог живых локальных процессов позволяет взять настоящий порт|PID, а не подставить 1545 или придуманный PID.
ConnectWorkingProcess использует найденный динамический порт процесса, не порт агента или ras. До аутентификации базы читаются только Name и Descr.
AddAuthentication принимает только имя администратора базы и пароль, не дополнительный аргумент с именем базы. После него заново выбрать свою базу; полные поля читаются только далее.
В конце показать явно перечисленные скалярные поля JSON. После успеха или ошибки очищаются все три пароля и снимается флаг Занято.
Отдельно получить краткие описания у агента и полные соединения у рабочего процесса только собственной базы.
Построить две карты по ConnID с проверкой дублей. Сопоставление выполняется по номеру соединения, не по пользователю или имени компьютера.
Показать дату подключения, приложение, компьютер и пользователя. Несколько соединений одного пользователя не объявлять одной строкой.
IBConnMode: 0 разделяемый, 1 монопольный. dbConnMode: 0 нет соединения, 1 разделяемый, 2 монопольный. В этих двух полях число 1 имеет разный смысл.
У найденного краткого описания проверить свою базу, вывести SessionID и серверный процесс. SessionID=0 означает, что соединению не назначен сеанс.
Транзакционный blockedByLS и blockedByDBMS оставить отдельными номерами. Для ненулевого DBMS-блокирующего искать его лишь в текущей карте полных соединений.
При отсутствующем кратком описании или блокирующем показать отсутствие в снимке. Не считать это отсутствием объекта во всём кластере и не завершать его.
Два последовательных запроса не атомарны: соединение может появиться/исчезнуть между ними. Этот урок только наблюдает.
Как проверить результат
Открытые учебные окна дают настоящие строки; дата и имя пользователя совпадают с вашим стендом.
Разные ConnID сохраняются отдельно. SessionID не присваивается из ConnID; краткое описание сверяет своё имя/описание базы.
Два режима 0/1 и 0/1/2 проверены по своим правилам. Ненайденный блокирующий показан как отсутствие в данном снимке, не как команда отключения.
Ожидаемый результат
Получена безопасная диагностическая связь соединение → сеанс/процесс и раздельные сведения о блокировках.
На что обратить внимание
COM здесь работает в серверном Windows-процессе. Loopback означает эту машину, не компьютер тонкого клиента; Linux и незарегистрированный соединитель этому уроку не соответствуют.
Присутствие учебных имён и маркера не заменяет права доступа. Не запускайте в рабочем кластере; отделите стенд от production.
Порт агента, порт менеджера кластера, порт ras и динамический порт рабочего процесса — разные значения.
COMSafeArray перечисляется циклом Для Каждого. Это не Массив 1С и не список UUID ras; не приписывайте ему методы или свойства другой коллекции.
Снимки и выбранные процессы могут устареть между запросами. После перезапуска повторите каталог; не пытайтесь автоматически завершить мешающий процесс.
Сырые COM-ошибки могут раскрывать чувствительные сведения. Разбирайте подготовку в отладчике своего стенда, не добавляйте ОписаниеОшибки в публичный JSON.
ConnID, SessionID и SPID СУБД относятся к разным пространствам идентификаторов.
Application краткого описания и AppID полного могут иметь разные представления; код не требует посимвольного равенства.
Снимок не даёт оснований для принудительного разрыва соединения. Нет Disconnect, TerminateSession или обхода аутентификации.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Разобраться, что такое сеанс, соединение и спящий клиент
На выбранном учебном сеансе читаем паспорт, политику сна и необязательное описание соединения без выгрузки имени пользователя или компьютера.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Только собственный изолированный тестовый кластер на Windows. Зарегистрированная в нём база называется guide-owned-session-lab, имя конфигурации этой базы УчебнаяБазаСеансов. Запустите в ней отдельный учебный клиент.
Создайте собственную обработку с управляемой формой. Вставьте весь код одного урока в модуль этой формы и свяжите команду Прочитать с обработчиком Прочитать. Серверная часть должна исполняться на Windows. Уроки заменяют весь модуль, а не добавляют шесть одинаковых функций.
V85.COMConnector должен быть уже зарегистрирован администратором на Windows-сервере 1С с подходящей разрядностью. Пример ничего не устанавливает и не регистрирует. Если COM недоступен, остановитесь и обратитесь к администратору тестового стенда.
В форме собственной обработки создайте строковые реквизиты КлючКластера, ИмяАгента, ПарольАгента, ИмяАдминистратора, ПарольАдминистратора и числовой НомерСеанса. Для полей паролей включите режим пароля, не сохраняйте значения в настройках формы.
КлючКластера вручную возьмите из собственной консоли администрирования: имя кластера|имя сервера|основной порт, например Учебный|localhost|1541. Это порт кластера, не порт агента 1540 и не порт RAS 1545.
Серверный код связывается только с агентом 127.0.0.1:1540 на том Windows-сервере, где исполняется модуль. Вводятся существующие учебные учётные данные агента и кластера; права и пароли не изменяются.
Клиентский обработчик приведён полностью: он очищает поля паролей до вызова сервера и не печатает аргументы или технический текст ошибок. Это не гарантирует безопасное стирание строк из памяти; учебные учётные данные не должны сохраняться в настройках формы.
Сначала НомерСеанса = 0: получите только ID и AppID сеансов этой учебной базы. Затем введите один ID из этого списка. ID уникален внутри информационной базы, а не во всём кластере.
Ниже дан законченный серверный пример получения настоящего объекта Сеанс, а не функция, требующая неизвестный ИсходныйОбъект. COM и кластер при подготовке руководства не запускались; требуется ручной запуск на собственном стенде.
&НаКлиенте
Процедура Прочитать(Команда)
ЛокальныйПарольАгента = ПарольАгента;
ЛокальныйПарольАдминистратора = ПарольАдминистратора;
ПарольАгента = "";
ПарольАдминистратора = "";
Попытка
Отчет = ПрочитатьУчебныйСеанс(КлючКластера, ИмяАгента, ЛокальныйПарольАгента, ИмяАдминистратора, ЛокальныйПарольАдминистратора, НомерСеанса);
Исключение
ЛокальныйПарольАгента = "";
ЛокальныйПарольАдминистратора = "";
Сообщить("Чтение не выполнено. Проверьте собственный стенд, COM, ключ кластера, права и наличие выбранного сеанса. Технические сведения проверяет администратор стенда.");
Возврат;
КонецПопытки;
ЛокальныйПарольАгента = "";
ЛокальныйПарольАдминистратора = "";
Сообщить(Отчет);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПрочитатьУчебныйСеанс(КлючКластера, ИмяАгента, ПарольАгента, ИмяАдминистратора, ПарольАдминистратора, НомерСеанса)
Если ПустаяСтрока(КлючКластера) Тогда
ВызватьИсключение "Укажите точный ключ собственного тестового кластера";
КонецЕсли;
Если НомерСеанса < 0 Или Цел(НомерСеанса) <> НомерСеанса Тогда
ВызватьИсключение "Номер сеанса должен быть целым неотрицательным числом";
КонецЕсли;
Соединитель = Новый COMОбъект("V85.COMConnector");
Агент = Соединитель.ConnectAgent("127.0.0.1:1540");
Агент.AuthenticateAgent(ИмяАгента, ПарольАгента);
ПодходящиеКластеры = Новый Массив;
Для Каждого Кандидат Из Агент.GetClusters() Цикл
КлючКандидата = СтрШаблон("%1|%2|%3", Кандидат.ClusterName, Кандидат.HostName, Кандидат.MainPort);
Если НРег(КлючКандидата) = НРег(КлючКластера) Тогда
ПодходящиеКластеры.Добавить(Кандидат);
КонецЕсли;
КонецЦикла;
Если ПодходящиеКластеры.Количество() <> 1 Тогда
ВызватьИсключение "Собственный тестовый кластер не выбран однозначно";
КонецЕсли;
Кластер = ПодходящиеКластеры.Получить(0);
Агент.Authenticate(Кластер, ИмяАдминистратора, ПарольАдминистратора);
УчебныеБазы = Новый Массив;
Для Каждого ОписаниеБазы Из Агент.GetInfoBases(Кластер) Цикл
Если ОписаниеБазы.Name = "guide-owned-session-lab" Тогда
УчебныеБазы.Добавить(ОписаниеБазы);
КонецЕсли;
КонецЦикла;
Если УчебныеБазы.Количество() <> 1 Тогда
ВызватьИсключение "Зарегистрированная учебная база не выбрана однозначно";
КонецЕсли;
УчебнаяБаза = УчебныеБазы.Получить(0);
УчебныеСеансы = Агент.GetInfoBaseSessions(Кластер, УчебнаяБаза);
СтрокиОтчета = Новый Массив;
НайденныеСеансы = Новый Массив;
Для Каждого КандидатСеанс Из УчебныеСеансы Цикл
Если НомерСеанса = 0 Тогда
СтрокиОтчета.Добавить(СтрШаблон("Сеанс %1; приложение %2", КандидатСеанс.SessionID, КандидатСеанс.AppID));
ИначеЕсли КандидатСеанс.SessionID = НомерСеанса Тогда
НайденныеСеансы.Добавить(КандидатСеанс);
КонецЕсли;
КонецЦикла;
Если НомерСеанса = 0 Тогда
Если СтрокиОтчета.Количество() = 0 Тогда
Возврат "В учебной базе сейчас нет сеансов";
КонецЕсли;
Возврат СтрСоединить(СтрокиОтчета, Символы.ПС);
КонецЕсли;
Если НайденныеСеансы.Количество() <> 1 Тогда
ВызватьИсключение "Учебный сеанс исчез или не выбран однозначно; обновите список";
КонецЕсли;
Сеанс = НайденныеСеансы.Получить(0);
Если Сеанс.InfoBase.Name <> "guide-owned-session-lab" Тогда
ВызватьИсключение "Сеанс не принадлежит выбранной учебной базе";
КонецЕсли;
СтрокиОтчета.Добавить(СтрШаблон("ID=%1; AppID=%2; язык интерфейса=%3", Сеанс.SessionID, Сеанс.AppID, Сеанс.Locale));
СтрокиОтчета.Добавить(СтрШаблон("Начало=%1; последняя активность=%2", Сеанс.StartedAt, Сеанс.LastActiveAt));
СтрокиОтчета.Добавить(СтрШаблон("Имя клиента заполнено=%1; имя пользователя заполнено=%2", Не ПустаяСтрока(Сеанс.Host), Не ПустаяСтрока(Сеанс.UserName)));
СтрокиОтчета.Добавить(СтрШаблон("Описание учебной базы заполнено=%1", Не ПустаяСтрока(Сеанс.InfoBase.Descr)));
СтрокиОтчета.Добавить(СтрШаблон("Спящий=%1; простой до сна, с=%2; сон до завершения, с=%3", Сеанс.Hibernate, Сеанс.PassiveSessionHibernateTime, Сеанс.HibernateSessionTerminateTime));
СтрокиОтчета.Добавить(СтрШаблон("Есть рабочий процесс=%1; есть клиентская лицензия=%2", Сеанс.Process <> Неопределено, Сеанс.License <> Неопределено));
Соединение = Сеанс.Connection;
Если Соединение = Неопределено Тогда
СтрокиОтчета.Добавить("Соединение сейчас не назначено; это допустимое состояние сеанса");
Иначе
СтрокиОтчета.Добавить(СтрШаблон("Соединение=%1; приложение=%2; установлено=%3", Соединение.ConnID, Соединение.Application, Соединение.ConnectedAt));
СтрокиОтчета.Добавить(СтрШаблон("Связь с выбранным сеансом=%1; связь с учебной базой=%2", Соединение.SessionID = Сеанс.SessionID, Соединение.InfoBase.Name = "guide-owned-session-lab"));
СтрокиОтчета.Добавить(СтрШаблон("Имя клиента соединения заполнено=%1; рабочий процесс назначен=%2; блокирующий ID=%3", Не ПустаяСтрока(Соединение.Host), Соединение.Process <> Неопределено, Соединение.blockedByLS));
КонецЕсли;
Возврат СтрСоединить(СтрокиОтчета, Символы.ПС);
КонецФункцииРазбор по шагам
Сначала функция выбирает конкретный кластер и собственную зарегистрированную базу; только затем вызывает GetInfoBaseSessions.
SessionID относится к базе. ConnID — номер соединения; он не заменяет SessionID. Сеанс и соединение — разные сущности.
Connection/Process/License могут быть Неопределено; перед чтением вложенных свойств это проверяется.
Оба тайм-аута сна заданы в секундах. Hibernate показывает текущее состояние, а не распоряжение завершить клиента.
Locale — язык интерфейса и сообщений, не обещание регионального формата числа. Даты показываются как получены; часовой пояс не угадывается.
Как проверить результат
При НомерСеанса=0 видны только номера и AppID собственной базы; для выбранного ID показан паспорт.
Если соединение назначено, сравнения связи с сеансом и собственной базой ожидаются Истина. При конкурентном изменении состояния обновите снимок.
Имя пользователя, адрес клиента, описание базы не публикуются; выводится лишь признак заполненности.
Ожидаемый результат
Новичок видит реальный сеанс и различает его необязательные связи и настройки сна.
На что обратить внимание
Не считать спящий сеанс ошибочным и не завершать его ради учебного отчёта.
Описание соединения — отдельный интерфейс с восемью свойствами, не интерфейс Соединение с другим набором полей.
COM чтения не составляют транзакционный снимок; значения могли измениться между обращениями.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.