Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу.
Работает из клиента 1С на УФ (начиная с версии 8.3.17)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
// Процедура сохраняет скриншот текущего сеанса пользователя по переданному адресу // Работает начиная с версии 8.3.17. // // Параметры: // ПолныйПуть - Строка - Полный путь к файлу // &НаКлиенте Процедура СохранитьСкриншотСеанса(ПолныйПуть = "") #Если НЕ ВебКлиент Тогда ВременныйФайл = ПолучитьИмяВременногоФайла(".zip"); ОтчетОбОшибке = Новый ОтчетОбОшибке(ИнформацияОбОшибке()); ОтчетОбОшибке.Записать(ВременныйФайл, Ложь); КаталогФайлов = КаталогВременныхФайлов() + СтрЗаменить(Новый УникальныйИдентификатор, "-", ""); ЧтениеАрхива = Новый ЧтениеZipФайла(ВременныйФайл); ЧтениеАрхива.ИзвлечьВсе(КаталогФайлов, РежимВосстановленияПутейФайловZIP.НеВосстанавливать); ПутьСкриншота = КаталогФайлов + "\screenshot.png"; КопироватьФайл(ПутьСкриншота, ПолныйПуть); УдалитьФайлы(ВременныйФайл); УдалитьФайлы(КаталогФайлов); #КонецЕсли КонецПроцедуры |
Источник: https://t.me/JuniorOneS