Преобразование изображения

← →
asds (2004-10-25 10:39) [0]

В базе данных хранится таблица с большим кол-вом изображений размера 1200x1600. Их необходимо выводить в уменьшенном размере. Загрузка такого изображения в TImage составляет почти 1 секунду. Необходимо ускорить, чтобы при переходе между записями не было задержек (основная проблема). Думаю, что если создать дополнительное поле и хранить там уменьшенный в 4 раза вариант, то это решит проблему.
Вопрос: как программным способом в Delphi пропорционально изменить размер изображения? Может, существует какой-нибудь удобный компонент?
Другие варианты решения основной проблемы приветствуются.

← →
Jel © (2004-10-25 13:50) [1]

StretchBlt не подойдет?

← →
asds (2004-10-25 13:55) [2]

Это что: компонент (где взять) или функция?

← →
Ozone © (2004-10-25 14:21) [3]

asds (25.10.04 13:55) [2]

API"шная Функция.

← →
asds (2004-10-25 14:53) [4]

Думаю, геморройно будет с этой функцей возиться, тем более у меня в базе лежат jpeg"и. Есть варианты попроще?

> Думаю, геморройно будет с этой функцей возиться, тем более
> у меня в базе лежат jpeg"и. Есть варианты попроще?

На самом деле самый негеморройный вариант, но качество будет не очень. В Интернете есть много решений по уменьшению изображения, точнее - по resampling, т.е. более качественное, чем resizing. Помню была библиотечка на http://delphigfx.mastak.ru

>тем более у меня в базе лежат jpeg"и. Есть варианты попроще?
у TJPEGImage есть свойство
Scale = (jsFullSize, jsHalf, jsQuarter, jsEighth);
если присвоить jsEighth то будет загружаться
уменьшенная в 8 раз копия и намного быстрее.

Преобразование изображения Найти похожие ветки