画像サイズの変更 (ID:7106)

名前

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

本文 幅・高さがそのままだとすると、あと犠牲に出来るのは色深度です。JPEGの場合は、圧縮率を高くするという手もあります。 JPEGImageの場合の色深度を下げる方法は、 http://forum.nifty.com/fdelphi/samples/00346.html こちらを参考にしてください。 JPEGで圧縮率を変える場合は、CompressionQualityを小さい値に変更します。 BMPで、色深度を下げる場合の処理です。 var bmp: TBitmap; dW,dH: double; begin bmp := nil; try bmp := TBitmap.Create; bmp.LoadFromFile('C:\tmp.bmp'); bmp.PixelFormat := pf8bit;//24bitだった場合、約１／３になる bmp.SaveToFile('C:\tmp2.bmp'); finally if Assigned(bmp) then bmp.Free; end; end;