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 字母大小写转换

Delphi unidac 连接mdb access 数据库

Delphi win10下message无法接收的问题

Delphi中怎样得到系统当前“输入法”名称?

Delphi getprocesshandleasname 获取进程句柄

Delphi tms web core 在线pdf教程

Delphi idhttp用法详解

Delphi中操作powerpoint幻灯片的示例代码

Delphi 关闭icesword等

Delphi idhttp使用代理ip

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



打赏

取消

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

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

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

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

评论

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