Просмотр архива видео Trassir из 1С

30.03.23

Интеграция - WEB-интеграция

В Trassir есть SDK, которое позволяет получать и просматривать архив видео. Рассмотрим, как это можно сделать.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Просмотр архива видео Trassir из 1С:
.epf 8,29Kb
7
7 Скачать (1 SM) Купить за 1 850 руб.

Итак, создаем обработку и в ней добавляем реквизиты формы:

 

 

Реквизиты Адрес, Имя пользователя и пароль служат для подключения к Трассиру. Эту информацию можно получить у сисадмина или в настройках сервера самого Trassir. Обращаю внимание, что для просмотра архива видео подключение должно происходить именно по имени пользователя и паролю, а не просто по паролю SDK (данная особенность описана в мануале SDK Trassir).

Имя канала, идентификатор канала, сессия и токен служат для хранения полученных данных по SDK.

Путь к браузеру - путь к браузеру (в моем случае яндекс) для запуска архива видео. Сразу хочу сказать, что я пытался использовать поле HTML документа в 1С, переход по навигационной ссылке (из БСП) или работу с IE - как говорится, "не взлетело".

Начало и окончание просмотра - для определения интервала архива видео, который хотим получить.

Кроме того, в модуле формы определим 2 переменные для кеширования соединения HTML:

&НаКлиенте
Перем Соединение;
&НаКлиенте
Перем СоединениеТокен;

и сразу определим функции, которые нам вернут требуемое соединение:

&НаКлиенте
Функция ПолучитьСоединение()

	Если Соединение <> Неопределено Тогда
	
		Возврат Соединение;
	
	КонецЕсли;
	Если ПустаяСтрока(Адрес) Тогда
	
		ВызватьИсключение("Не указан адрес");
	
	КонецЕсли;
	Соединение = Новый HTTPСоединение(Адрес, 8080,,Пароль,,,Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Неопределено));
	Возврат Соединение;

КонецФункции // ПолучитьСоединение()

&НаКлиенте
Функция ПолучитьСоединениеТокен()

	Если СоединениеТокен <> Неопределено Тогда
	
		Возврат СоединениеТокен;
	
	КонецЕсли;
	
	Если ПустаяСтрока(Адрес) Тогда
	
		ВызватьИсключение("Не указан адрес");
	
	КонецЕсли;
	СоединениеТокен = Новый HTTPСоединение(Адрес, 555);
	Возврат СоединениеТокен;

КонецФункции // ПолучитьСоединениеТокен()

Обратите внимание, что соединение для работы с SDK у нас защищенное, а для просмотра архива видео - нет.

Порты в соединениях (8080 и 555) указаны в настройках сервера Trassir. Если их никто не менял, то по умолчанию они такие.

Так как все результаты запросов Trassir возвращает в виде Json, добавим служебную функцию для чтения:

&НаКлиенте
Функция ПрочитатьЗапросВСтруктуру(СтрокаЗапроса) Экспорт

	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(СтрокаЗапроса);
	Возврат ПрочитатьJSON(Чтение);

КонецФункции // ПрочитатьЗапросВСтруктуру()

Разместим наши реквизиты на форме. Получается примерно такое:

 

 

Пропишем для имени канала процедуру начала выбора с кодом (сразу говорю, использую асинхронные вызовы, но переписать на обработчик ожидания, думаю, несложно):

&НаКлиенте
Асинх Процедура ИмяКаналаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	Запрос = Новый HTTPЗапрос("/channels?sid=" + ПолучитьСессию());
	Ответ = ПолучитьСоединение().Записать(Запрос);
	СтруктураОтвета = ПрочитатьЗапросВСтруктуру(Ответ.ПолучитьТелоКакСтроку());
	Если Не СтруктураОтвета.Свойство("channels") Тогда
	
		Возврат;
	
	КонецЕсли;
	СписокВыбора = Новый СписокЗначений;
	Для каждого Позиция Из СтруктураОтвета.channels Цикл
	
		СписокВыбора.Добавить(Позиция.guid, Позиция.name);
	
	КонецЦикла;
	Обещание = СписокВыбора.ВыбратьЭлементАсинх("Выберите камеру");
	Результат = Ждать Обещание;
	Если Результат <> Неопределено Тогда
	
		ИмяКанала = Результат.Представление;
		ИдентификаторКанала = Результат.Значение;
	
	КонецЕсли;
КонецПроцедуры

Данная процедура получает список каналов, которые есть в Trassir и исходя из выбранного канала получаем идентификатор канала (по сути именно он нам и нужен для получения архива видео).

Функцию Получить соединение мы уже рассматривали, здесь видим еще одну функцию ПолучитьСессию(). Она очень простая:

&НаКлиенте
Функция ПолучитьСессию()

	Если Не ПустаяСтрока(Сессия) Тогда
	
		Возврат Сессия;
	
	КонецЕсли;
	
	Если ПустаяСтрока(ИмяПользователя) ИЛИ ПустаяСтрока(Пароль) Тогда
	
		ВызватьИсключение("Не указано имя пользователя и/или пароль");
	
	КонецЕсли;
	
	Запрос = Новый HTTPЗапрос("login?username=" + ИмяПользователя + "&password=" + Пароль);
	Ответ = ПолучитьСоединение().Записать(Запрос);
	СтруктураОтвета = ПрочитатьЗапросВСтруктуру(Ответ.ПолучитьТелоКакСтроку());
	Если СтруктураОтвета.success <> 1 Тогда
	
		Возврат Неопределено;
	
	КонецЕсли;
	Сессия = СтруктураОтвета.sid; 
	ПодключитьОбработчикОбновитьСессию();
	Возврат Сессия;
КонецФункции // ПолучитьСессию()

Здесь процедура ПодключитьОбработчикОбновитьСессию запускает периодический пинг для поддержания сессии (в документации описано, что сессия живет 15 минут и её необходимо периодически "дёргать"):

&НаКлиенте
Процедура ОбновитьСессию()

	Если ПустаяСтрока(Сессия) Тогда
	
		ОтключитьОбработчикОжидания("ОбновитьСессию");
		Возврат;
	
	КонецЕсли;
	Запрос = Новый HTTPЗапрос("objects/?sid=" + Сессия);
	Ответ = ПолучитьСоединение().Записать(Запрос);
КонецПроцедуры // ОбновитьСессию()

&НаКлиенте
Процедура ПодключитьОбработчикОбновитьСессию()

	ОтключитьОбработчикОжидания("ОбновитьСессию");
	ПодключитьОбработчикОжидания("ОбновитьСессию", 840);//Раз в 15 минут надо дергать сессию

КонецПроцедуры // ПодключитьОбработчикОбновитьСессию()

И собственно команда для получения архива видео:

&НаКлиенте
Процедура ПросмотрВидео(Команда)
	Если Не ПроверитьЗаполнение() Тогда
	
		Возврат;
	
	КонецЕсли;
	
	Запрос = Новый HTTPЗапрос("get_video?channel=" + ИдентификаторКанала + "&container=mjpeg&stream=archive_main&sid=" + ПолучитьСессию());
	Ответ = ПолучитьСоединение().Записать(Запрос);
	СтруктураОтвета = ПрочитатьЗапросВСтруктуру(Ответ.ПолучитьТелоКакСтроку());
	Если СтруктураОтвета.success <> 1 Тогда
	
		Возврат;
	
	КонецЕсли;
	Токен = СтруктураОтвета.token;
	ПодключитьОбработчикОбновитьТокен();
	
	АдресДляБраузера = "http://" + Адрес + ":555/" + Токен;
	ЗапуститьПриложение(ПутьКБраузеру + " " + АдресДляБраузера,, ЛОЖЬ);
	ТекДата = ТекущаяДата();
	Пока ТекДата + 6 > ТекущаяДата() Цикл
	
		
	
	КонецЦикла;
	
	Запрос = Новый HTTPЗапрос("archive_command?command=play&start=" + ПолучитьДатуВремяТрассир(НачалоПросмотра) + "&stop=" + ПолучитьДатуВремяТрассир(ОкончаниеПросмотра) + 
		"&speed=1&sid=" + ПолучитьСессию() + "&token=" + Токен);
	ПолучитьСоединение().Записать(Запрос);
	
КонецПроцедуры

ПодключитьОбработчикОбновитьТокен действует аналогично и по той же причине, что и ПодключитьОбработчикОбновитьСессию: срок жизни токена 15 секунд и его необходимо "дёргать", чтобы он не умер:

&НаКлиенте
Процедура ПодключитьОбработчикОбновитьТокен()

	ОтключитьОбработчикОжидания("ОбновитьТокен");
	ПодключитьОбработчикОжидания("ОбновитьТокен", 13);

КонецПроцедуры // ПодключитьОбработкиОбновитьТокен()

&НаКлиенте
Процедура ОбновитьТокен()

	Если ПустаяСтрока(Токен) Тогда
	
		ОтключитьОбработчикОжидания("ОбновитьТокен");
		Возврат;
	
	КонецЕсли;
	
	Запрос = Новый HTTPЗапрос(Токен + "/?ping");
	
	Ответ = ПолучитьСоединениеТокен().Записать(Запрос);

КонецПроцедуры // ОбновитьТокен()

Теперь собственно, зачем такие сложности с запуском в браузере просмотра архива. Дело в том, что именно в браузере будет просмотр архива видео. Управление архивом (переход на позицию, например) тоже будет отображаться в браузере. Поэтому, чтобы в браузере началось воспроизведение и сделана пауза в 6 секунд (добыта опытным путём) после запуска.

В приложенной обработке то, что было разобрано в статье.

Обработка тестировалась на платформе 8.3.22.1750, но должна работать на версиях, где есть асинхронные вызовы (асинх)

Если будут вопросы, задавайте в комментариях, постараюсь ответить.

P.S. Больно не пинайте - первая статья.

Trassir архив видео

См. также

Оптовая торговля Розничная торговля WEB-интеграция 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Платные (руб)

Онлайн-заказ - это решение для автоматизации процесса оформления заказов на сайте в торговых организациях. Продукт обеспечивает легкое взаимодействие между компанией и клиентами через веб-интерфейс, интегрированный с 1С:Предприятие. Система позволяет снизить операционные расходы, повысить лояльность клиентов и оптимизировать работу отдела продаж.

57600 руб.

26.11.2024    1546    1    1    

4

Сайты и интернет-магазины WEB-интеграция Системный администратор Программист Пользователь Платформа 1С v8.3 1C:Бухгалтерия 1С:Управление торговлей 11 Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Интеграционный модуль обмена между конфигурацией Альфа Авто 5 и Альфа Авто 6 и порталом AUTOCRM. Данный модуль универсален. Позволяет работать с несколькими обменами AUTOCRM разных брендов в одной информационной базе в ручном и автоматическом режиме.

36000 руб.

03.08.2020    18567    20    22    

18

Сайты и интернет-магазины Интеграция WEB-интеграция Платформа 1С v8.3 1C:Бухгалтерия Управленческий учет Платные (руб)

Интеграция 1С и Битрикс 24. Разработка имеет двухстороннюю синхронизацию 1С и Bitrix24 задачами. Решение позволяет создавать пользователя в 1С из Битрикс24 и наоборот. Данная разработка технически подходит под все основные конфигурации линейки продуктов 1С:Предприятие 8.3 (платформа начиная с 8.3.23): 1С:Управление торговлей, 1С:Управление Нашей фирмой 3, 1С:Комплексная автоматизация 2, Объединенное решение: Модуль 1С:CRM 3 (3.0.21.3) +1С:ERP Управление предприятием 2. При приобретении предоставляется 1 месяц бесплатных обновлений разработки. Доступна демо-версия продукта с подключением Вашего Битрикс24

7200 руб.

04.05.2021    20711    13    19    

18

WEB-интеграция Программист Бизнес-аналитик Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Оптовая торговля, дистрибуция, логистика ИТ-компания Платные (руб)

Модуль "Экспортер" — это расширение для 1С, предназначенное для автоматизации процессов выгрузки данных. Оно позволяет эффективно извлекать, преобразовывать и передавать данные из систем 1С в интеграционную платформу Spot2D. Подсистема упрощает настройку, снижает количество ручных операций и обеспечивает удобный контроль данных.

14400 руб.

20.12.2024    476    2    0    

5

Обмен с ГосИС WEB-интеграция Бухгалтер Пользователь Платформа 1С v8.3 Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Обработка является альтернативой механизму, разработанному фирмой 1С и заполняющему реквизиты контрагента по ИНН или наименованию. Не требуется действующей подписки ИТС. Вызывается как внешняя дополнительная обработка, т.е. используется, непосредственно, из карточки контрагента. Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС (egrul.nalog.ru) для БП 2.0, БП 3.0, БГУ 1.0, БГУ 2.0, УТ 10.3, УТ 11.x, КА 1.1, КА 2.x, УПП 1.x, ERP 2.x, УНФ 1.5, УНФ 1.6, УНФ 3.0, ДО 2.1

2400 руб.

28.04.2016    92190    184    217    

337
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. sivatorov 25.06.24 13:23 Сейчас в теме
Здравствуйте. Не пробовали открывать поток не в браузере, а например в VLC rtsp поток?
Мало ли еще тестировали экспорт архива и тд?
Оставьте свое сообщение