Имя: Пароль:
1C
1С v8
Изменить размер картинки.
,
0 Deni7
 
25.07.11
14:43
Можно ли программо изменить размер картинки в 1С (8-ка)? Например есть картинка 1000х1000 в JPG, требуется сделать 200х200.
1 DrMabuzo
 
25.07.11
14:45
разве что внешними компонентами
2 le_
 
25.07.11
14:54
Можно с пом. программ обработки изображений, которые поддерживают командную строку.
3 steep1
 
25.07.11
14:55
нельзя, 1С это программа для учета товаров а не картинок
4 Deni7
 
25.07.11
14:56
Внутренними средствами нельзя значить? А вот почему тогда формат поменять можно?
5 le_
 
25.07.11
14:59
(4) Потому. Формат можно, а размер нельзя.
6 smaharbA
 
25.07.11
14:59
можно
7 smaharbA
 
25.07.11
15:00
если картинка в виде файла будет
8 le_
 
25.07.11
15:01
(6) Как в (2)?
9 Deni7
 
25.07.11
15:04
(6)(7) А как? Файл с картинкй есть.
10 Fragster
 
гуру
25.07.11
15:06
11 smaharbA
 
25.07.11
15:26
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Перем Имя,Путь;
   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   Диалог.Заголовок = "Выберите файл";
   Диалог.ПолноеИмяФайла = "";
   Диалог.ПредварительныйПросмотр = Истина;
   Диалог.Фильтр = "Файлы картинок|*.jpg;*.bmp";
   Если Не Диалог.Выбрать() Тогда
       Возврат;
   КонецЕсли;
   ХТМЛ=Новый COMОбъект("htmlfile");
   ХТМЛ.Open("text/html");
   ХТМЛ.Write("<script language='vbscript'>
   |function [ЗагрузитьКартинку]([Файл]):set [ЗагрузитьКартинку]=LoadPicture([Файл]):end function
   |</script>");
   Это=ХТМЛ.documentElement.document.script;
   Картинка=Это.ЗагрузитьКартинку(Диалог.ПолноеИмяФайла);
   Сообщить(""+Картинка.Width+" Твипов");
   Шел=Новый COMОбъект("Shell.Application");
   Папка=Шел.NameSpace(Диалог.Каталог);
   Файл=СтрЗаменить(Диалог.ПолноеИмяФайла,"\","" "");
   Файл=Папка.ParseName(СтрПолучитьСтроку(Файл,СтрЧислоСтрок(Файл)));
   Для Сч=-4 По 100 Цикл
       Попытка
           Сообщить(Папка.GetDetailsOf(Файл,Сч));
       Исключение
       КонецПопытки;
   КонецЦикла;
   
КонецПроцедуры
12 IamAlexy
 
25.07.11
15:40
13 Deni7
 
25.07.11
15:41
(11) Что это? Тут по моему свойства выводяться. А как размер-то изменить?
14 le_
 
25.07.11
15:47
(13) Давно бы уж скачал консольную утилитку для изменения размера )
15 smaharbA
 
25.07.11
16:06
(13) подумалось, что нужны свойства (размеры)
а так - есть методы у WIA
16 Сергей Д
 
25.07.11
16:09
Внешняя компонента. Может все.
17 Deni7
 
25.07.11
16:16
(15) Что? Можно чуть яснее и чуть подробней?
18 DmitrO
 
25.07.11
16:19
WIA фильтр
19 DmitrO
 
25.07.11
16:22
Windows Image Acquisition Automation Layer
Набор COM-объектов, для получения и обработки графики.
MS-овская dll. Регистрируется как обычно. Бесплатная.
Все документировано.
Основная теорема систематики: Новые системы плодят новые проблемы.