|
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Изменение размера jpg, bmp |
|
||||
|
|
[решено] Изменение размера jpg, bmp
|
|
Старожил Сообщения: 352 |
Приветствую, возможно ли изменять размеры "рисунков" в 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 | |
|