Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.09.28;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2008.09.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
15-1217578540
Ольга
2008-08-01 12:15
2008.09.28
Delphi 2007


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


3-1206952402
harisma
2008-03-31 12:33
2008.09.28
Использование метода Locate у TClientDataSet


2-1218999520
Lamer666
2008-08-17 22:58
2008.09.28
MD5


2-1219221866
Элек_Троник
2008-08-20 12:44
2008.09.28
Организация хранения результатов запросов через API в памяти