Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Вниз

Уменьшение размеров картинки без потери качества   Найти похожие ветки 

 
ImageMaker   (2007-06-13 18:39) [0]

Как можно уменьшить размеры картинки без потери качества?
(посоветуйте библиотеку или способ, как это сделать)

Делаю через StretchDraw:

         My_Ratio := RequiredWidth / SourceSize.Width;
         MyBMP.PixelFormat := pf24bit;
         MyBMP.Width := Round(My_Ratio * SourceSize.Width);
         MyBMP.Height := Round(My_Ratio * SourceSize.Height);
         MyBMP.Canvas.(Rect(0, 0, MyBMP.Width, MyBMP.Height), pic.Graphic);

Картинка меняет размеры, но становится такой нечеткой, неразборчивой :(


 
homm ©   (2007-06-13 21:41) [1]

> Как можно уменьшить размеры картинки без потери качества?

Никак. На то оно и уменьшение :)


 
ЮЮ ©   (2007-06-14 05:40) [2]

> посоветуйте библиотеку

Graphics32. Посмотри Demo-проекты.


 
ImageMaker   (2007-06-14 15:10) [3]


> ЮЮ ©   (14.06.07 05:40) [2]
>
> > посоветуйте библиотеку
>
> Graphics32. Посмотри Demo-проекты.


Там так много классов... какой смотреть?


 
homm ©   (2007-06-14 20:02) [4]

> Graphics32. Посмотри Demo-проекты.

Автор, не поддавайся! Он умньшит качество твоих картинок.


 
ЮЮ ©   (2007-06-15 06:37) [5]

> Там так много классов... какой смотреть?

Хватит и базового: TBitmap32.
1) загрузи картинку в один, второй сделай нужного размера и попробуй TBitmap32.DrawTo(Dst: TBitmap32) c разными StretchFilter
2) попробуй procedure StretchNearest из GR32_Transforms
3) для начала просто загрузи в TImage32 cj ScaleMode = smStretch и поизменяй прямо в дизайне. Попробуй и разные TImage32.Bitmap.StretchFilter


 
ImageMaker   (2007-06-16 14:43) [6]


> ЮЮ ©   (15.06.07 06:37) [5]


Graphics32 - оказалось то, что нужно.
Применяя TLinearResampler, получил эффект, который желал.

Спасибо!


 
integerr   (2007-08-09 19:40) [7]

напишите пример ,ато целый день сегодня провозился так и не получилося,
есть файлик 1.jpg нужно уменьшить до 150 на 100 и сохранить TlinearResampler


 
integerr   (2007-08-09 19:41) [8]

кто первий напишет рабочий вариант зразу напишите кошельок WMZ


 
integerr   (2007-08-09 19:53) [9]

всем спасибо нашол из janFX
 первоисточник  http://programania.com/stretch.zip ищо лутше



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.043 c
4-1197207030
EgorovAlex
2007-12-09 16:30
2008.09.28
Пул потоков и приоритет - начал тестирование QueueUserWorkItem


15-1218265100
Dmitry S
2008-08-09 10:58
2008.09.28
Кодирование видео


15-1217828347
TUser
2008-08-04 09:39
2008.09.28
Скончался А.И. Солженицын


15-1217845035
Прохоренко
2008-08-04 14:17
2008.09.28
PLSQL


2-1218819917
matveih1
2008-08-15 21:05
2008.09.28
Как получить объект присвоенный узлу дерева?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский