1С Программирование | 1C Разработка и Предприятие 8.3. Уроки для начинающих и Профи. Курсы Программиста: Конфигурация, Код и Внедрение. IT Карьера, Фриланс и Обучение. ERP, ЗУП, Бухгалтерия.
@odin1c_rus
Скриншот сеанса средствами 1С
Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу.
Работает из клиента 1С на УФ (начиная с версии 8.3.17)
// Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу
// Работает начиная с версии 8.3.17.
//
// Параметры:
// ПолныйПуть - Строка - Полный путь к файлу
//
&НаКлиенте
Процедура СохранитьСкриншотСеанса(ПолныйПуть = "")
#Если НЕ ВебКлиент Тогда
ВременныйФайл = ПолучитьИмяВременногоФайла(".zip");
ОтчетОбОшибке = Новый ОтчетОбОшибке(ИнформацияОбОшибке());
ОтчетОбОшибке.Записать(ВременныйФайл, Ложь);
КаталогФайлов = КаталогВременныхФайлов() + СтрЗаменить(Новый УникальныйИдентификатор, "-", "");
ЧтениеАрхива = Новый ЧтениеZipФайла(ВременныйФайл);
ЧтениеАрхива.ИзвлечьВсе(КаталогФайлов, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
ПутьСкриншота = КаталогФайлов + "\screenshot.png";
КопироватьФайл(ПутьСкриншота, ПолныйПуть);
УдалитьФайлы(ВременныйФайл);
УдалитьФайлы(КаталогФайлов);
#КонецЕсли
КонецПроцедуры
✍️ @odin1C_rus