|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Изменение размера jpg, bmp |
|
|
[решено] Изменение размера jpg, bmp
|
Старожил Сообщения: 352 |
Профиль | Отправить PM | Цитировать
Приветствую, возможно ли изменять размеры "рисунков" в 640*480 не теряя качества изображения ?
Пробовал так, но качество сильно ухудшается. #include <GDIPlus.au3> Func Pic_Image($PIC_Load, $Pic_Save, $Pic_Horizontal, $Pic_Vertikal) FileDelete($Pic_Save) _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($PIC_Load) ;$H = _GDIPlus_ImageGetHeight($hImage) ;$W = _GDIPlus_ImageGetWidth($hImage) ;ConsoleWrite('$H='&$H&@CR) ;ConsoleWrite('$W='&$W&@CR) ; $H1 =$Wnew ; $W1 =$Wnew / $H * $W $hThumb = _GDIPlus_ImageGetThumbnail($hImage, $Pic_Horizontal, $Pic_Vertikal) _GDIPlus_ImageSaveToFile($hThumb, $Pic_Save) _GDIPlus_ImageDispose($hImage) _GDIPlus_ImageDispose($hThumb) _GDIPlus_Shutdown() EndFunc Pic_Image("с:\6.jpg", "с:\background.bmp", 640, 480) |
|
Отправлено: 11:44, 27-02-2019 |
Ушел из жизни Сообщения: 8595
|
Профиль | Сайт | Отправить PM | Цитировать Цитата -TRM-:
|
|
------- Отправлено: 16:09, 27-02-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать -TRM-, рисунков какого размера?
|
Отправлено: 19:11, 27-02-2019 | #3 |
Ушел из жизни Сообщения: 8595
|
Профиль | Сайт | Отправить PM | Цитировать Iska, я даже не стал задавать этот вопрос. Ответ одинаков.
|
------- Отправлено: 20:10, 27-02-2019 | #4 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата -TRM-:
Цитата -TRM-:
Func Pic_Image($PIC_Load, $Pic_Save, $Pic_Horizontal, $Pic_Vertikal) FileDelete($Pic_Save) _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($PIC_Load) $hResized = _GDIPlus_ImageResize($hImage, $Pic_Horizontal, $Pic_Vertikal) _GDIPlus_ImageSaveToFile($hResized, $Pic_Save) _GDIPlus_ImageDispose($hImage) _GDIPlus_ImageDispose($hResized) _GDIPlus_Shutdown() EndFunc |
|||
------- Отправлено: 20:14, 27-02-2019 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
|
|
Отправлено: 20:18, 27-02-2019 | #6 |
Старожил Сообщения: 352
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
|
|
Отправлено: 17:34, 01-03-2019 | #7 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата -TRM-:
|
|
------- Отправлено: 01:27, 02-03-2019 | #8 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
|
|
Отправлено: 02:53, 02-03-2019 | #9 |
Старожил Сообщения: 352
|
Профиль | Отправить PM | Цитировать Цитата Creat0R:
Пока над этим не размышлял, но может уже у кого то есть готовое решение ? Как в скрипте предложенным от Creat0R сделать так, чтобы высота была пропорциональна ширине т.е. она не обязательно должна быть 480 иначе картинка растягивается ? |
|
Отправлено: 09:59, 02-03-2019 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Любой язык - Изменение размера изображений *.png; *.jpg; *.jpeg; *.bmp | it3 | Скриптовые языки администрирования Windows | 5 | 18-12-2018 12:43 | |
CMD/BAT - Скрипт для сжатия jpg, bmp, pdf | ColdDyn | Скриптовые языки администрирования Windows | 1 | 17-01-2017 15:00 | |
Медиа - Копирование фоток с фотоаппарата через буфер - вместо .jpg получаю .bmp | CyraxZ | Microsoft Windows 2000/XP | 6 | 15-02-2014 11:35 | |
Графика - Программы для конвертирования BMP в JPG | Surround | Программное обеспечение Windows | 16 | 22-12-2008 21:56 | |
[решено] Не могу сохранит jpg-файлы в IE, предлагается Безымянный.bmp | Garel | Хочу все знать | 20 | 03-10-2006 17:25 |
|