1С8 пример. Изменяем размер изображения или картинки.

C помощью установленной на компьютере программы ImageMagick, изменяем размер изображения или картинки. Формируем и выполняем bat-файл с командой типа: "c:\ImageMagick\convert.exe my.png -resize 64x64 64x64_my.png"

Функция СоздатьИзображенияРазмером(ИмяФайлаИзображения,Ширина_Pix,Высота_Pix)
	
	// пример командной строки: c:\convert file.png -resize 64x64 64x64_file.png
	
	batFileName	= ПолучитьИмяВременногоФайла("bat");
	
	geometry = СокрЛП(Строка(Ширина_Pix)) + "x" + СокрЛП(Строка(Высота_Pix));
	имяНовогоФайла = СтрЗаменить(ИмяФайлаИзображения,".png", "_" + geometry + ".png") ;
	
	batFileName = КаталогВременныхФайлов() + "convert_" + geometry + ".bat"; 	

	ImageMagick_HOME = "C:\Program Files\ImageMagick-6.8.8-Q16\";

	batFile = Новый ЗаписьТекста(batFileName,КодировкаТекста.OEM);
	ТекстКоманды = "echo off " + Символы.ПС
		+ ":: " + batFileName  + Символы.ПС 
		+ """" + ImageMagick_HOME + "convert.exe"""
		+ " """ + ИмяФайлаИзображения + """ " 
		+ "-resize " +  geometry + " " 
		+ " """ + имяНовогоФайла + """ "		
		;
	tolog(ТекстКоманды);	
	
	batFile.ЗаписатьСтроку(ТекстКоманды);
	batFile.Закрыть();
   	Shell = Новый COMОбъект("WScript.Shell");

	// запуск бат-файла со спрятанным окном (0) и с ожиданием завершения (Истина)
	Shell.Run(batFileName, 0, Истина); 
	
	Возврат имяНовогоФайла;
КонецФункции




Рекламный блок:

Предлагаем решение Ваших задач 1С.

Внедрение 1С:

Доработка и сопровождение 1С:

Ориентировочная стоимость работ программиста 1С : 500 р. за 1 час работы.

Пишите: j008@j008.ru

Звоните: 8 916 710 83 51 Ольга