ビットマップを簡単減色する

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のページへ

ホーム