Сеанс.callsLast5Min

Посчитать средний обмен на вызов и не разделить на ноль

Разделяем байты клиента и байты СУБД, показатели с начала сеанса и за последние пять минут.

Подготовка

1. Только собственный изолированный тестовый кластер на Windows. Зарегистрированная в нём база называется guide-owned-session-lab, имя конфигурации этой базы УчебнаяБазаСеансов. Запустите в ней отдельный учебный клиент.

2. Создайте собственную обработку с управляемой формой. Вставьте весь код одного урока в модуль этой формы и свяжите команду Прочитать с обработчиком Прочитать. Серверная часть должна исполняться на Windows. Уроки заменяют весь модуль, а не добавляют шесть одинаковых функций.

3. V85.COMConnector должен быть уже зарегистрирован администратором на Windows-сервере 1С с подходящей разрядностью. Пример ничего не устанавливает и не регистрирует. Если COM недоступен, остановитесь и обратитесь к администратору тестового стенда.

4. В форме собственной обработки создайте строковые реквизиты КлючКластера, ИмяАгента, ПарольАгента, ИмяАдминистратора, ПарольАдминистратора и числовой НомерСеанса. Для полей паролей включите режим пароля, не сохраняйте значения в настройках формы.

5. КлючКластера вручную возьмите из собственной консоли администрирования: имя кластера|имя сервера|основной порт, например Учебный|localhost|1541. Это порт кластера, не порт агента 1540 и не порт RAS 1545.

6. Серверный код связывается только с агентом 127.0.0.1:1540 на том Windows-сервере, где исполняется модуль. Вводятся существующие учебные учётные данные агента и кластера; права и пароли не изменяются.

7. Клиентский обработчик приведён полностью: он очищает поля паролей до вызова сервера и не печатает аргументы или технический текст ошибок. Это не гарантирует безопасное стирание строк из памяти; учебные учётные данные не должны сохраняться в настройках формы.

8. Сначала НомерСеанса = 0: получите только ID и AppID сеансов этой учебной базы. Затем введите один ID из этого списка. ID уникален внутри информационной базы, а не во всём кластере.

9. Ниже дан законченный серверный пример получения настоящего объекта Сеанс, а не функция, требующая неизвестный ИсходныйОбъект. 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" Тогда
        ВызватьИсключение "Сеанс не принадлежит выбранной учебной базе";
    КонецЕсли;
    БайтыВсего = Сеанс.bytesAll;
    БайтыОкна = Сеанс.bytesLast5Min;
    ВызовыВсего = Сеанс.callsAll;
    ВызовыОкна = Сеанс.callsLast5Min;
    СтрокиОтчета.Добавить(СтрШаблон("Клиент ↔ сервер, байт: всего=%1; последние 5 минут=%2", БайтыВсего, БайтыОкна));
    СтрокиОтчета.Добавить(СтрШаблон("Сервер ↔ СУБД, байт: всего=%1; последние 5 минут=%2", Сеанс.dbmsBytesAll, Сеанс.dbmsBytesLast5Min));
    СтрокиОтчета.Добавить(СтрШаблон("Серверные вызовы: всего=%1; последние 5 минут=%2", ВызовыВсего, ВызовыОкна));
    Если ВызовыВсего > 0 Тогда
        СтрокиОтчета.Добавить(СтрШаблон("Среднее байт на вызов с начала=%1", БайтыВсего / ВызовыВсего));
    Иначе
        СтрокиОтчета.Добавить("Нет вызовов с начала; среднее не вычисляется");
    КонецЕсли;
    Если ВызовыОкна > 0 Тогда
        СтрокиОтчета.Добавить(СтрШаблон("Среднее байт на вызов в окне=%1", БайтыОкна / ВызовыОкна));
    Иначе
        СтрокиОтчета.Добавить("В окне нет вызовов; среднее не вычисляется");
    КонецЕсли;
    Возврат СтрСоединить(СтрокиОтчета, Символы.ПС);
КонецФункции

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

1. bytes относится к связи клиент-сервер, dbmsBytes к связи сервера с СУБД. Оба показателя учитывают отправку и получение.

2. All считается с начала данного сеанса; Last5Min — за последние пять минут, а не разность двух последних вызовов отчёта.

3. Оба деления защищены проверкой положительного числа вызовов. Пустое окно не выдаётся за среднее ноль.

4. Среднее байт/вызов — грубый диагностический показатель, не размер каждого пакета или прикладного документа.

5. Для недавно открытого сеанса окно может быть неполным; код не делит его байты на 300 и не обещает точную скорость канала.

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

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

2. Вызовите собственную простую команду на учебном клиенте, снова прочитайте отчёт; значения зависят от фактической нагрузки, фиксированный прирост не обещан.

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

На настоящем учебном сеансе вычисляются два защищённых средних с правильными единицами.

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

1. Не складывать клиентский и СУБД трафик и не называть результат размером переданного пользователем файла.

2. Последовательные чтения могут захватить разные моменты; это не атомарный счётчик одного обмена.

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