Имя: Пароль:
1C
Админ
Размер картинки узнать, способы попроще подскажите....
0 DeoxyS
 
08.06.10
11:01
Всем привет. windows 7, как вытащить размер картинки? пробовал способами, которые нашел тут поиском, на хрюшке все отрабатывает, на 7 нет... может кто посоветует что?
1 IceSer1
 
08.06.10
11:02
1c тут причем?
2 Fragster
 
гуру
08.06.10
11:03
imagemagick все может
3 lxs
 
08.06.10
11:04
(0) Тема имеет отношение к 1С?
4 IceSer1
 
08.06.10
11:05
ТЗ - непонятное (0) ты где?
5 DeoxyS
 
08.06.10
11:28
(1-4) так узнать надо в 1с мне ширину и высоту картинки, imagemagick  им и пользуюсь, но не знаю как добиться от него, чтобы он мне возвращал куда нить эти данные... Задача такая: есть картинка, ее привязываем к товару. В момент привязки товара с помощью imagemagick  накладываем водяной знак, но чтобы водяной знак наложился красиво и "правильно", нужно привести водяной знак к тому же размеру , что и картинка... Вот мне и нужны эти размеры картинки. Где то так...
6 Fragster
 
гуру
08.06.10
11:29
(5) кури wscript.shell - можно весь вывод процесса получить
7 DeoxyS
 
08.06.10
11:29
(6) его и кручу, хрюша отрабатывает, 7 возврашает ""... (
8 smaharbA
 
08.06.10
11:52
//*******************************************
Процедура Сформировать()
   Перем Путь,Имя;
   Если ФС.ВыбратьФайлКартинки(0,Имя,Путь,"","Ж0пеги плять Рома убери матофильтр (*.jpg)|*.jpg","jpg")=0 Тогда
       Возврат;
   КонецЕсли;
   Шел=СоздатьОбъект("Shell.Application");
   Папка=Шел.NameSpace(Путь);
   Файл=Папка.ParseName(Имя);
   Для Сч=-1 По 47 Цикл
       Сообщить(""+Сч+". "+Папка.GetDetailsOf(Папка.Items(),Сч)+": "+Папка.GetDetailsOf(Файл,Сч));
   КонецЦикла;
   
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="vbscript";
   Картинка=Скрипт.Eval("LoadPicture("""+Путь+Имя+""")");
   Сообщить(""+Картинка.Width+" x "+Картинка.Height);
КонецПроцедуры


последнее в твипах
9 DeoxyS
 
08.06.10
18:31
(8) спасибо, заработало. Зря тему на v7 поменяли, я по 8 спрашивал )