1020x780 の jpeg 画像を取得しました。これを 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 でサイズを変更すると、うまくいきます。それをうまく取得するのが理想的ですが、サイズ変更に多くの時間/コードを費やしたことを知っているので、その中間でも素晴らしいでしょう。
助言がありますか？
私のブログでは、アンチエイリアシングを使用/実装する画像のサイズ変更について話しています。
記事を読み、ここでコードをテストしてください。スペイン語で書かれていますが、自動翻訳を使用できます。いずれにせよ、コードのみを読み取ることができます。
コードを適用する場合と適用しない場合の違いを確認してください。
コードは BMP で動作しますが、最初に画像を変換して適用することができます。
Graphics32ライブラリを見てください。32 ビット ビットマップ用のさまざまな画像リサンプリングおよび変換アルゴリズムを実装します。
スケーリングに組み込みの TImage を使用する代わりに、ImageMagick や市販のコンポーネントなどの外部ライブラリまたはコンポーネントを使用できます。ImageMagick 用の少なくとも 1 つの Pascal ラッパーが存在します。
http://wiki.freepascal.org/PascalMagick )
、しかし、私はそれを自分で使用したことはありません。
HiComponents ImageEn ライブラリを使用して、画像のサイズを約 250 ピクセルに縮小することに成功しました。少し前のことですが、結果としてはとてもよかったと記憶しています。 http://www.hicomponents.com/main/products/products-imageenvcl - 現在は無料で、Delphi でグラフィックス プログラミングを行っている場合は一見の価値があります。