|
Размер картинки узнать, способы попроще подскажите.... |
☑ |
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 спрашивал )
|
|