[chellas88]

Всем привет.
Много всего написано но ничего не понятно...
Есть картинка в файле. Нужно ее вывести на форму в размерах 40х50 без особой потери качества. Именно в сохранении качества собственно и вопрос. Спасибо.

Код:

//*****Загрузить аватар***************
Memo := TMemoryStream.Create;
idHTTP1.Get('http://test.ru/res/img/avatar/'+Form1.ZQuery1.fieldbyname('avatar').AsString+'', memo);
idHTTP1.Disconnect;
Memo.SaveToFile('images\avatars\'+Form1.ZQuery1.fieldbyname('avatar').AsString);
memo.free;
//*************************************
avatar.Picture.LoadFromFile('images\avatars\'+Form1.ZQuery1.fieldbyname('avatar').AsString);

[lmikle]

Ну, когда я делал такую штуку, то меня качество StretchDraw устроило. Там только надо аккуратно рассчитать размер новой картинки. Если такое качество не устроит, то где-то видел библиотеку, которая позволяет масштабировать картинку с применением разных фильтров. Правда тут такая штука, что нет фильтра, который тебе гарантирует наилучшее качество результата. В зависимости от самой картинки, лучший результат дают разные фильтры.

[chellas88]

Сообщение от lmikle

Ну, когда я делал такую штуку, то меня качество StretchDraw устроило. Там только надо аккуратно рассчитать размер новой картинки. Если такое качество не устроит, то где-то видел библиотеку, которая позволяет масштабировать картинку с применением разных фильтров. Правда тут такая штука, что нет фильтра, который тебе гарантирует наилучшее качество результата. В зависимости от самой картинки, лучший результат дают разные фильтры.

в смысле пропорции рассчитать? я выставил proportion и та же фигня

[lmikle]

Дык ты пользуешься встроенным алгоритмом TImage. Он действительно дает на удивление фиговый результат. Я же говорю про ресайзинг "руками". Т.е. загрузил картинку в память, сразу ее переразмерил и сохранил в файл. Потом грузи из файла и без переразмеривания сразу показывай.

[NumLock]

если выставить режим HALFTONE для StretchBlt через SetStretchBltMode, то результат будет заметно лучше.

[chellas88]

Сообщение от NumLock

если выставить режим HALFTONE для StretchBlt через SetStretchBltMode, то результат будет заметно лучше.

Можно подробнее что и как выставлять?

[x128]

Код:

SetStretchBltMode(Image.Canvas.Handle, halftone);
StretchBlt(Image.Canvas.Handle, 0, 0, Image.Width, Image.Height, bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, srcCopy);

[chellas88]

Сообщение от x128

Код:

SetStretchBltMode(Image.Canvas.Handle, halftone);
StretchBlt(Image.Canvas.Handle, 0, 0, Image.Width, Image.Height, bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, srcCopy);

что такое bmp?

[NumLock]

к примеру объект TBitmap

[chellas88]

Сообщение от NumLock

к примеру объект TBitmap

тоесть нужно 2 картинки (в оригинальном размере и маленькая)?

[NumLock]

нет, достаточно одной оригинальной картинки.

[chellas88]

Сообщение от NumLock

нет, достаточно одной оригинальной картинки.

извиняюсь, но тогда зачем 2 объекта timage (image и bmp)?
например мне нужно сделать маленьким обьект avatar(timage) как мне это написать?

[NumLock]

см. описание функции StretchBlt и станет все ясно.
первый параметр на чем рисуется изображение, шестой что рисуется. отсюда и два объекта.