delphi 关于位图的像素格式


本文整理自网络,侵删。

 关于位图的像素格式

1、判断位图的像素格式:
--------------------------------------------------------------------------------

var
bit: TBitmap;
pix: TPixelFormat;
s: string;
begin
bit := TBitmap.Create;
bit.LoadFromFile('c:\temp\test.bmp'); //位图路径

pix := bit.PixelFormat;
s := '';
case pix of
pfDevice: s := 'Device'; {设备支持的像素格式}
pf1bit: s := '1bit';
pf4bit: s := '4bit';
pf8bit: s := '8bit';
pf15bit: s := '15bit';
pf16bit: s := '16bit';
pf24bit: s := '24bit';
pf32bit: s := '32bit';
pfCustom: s := 'Custom'; {其他格式}
end;
ShowMessage(s);

bit.Free;
end;
--------------------------------------------------------------------------------

2、位图的像素格式转换:
--------------------------------------------------------------------------------

var
bit: TBitmap;
begin
bit := TBitmap.Create;
bit.LoadFromFile('c:\temp\test.bmp');
bit.PixelFormat := pf4bit;
bit.SaveToFile('c:\temp\test2.bmp');
bit.Free;
end;
--------------------------------------------------------------------------------

3、按指定的像素格式保存位图:
--------------------------------------------------------------------------------

var
bit: TBitmap;
begin
bit := Self.GetFormImage; //把窗体客户区获取为图像, 无须 bit := TBitmap.Create;
bit.PixelFormat := pf1bit;
bit.SaveToFile('c:\temp\test.bmp');
bit.Free; //但要释放
end;

相关阅读 >>

Delphi 实现类似windows的查找功能-遍历整个硬盘目录

qdac项目

Delphi webservices传base64字串

Delphi opendialog控件用法

Delphi二值图像膨胀算法

Delphi如何获得当前操作系统语言环境

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi base24编码解码

Delphi根据窗口句柄获取所在程序路径

Delphi固定窗口大小

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...