JPEGを滑らかに表示する方法 (ID:17043)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 １．JpgをBmpに変換します。 ２．そのBmpに滑らかに拡大（縮小）する処理をします。 ３．BmpをJpgに変換し戻します。 滑らかに拡大（縮小）する処理方法は多数ありますが、私は中村拓男さんの関数を利用させていただいています。 photoshopと比較し、その品質は同等もしくは若干上というのが私の評価です。 １．http://www.asahi-net.or.jp/~HA3T-NKMR/DGS/DownLoad.htm よりDHGL1.2をダウンロードします。 ２．解凍後、commonフォルダのBitmapUtils.pasを取り出します。 ３．uses節にBitmapUtilsを追加します。 ４．滑らかな拡大はfunction Enlarge(Bitmap: TBitmap; Width, Height: Integer): TBitmap; 縮小はfunction Shrink(Bitmap: TBitmap; Width, Height: Integer): TBitmap;を使用します。 使用例 var SrcBmp, DestBmp: TBitmap; NewWidth, NewHeight: Integer; begin SrcBmp にJpgを変換; try // DestBmpのインスタンスはEnlarge()内でCreateされる DestBmp := Enlarge(SrcBmp, NewWidth, NewHeight); finally DestBmp.Free; end; DestBmpをに変換