掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像サイズの変更 (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.