|
Преобразовать из BMP в JPG
| ☑ |
0
programmer1c_
63
12.09.13
✎
15:11
|
Стоит задача - преобразовать картинки в базе из BMP в JPG и поместить обратно. Это можно сделать средствами 1С - есть оператор "Преобразовать", но он срабатывает не для всех картинок - для некоторых пишет ошибку преобразования. Картинки, которые преобразуются, хранятся в BMP - просто какие-то преобразовались, а какие-то нет. Подскажите - какими средствами можно еще попробовать преобразовать?
|
|
1
H A D G E H O G s
12.09.13
✎
15:12
|
Скора будет Нетленка 3.0, там запреобразовываетесь вволю. Ждите.
|
|
2
Скай
12.09.13
✎
15:12
|
Найти утилиту с командным интерфейсом
|
|
3
Asmody
12.09.13
✎
15:16
|
(0) imagemagick — convert
|
|
4
mzelensky
12.09.13
✎
15:17
|
(0) накатай библиотеку на делфях. Готовые Примеры в инете есть.
|
|
5
programmer1c_
63
12.09.13
✎
15:29
|
(3) imagemagick - ее устанавливать надо?
|
|
6
h_miha
12.09.13
✎
15:47
|
(5) нет, на их сайте есть даже дистрибутив без установки
сам недавно с этой прогой работал из 1с
|
|
7
programmer1c_
63
12.09.13
✎
15:51
|
может кому пригодится ... Скинули вот такое решение
Если НРег(ДвоичныеДанные.Формат()) = "tiff" Тогда //Новый
КаталогТ = "1C_pictures_"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс") + "\";
Ирфан = ПолучитьМакет("IrfanView");
СоздатьКаталог(Каталог + КаталогТ);
Ирфан.Записать(Каталог + КаталогТ + "i_view32.exe");
ТекстШаблона = """" + Каталог + КаталогТ + "i_view32.exe"" """ + Путь + """ /extract=(""" + Каталог + КаталогТ + """,jpg) /cmdexit";
Текст = Новый ТекстовыйДокумент;
Текст.ДобавитьСтроку(ТекстШаблона);
Текст.Записать(Каталог + КаталогТ + "cmd.bat", "cp866");
ЗапуститьПриложение(Каталог + КаталогТ + "cmd.bat",, Истина);
|
|