Групповое изменение формата картинок с PNG на JPG

У клиента имеется УТ 10.3, ответственные лица сохраняли картинки номенклатуры в базу невзирая на формат. 10000 позиций выгружались на сайт. Картинки, сохраненные в PNG, могут иметь прозрачность. Значительную часть картинок с прозрачностью сайт отображал как изображения с чёрным фоном, что не удовлетворяло заказчика. Была поставлена задача пересохранить картинки с белым фоном в формате JPG.

Пришлось ознакомиться с сайтом, http://tc-image.3dn.ru/Help/Other/irfanviewcmdline.htm, откуда были взят ключ для изменения формата картинок.

По ссылке ниже была скачана и установлена программа irfanview https://www.irfanview.com/

С помощью быстро набросанного кода, картинки выгружались из справочника Хранилище дополнительной информации на диск. Затем Irfanview менял их формат. После чего картинки записывались обратно в базу.

Было замечено, что Irfanview не успевает записать на диск часть картинок в новом формате, до того как 1с попытается записать картинку в базу. Была применена задержка, для ожидания работы Irfanview из публикации: //infostart.ru/public/706204/

Замечено, что Irfanview разбирается в том, что файл картинки имеет неправильное расширение, даже если файл картинки имеет расширение PNG, а формат JPG просмотрщик открывает её и выдаёт об этом сообщение. То есть, нет необходимости контролировать, в каком формате было изначально сохранено в базе изображение. Если Irfanview конвертирует в JPG, то неважно, что файл картинки имеет неправильное расширение, итоговый файл JPG будет рабочим. По умолчанию Irfanview отображает прозрачность как чёрный цвет, соответственно и картинки JPG сохраняет с чёрным фоном, вместо прозрачности. Чтобы поменять цвет отображения прозрачности надо перейти в меню просмотрщика по пути Options > Properties/Settings > Viewing > Main window color

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

Насколько я заметил, изменение формата PNG в JPG значительно уменьшает размер картинки, что может влиять на объём базы. Видимого уменьшения качества изображения замечено не было.

Механизм мало тестировался для изменения других форматов картинок, возможно, есть нюансы. 

1. Создаём резервную копию базы.

2. Проверяем резервную копию базы.

3. Скачиваем обработку и Irfanview.

4. Меняем цвет отображения прозрачности в Irfanview (если нужно).

5. Заполняем поля обработки:

• "Путь к каталогу" - любой каталог, к которому есть доступ (лучше на быстром диске).
• "Расширение для сохранения" - если знаете в каком формате хранятся картинки в базе (по умолчанию можно оставить PNG)
• "Расширение итогового формата" - расширение формата, в который хотите конвертировать изображения.
• "Группа номенклатуры" - группа номенклатуры в базе, которая содержит картинки нуждающиеся в смене формата.
• "Задержка" - количество секунд, необходимых для сохранения файла на диск с новым расширением. 

6. Жмём Выполнить.

Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ВЫРАЗИТЬ(ХранилищеДополнительнойИнформации.Объект КАК Справочник.Номенклатура).Код КАК КодНоменклатуры,
		|	ВЫРАЗИТЬ(ХранилищеДополнительнойИнформации.Объект КАК Справочник.Номенклатура).Представление КАК ПредставлениеНоменклатуры,
		|	ХранилищеДополнительнойИнформации.Ссылка КАК Ссылка
		|ИЗ
		|	Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
		|ГДЕ
		|	ВЫБОР
		|			КОГДА &ПараметрГруппа
		|				ТОГДА ВЫРАЗИТЬ(ХранилищеДополнительнойИнформации.Объект КАК Справочник.Номенклатура).Родитель В ИЕРАРХИИ (&РодительГруппаНоменклатурыСклад)
		|			ИНАЧЕ (ВЫРАЗИТЬ(ХранилищеДополнительнойИнформации.Объект КАК Справочник.Номенклатура)) = &РодительГруппаНоменклатурыСклад
		|		КОНЕЦ
		|	И ХранилищеДополнительнойИнформации.ВидДанных = &ВидДанныхДополнительнойИнформации";
	
	Запрос.УстановитьПараметр("ПараметрГруппа",?(ГруппаНоменклатуры.ЭтоГруппа,Истина,Ложь));
	Запрос.УстановитьПараметр("РодительГруппаНоменклатурыСклад",ГруппаНоменклатуры);
	Запрос.УстановитьПараметр("ВидДанныхДополнительнойИнформации", Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение);

	
	РезультатЗапроса = Запрос.Выполнить();
	
	Выборка = РезультатЗапроса.Выбрать();
	Сообщить("Найдено "+ Выборка.Количество()+ "элементов.");
	СчетчикЭлементовСправочника = 0;
	Пока Выборка.Следующий() Цикл
		
	ОбъектХранилище = Выборка.Ссылка.ПолучитьОбъект();
	Картинка = Выборка.Ссылка.Хранилище.Получить();
	Сообщить("Будем перезаписывать: " +Выборка.ПредставлениеНоменклатуры+"/"+Выборка.КодНоменклатуры);	
	Попытка
		СтрокаПутиФайла =  ПутьККаталогу+"\ФайлПерезаписи."+РасширениеДляСохранения;
		Картинка.Записать(СтрокаПутиФайла);                                     
		Ирфин = Новый Файл("C:\Program Files\IrfanView\i_view64.exe");
		ЗапуститьПриложение("" + Ирфин.ПолноеИмя +" " + СтрокаПутиФайла+ " /convert="+Лев(СтрокаПутиФайла, СтрДлина(СтрокаПутиФайла)-3)+РасширениеИтоговогоФормата);
//Задержка, чтобы файл успел сохраниться на диск 	
    	ЗадержкаСекунд = Задержка;
		Сигнатура = Формат(ТекущаяДата(), "ДФ=yyyyMMddhhmmss");
		ПутьСкрипта = КаталогВременныхФайлов()+"SleepScript"+Сигнатура+".vbs";
		СкриптФайл = Новый ТекстовыйДокумент;
		СкриптФайл.ДобавитьСтроку("WScript.Sleep("+Формат(ЗадержкаСекунд*1000, "ЧГ=0")+")");
		СкриптФайл.Записать(ПутьСкрипта, КодировкаТекста.OEM);
		WSHShell = Новый COMОбъект("WScript.Shell");
		WSHShell.Run("wscript.exe """+ПутьСкрипта+"""", 0, 1);
		УдалитьФайлы(ПутьСкрипта);
//Задержка, чтобы файл успел сохраниться на диск 		
		ОбъектХранилище.Хранилище = Новый ХранилищеЗначения(Новый Картинка(Лев(СтрокаПутиФайла, СтрДлина(СтрокаПутиФайла)-3)+РасширениеИтоговогоФормата));
		ОбъектХранилище.Записать();

		УдалитьФайлы(СтрокаПутиФайла);
		УдалитьФайлы(Лев(СтрокаПутиФайла, СтрДлина(СтрокаПутиФайла)-3)+"jpg");

	Исключение
		Предупреждение(ОписаниеОшибки());
	КонецПопытки;
	СчетчикЭлементовСправочника = СчетчикЭлементовСправочника +1;

	КонецЦикла;
Сообщить ("Перезаписали "+СчетчикЭлементовСправочника+" изображений.")
КонецПроцедуры

Обработка только для УТ 10.3, проверена на релизе 10.3.8.9.

Вся новизна публикации только 2 строках:

Ирфин = Новый Файл("C:\Program Files\IrfanView\i_view64.exe");
		ЗапуститьПриложение("" + Ирфин.ПолноеИмя +" " + СтрокаПутиФайла+ " /convert="+Лев(СтрокаПутиФайла, СтрДлина(СтрокаПутиФайла)-3)+РасширениеИтоговогоФормата);

Обработка тестировалась на УТ 10.3.8.9 и УТ 10.3.64.3