АдминистрированиеСеанс.ИмяТекущегоСервиса

Посмотреть память вызовов и работу сервисов кластера

Потребление памяти сеанса не равно RSS рабочего процесса. Время сервисов кластера имеет собственные счётчики и имя текущего сервиса.

Подготовка

1. Только отдельный учебный кластер 1С:Предприятия 8.5.1.1343 с уже настроенным ras совместимой версии. Не подключайтесь к рабочему серверу для обучения.

2. Создайте внешнюю обработку с управляемой формой. Добавьте реквизиты АдресRAS (Строка), ПортRAS (Число), ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера (Строка). Выведите поля на форму; у элементов ввода паролей в свойствах включите Режим пароля (PasswordMode).

3. АдресRAS относится к машине серверного выполнения кода. Пример для ras на этой же тестовой машине: 127.0.0.1 и порт 1545; подтвердите фактические адрес и порт у администратора.

4. Используйте законные учётные данные учебного агента и кластера. Оставлять имя и пароль пустыми можно только если соответствующие администраторы не зарегистрированы и среда допускает такую аутентификацию.

5. При первом запуске оставьте ИдентификаторКластера пустым: код выведет идентификаторы и имена кластеров. Скопируйте идентификатор нужного учебного кластера в поле и повторите.

6. Вставьте клиентскую процедуру и серверную функцию отдельно на уровне модуля формы. Код не запускает ras и не настраивает учётные записи.

7. Дополнительно добавьте на форму ИдентификаторУчебнойБазы и ИдентификаторУчебногоСеанса (Строка). Сначала оставьте их пустыми: после выбора учебного кластера получите пары UUID ИБ/сеанса. Выберите сеанс своей отдельной учебной базы, не рабочий.

8. Административные счётчики меняются во время чтения. Контроль состоит в сравнении с консолью того же учебного кластера, а не в требовании заранее известного числа пользователей, памяти или вызовов.

9. Создайте команду ПоказатьПамятьИСервисыСеанса, её кнопку и одноимённый клиентский обработчик из кода.

&НаКлиенте
Процедура ПоказатьПамятьИСервисыСеанса(Команда)
    Результат = ПоказатьПамятьИСервисыСеансаНаСервере(АдресRAS, ПортRAS, ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИдентификаторУчебнойБазы, ИдентификаторУчебногоСеанса);
    Сообщить(Результат);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПоказатьПамятьИСервисыСеансаНаСервере(АдресRAS, ПортRAS, ИмяАгента, ПарольАгента, ИдентификаторКластера, ИмяАдминистратораКластера, ПарольАдминистратораКластера, ИдентификаторУчебнойБазы, ИдентификаторУчебногоСеанса)
    Сервер = Новый АдминистрированиеСервера(АдресRAS, ПортRAS);
    Сервер.ВыполнитьАутентификацию(ПарольАгента, ИмяАгента);
    Кластеры = Сервер.ПолучитьКластеры();
    Если Не ЗначениеЗаполнено(ИдентификаторКластера) Тогда
        Строки = Новый Массив;
        Для Каждого Элемент Из Кластеры Цикл
            Строки.Добавить(Строка(Элемент.ИдентификаторКластера) + " — " + Элемент.Имя);
        КонецЦикла;
        Если Строки.Количество() = 0 Тогда
            Возврат "Кластеров нет";
        КонецЕсли;
        Возврат СтрСоединить(Строки, Символы.ПС);
    КонецЕсли;
    Кластер = Неопределено;
    Для Каждого Элемент Из Кластеры Цикл
        Если НРег(Строка(Элемент.ИдентификаторКластера)) = НРег(СокрЛП(ИдентификаторКластера)) Тогда
            Кластер = Элемент;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Если Кластер = Неопределено Тогда
        ВызватьИсключение "Указанный учебный кластер не найден";
    КонецЕсли;
    Кластер.ВыполнитьАутентификацию(ИмяАдминистратораКластера, ПарольАдминистратораКластера);
    Сеансы = Кластер.ПолучитьСеансы();
    Если Не ЗначениеЗаполнено(ИдентификаторУчебнойБазы) Или Не ЗначениеЗаполнено(ИдентификаторУчебногоСеанса) Тогда
        Список = Новый Массив;
        Для Каждого Кандидат Из Сеансы Цикл
            Список.Добавить(СтрШаблон("ИБ=%1; UUID сеанса=%2; номер=%3; приложение=%4",
                Кандидат.ИдентификаторИнформационнойБазы, Кандидат.ИдентификаторСеанса,
                Кандидат.НомерСеанса, Кандидат.ИмяПриложения));
        КонецЦикла;
        Возврат "Выберите UUID своей учебной ИБ и сеанса:" + Символы.ПС + СтрСоединить(Список, Символы.ПС);
    КонецЕсли;
    Сеанс = Неопределено;
    Для Каждого Кандидат Из Сеансы Цикл
        Если НРег(Строка(Кандидат.ИдентификаторИнформационнойБазы)) = НРег(СокрЛП(ИдентификаторУчебнойБазы))
            И НРег(Строка(Кандидат.ИдентификаторСеанса)) = НРег(СокрЛП(ИдентификаторУчебногоСеанса)) Тогда
            Сеанс = Кандидат;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Если Сеанс = Неопределено Тогда
        Возврат "Выбранный учебный сеанс не найден в этой ИБ; обновите список. Номер сеанса вместо UUID не подходит.";
    КонецЕсли;
    Строки = Новый Массив;
    Строки.Добавить("Память с начала, байт: " + Строка(Сеанс.ПотреблениеПамятиВсего));
    Строки.Добавить("Память за 5 минут, байт: " + Строка(Сеанс.ПотреблениеПамятиЗа5Мин));
    Строки.Добавить("Память текущего вызова, байт: " + Строка(Сеанс.ПотреблениеПамятиТекущее));
    Строки.Добавить("Сервисы с начала, мс: " + Строка(Сеанс.ДлительностьВызововСервисовВсего));
    Строки.Добавить("Сервисы за 5 минут, мс: " + Строка(Сеанс.ДлительностьВызововСервисовЗа5Мин));
    Строки.Добавить("Текущий сервис, мс: " + Строка(Сеанс.ДлительностьВызововСервисаТекущее));
    Если Сеанс.ИмяТекущегоСервиса = "" Тогда
        Строки.Добавить("Текущий сервис кластера не указан");
    Иначе
        Строки.Добавить("Имя текущего сервиса: " + Сеанс.ИмяТекущегоСервиса);
    КонецЕсли;
    Возврат СтрСоединить(Строки, Символы.ПС);
КонецФункции

Разбор по шагам

1. Аутентифицируемся в явно выбранном учебном кластере; сеанс выбираем одновременно по UUID ИБ и UUID сеанса.

2. Память выводим в байтах, длительности сервисов — в миллисекундах, не объединяем их в одну величину.

3. Если текущего сервиса нет, пустое имя объясняем текстом. Это не означает, что сеанс вообще не работает.

4. Не вычитаем ПотреблениеПамятиВсего из физической RAM сервера: показатель не даёт свободную память машины.

Как проверить результат

1. Показаны три показателя памяти и три длительности сервисов в соответствующих единицах.

2. При отсутствии сервиса пустое имя не вызывает обращения к неизвестному объекту.

Ожидаемый результат

Получены отдельные показатели памяти вызовов и сервисов кластера.

На что обратить внимание

1. Это снимок административной диагностики, не замер внутри прикладной транзакции и не команда удаления сеансов.

2. Эти данные не устанавливают утечку памяти одним снимком; для диагноза нужны последовательные наблюдения и профиль.

3. Не складывайте временные счётчики разных вложенных механизмов как независимые доли общего времени.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.