#0
by IVIuXa
Собственно XP - есть способ стандартными средствами сконвертировать bmp в jpeg с заданным разрешением посредством командной строки ?
#14
by IVIuXa
+ я просто скачал nircmd - программа надстройка там можно конвертировать, значит как то можно....
#19
by IVIuXa
то что ослик поддерживает свои какие то форматы-трояны, это не делает его лушим браузером
#20
by syktyk
Ты ее по ходу сам не читал. "XNView Full - один из лучших просмотрщиков / конверторов графических файлов. XnView может производить такие операция над графикой, как обрезка, изменение размера, гаммы-контраста-яркости-баланса, печать, допускает применение к изображению разнообразных фильтров и проделывать над файлами многое другое, причем все эти операции и фильтры (в любом сочетании) можно применять сразу к большому количеству файлов, а преднастройки - сохранять в качестве сценариев и использовать позже. Программа обладает мощными средствами для работы с файлами - предпросмотр, thumbnails (уменьшенные копии), поддержка файлов с описаниями, автоматическое создание списка файлов, копирование/вставка файлов через буфер обмена, просмотр не-графических файлов, поддержка Drag & Drop и интеграция с операционной системой. Перечислять форматы графики, которые можно просмотреть с помощью этой программы, здесь просто-напросто невозможно "по техническим" причинам - места не хватит, ведь их четыре сотни. Кроме своей основных функций - качественного показа графики и ее конвертирования из одного формата в другой, программа обладает и множеством дополнительных - работа со сканером, создание html-страниц с графикой, подсчет использованных в картинке цветов и даже такой вроде бы мелкой, но полезной опцией, как установка картинки в качестве обоев на Рабочий стол. Наконец, XNViev позволяет захватывать изображения (весь экран, активное окно или пользовательскую область), а также имеет отдельную утилиту для использования практически всех возможностей XNViev при работе из командной строки."
#22
by IVIuXa
не тупи : "стандартными средствами сконвертировать bmp в jpeg с заданным разрешением посредством командной строки" да я тебе сам всяких XNViewсов накидаю
#23
by syktyk
Не хами. А вызов пакетной обработки из командной уже перестал быть стандартным средством? Может лучше научиться правильно задавать вопросы? Правильно заданный вопрос - половина ответа.
#24
by IVIuXa
отвечай по теме, если не прочитал - не прикидывайся если делаешь заявления представляй доказательства, я тоже столько могу написать - например земля кватратная и т.д.
#26
by IVIuXa
что это ? БМП = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"; ЖЕПЕГ = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"; =)
#31
by IVIuXa
разобрался wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"; wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}";
#32
by IVIuXa
Нашел вот что на java Option Explicit Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}" Dim objImageFile, objImageFile2 Dim objImageProcess Dim objFSO Dim strPath2Wallpaper Dim strPath2MyWallpaper ' Исходный графический файл: strPath2Wallpaper = "C:WINDOWSWebWallpaperОсень.jpg" ' Графический файл с результатом работы: strPath2MyWallpaper = "C:WINDOWSWebWallpaperMyWallpaper.bmp" Set objImageFile = WScript.CreateObject("WIA.ImageFile") Set objImageProcess = WScript.CreateObject("WIA.ImageProcess") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Not objFSO.FileExists(strPath2Wallpaper) Then WScript.Quit 1 End If With objImageFile ' Загружаем файл в компонент: .LoadFile strPath2Wallpaper ' Выводим некоторую информацию об исходном изображении WScript.Echo "============================================================" WScript.Echo "Image [" & strPath2Wallpaper & "]" WScript.Echo "------------------------------------------------------------" WScript.Echo "Width :", .Width WScript.Echo "Height :", .Height WScript.Echo "Depth :", .PixelDepth WScript.Echo "Horizontal resolution :", .HorizontalResolution WScript.Echo "Vertical resolution :", .VerticalResolution WScript.Echo "Frame(s) count :", .FrameCount If .IsAnimated Then WScript.Echo "Image is animated" End If If .Properties.Exists("40091") Then WScript.Echo "Title :", .Properties("40091").Value.String End If WScript.Echo "------------------------------------------------------------" End With ' Обрабатываем… With objImageProcess ' --------------------------------------------------------------------------- ' Масштабируем: ' --------------------------------------------------------------------------- .Filters.Add .FilterInfos("Scale").FilterID With .Filters.Item.Properties ' Ширина - 1024 пикселей .Item("MaximumWidth") = 1024 ' Высота - 768 пикселей .Item("MaximumHeight") = 768 End With ' --------------------------------------------------------------------------- ' --------------------------------------------------------------------------- ' Вращаем: ' --------------------------------------------------------------------------- .Filters.Add .FilterInfos("RotateFlip").FilterID ' Отразим зеркально по горизонтали .Filters.Item.Properties.Item("FlipHorizontal") = True ' Отразим зеркально по вертикали .Filters.Item.Properties.Item("FlipVertical") = True ' Повернём на 270 градусов (по часовой стрелке) .Filters.Item.Properties.Item("RotationAngle") = 270 ' --------------------------------------------------------------------------- ' --------------------------------------------------------------------------- ' Обрезаем: ' --------------------------------------------------------------------------- .Filters.Add .FilterInfos("Crop").FilterID With .Filters.Properties ' Подрежем сверху-снизу .Item("Top") = objImageFile.Width 4 .Item("Bottom") = objImageFile.Width 4 ' Подрежем справа-слева '.Item("Left") = objImageFile.Height 10 '.Item("Right") = objImageFile.Height 10 End With ' --------------------------------------------------------------------------- ' --------------------------------------------------------------------------- ' Наклеим другую картинку: ' --------------------------------------------------------------------------- .Filters.Add .FilterInfos("Stamp").FilterID ' Загружаем картинку в новый компонент: Set objImageFile2 = WScript.CreateObject("WIA.ImageFile") objImageFile2.LoadFile "C:WINDOWSWebexclam.gif" With .Filters.Properties ' Наклеиваем картинку… .Item("ImageFile") = objImageFile2 ' …в указанном месте .Item("Top") = 20 .Item("Left") = 20 End With Set objImageFile2 = Nothing ' --------------------------------------------------------------------------- ' --------------------------------------------------------------------------- ' Конвертируем: ' --------------------------------------------------------------------------- .Filters.Add .FilterInfos("Convert").FilterID ' В bitmap формат .Filters.Item.Properties.Item("FormatID").Value = wiaFormatBMP ' --------------------------------------------------------------------------- ' Применяем заданные выше фильтры: Set objImageFile = .Apply(objImageFile) End With ' Перезаписывать существующий файл компонент не умеет, ' потому предварительно проверяем наличие файла… If objFSO.FileExists(strPath2MyWallpaper) Then ' …и, если найден, — удаляем его objFSO.DeleteFile strPath2MyWallpaper End If ' Сохраняем файл: objImageFile.SaveFile "C:WINDOWSWebWallpaperMyWallpaper.bmp" Set objFSO = Nothing Set objImageProcess = Nothing Set objImageFile = Nothing WScript.Quit 0
#36
by smaharbA
а сколько сменено не у МС ? апупеть скока, то усб перенесут, то усблп деприкатнут см внимательно
#37
by Fragster
хз, сколько себя помню convert file.xxx file.yyy всегда работало, только список поддерживаемых форматов расширялся всякими там 16битными многостраничными тифами со слоями и дежавю с пэдээфами...
Тэги: Админ
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
В этой группе 1С
- Как программно убрать панель инструментов?
- v8: Консоль отчетов для 8.2 1С:Предприятие 8.2 (8.2.11.235)
- БП +УАТ. Схема лицензирования
- 1C 82 CКД как убрать надпись "Отчет не сформирован"
- ЗУП: Табель и вечерние часы в выходные дни
- 8.2 как открыть форму записи менеджера записи РС?
- Вывод списка РС на форму. Что-то не выходит?
- Как изменить порядок колонок в таблице отчета СКД
- Отгрузка по заказам в валюте в УТ 11
- не пингуются IP, usb modem мегафон
- БП 8 1.6 Закрытие 23 на 90: возможно ли?
- Патчим bkend.dll под sql 2008
- ЗУП: как отражать Районный Коэффициент в приказе о приеме на работу?
- РИБ как узнать база имеет подчиненные или нет
- Перенос БП 1.6 -> 2.0 Запись не верна! Вид субконто "Контрагенты" недоступен ...
- v8: УПП Расчет зарплаты сменному сотруднику. Какой вариант правильный?
- Ставка "Без НДС" при печати чека на Штрих-ФР-К
- увеличить количество строк в меню ФАЙЛ
- Как изменить программно в регистре бухгалтерии хозрасчетный Счет Кт?
- как сделать паузу на сервере в транзакции