Bmpファイルを簡単減色する

ここではビットマップファイルを簡単減色します。
ビットマップを減色することによってビットマップのサイズも当然軽くなります。
※あくまでも簡単減色なのであまり綺麗に減色は出来ません。

■TBitmapのPixelFormatプロパティの説明　

列挙型 内容
pf1bit ビットマップイメージのピクセル形式を１ビットにする
pf4bit ビットマップイメージのピクセル形式を4ビットにする
pf8bit ビットマップイメージのピクセル形式を8ビットにする
pf15bit ビットマップイメージのピクセル形式を１5ビットにする
pf16bit ビットマップイメージのピクセル形式を１6ビットにする
pf24bit ビットマップイメージのピクセル形式を24ビットにする
pf32bit ビットマップイメージのピクセル形式を32ビットにする

※ピクセル形式が低いほど、サイズが軽くなりますが画質は悪くなります。
※ピクセル形式が高いほど、サイズが重くなりますが画質は良くなります。

■ソースは下記のようになります。

■Bmpファイルを減色する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
BMP :TBitmap;
begin

　BMP :=TBitmap.Create ;
　//ビットマップファイルの読みこみ
　BMP.LoadFromFile('C:\windows\メタリック フロア.bmp');
　//ビットマップのピクセル形式を4bitに変更（簡単減色）
　BMP.PixelFormat:=pf4bit;
　//減色済みのビットマップを保存する
　BMP.SaveToFile('C:\windows\ﾃﾞｽｸﾄｯﾌﾟ\メタリック フロア.bmp');

　BMP.Free;

end;

※減色結果 36K->18Kになりました。


Delphi　Tipsのページへ