在Delphi XE中调整图像大小

Question

我得到了一个jpeg图像,其中1020x780,我试图将其调整为111x85(这是比例),但它出现像素化.

我只是尝试过

a)将图像分配给TImage组件并设置Scaled/Resize属性.

b)这里的调整大小代码http://www.delphigroups.info/2/4/313095.html

c)这里的调整大小代码http://www.swissdelphicenter.ch/torry/showcode.php?id=1896

然而,他们都出现像素化.

如果我在Photoshop中调整大小,那就好了.获得好处将是理想的,但是我知道他们花了很多时间/代码来调整大小,所以甚至中间的东西也会很棒.

有什么建议？

Answer 1

在我的博客中,我谈到使用/实现抗锯齿来调整图像大小.
阅读文章并在此处测试代码.它用西班牙语写,但你可以使用authomatic翻译.无论如何,您只能阅读代码.

查看适用的差异而不应用代码:

该代码适用于BMP,但您可以先转换图像并应用它.

Answer 2

看看Graphics32库.它为32位位图实现了各种图像重采样和变换算法.