Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Изменение размера jpg, bmp

Ответить
Настройки темы
[решено] Изменение размера jpg, bmp

Старожил


Сообщения: 358
Благодарности: 37


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: -TRM-
Дата: 27-02-2019
Приветствую, возможно ли изменять размеры "рисунков" в 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)
Только нужно чтобы выходной файл был в формате BMP

Отправлено: 11:44, 27-02-2019

 
mwz mwz вне форума

Аватара для mwz

Ушел из жизни


Contributor


Сообщения: 8629
Благодарности: 2121

Профиль | Сайт | Отправить PM | Цитировать


Цитата -TRM-:
возможно ли изменять размеры "рисунков" в 640*480 не теряя качества изображения ? »
Изменение размеров без изменения качества изображения невозможно. Причём "изменение" здесь — это отнюдь не улучшение: это от почти незаметного до очень заметного ухудшения.

-------
Mikhail Zhilin


Отправлено: 16:09, 27-02-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


Сообщения: 24796
Благодарности: 7208

Профиль | Отправить PM | Цитировать


-TRM-, рисунков какого размера?

Отправлено: 19:11, 27-02-2019 | #3

mwz mwz вне форума

Аватара для mwz

Ушел из жизни


Contributor


Сообщения: 8629
Благодарности: 2121

Профиль | Сайт | Отправить PM | Цитировать


Iska, я даже не стал задавать этот вопрос. Ответ одинаков.

-------
Mikhail Zhilin


Отправлено: 20:10, 27-02-2019 | #4


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 3035
Благодарности: 1000

Профиль | Сайт | Отправить PM | Цитировать


Цитата -TRM-:
возможно ли изменять размеры "рисунков" в 640*480 не теряя качества изображения ? »
Если уменьшать то можно, если увеличивать то нет.

Цитата -TRM-:
Пробовал так »
Так это же сохраняет в миниатюрную копию (thumbnail), т.е то что обычно используется для предпросмотра, а нужно использовать ImageResize:

Код: Выделить весь код
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
И формат нужно сохранять тот же, иначе нужно использовать _GDIPlus_ImageSaveToFileEx.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:14, 27-02-2019 | #5


Ветеран


Contributor


Сообщения: 24796
Благодарности: 7208

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
Так это же сохраняет в миниатюрную копию (thumbnail) »
Я даже не поглядел код .

Отправлено: 20:18, 27-02-2019 | #6


Старожил


Сообщения: 358
Благодарности: 37

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
И формат нужно сохранять тот же »
Нарушил ваше условие, загнал картинку в jpg и указал на выходе bmp - вроде как получил на выходе реальный bmp.

Отправлено: 17:34, 01-03-2019 | #7


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 3035
Благодарности: 1000

Профиль | Сайт | Отправить PM | Цитировать


Цитата -TRM-:
вроде как получил на выходе реальный bmp »
Без потери качества?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community


Отправлено: 01:27, 02-03-2019 | #8


Ветеран


Contributor


Сообщения: 24796
Благодарности: 7208

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
Без потери качества? »
А где ему там теряться?

Отправлено: 02:53, 02-03-2019 | #9


Старожил


Сообщения: 358
Благодарности: 37

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
Без потери качества? »
Да.
Пока над этим не размышлял, но может уже у кого то есть готовое решение ? Как в скрипте предложенным от Creat0R сделать так, чтобы высота была пропорциональна ширине т.е. она не обязательно должна быть 480 иначе картинка растягивается ?

Отправлено: 09:59, 02-03-2019 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Изменение размера jpg, bmp

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - Изменение размера изображений *.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




 
Переход