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 xe8安卓下汉字转gb2312

Delphi 之 定时器 (ttimer组件)

Delphi hook 指定程序窗体和控件的 wndproc

Delphi判断字符串是否是数字、字母、大小写字母

Delphi使用tnethttpclient:重定向后如何给出最终的url?

Delphi 实现一个程序在另一个程序内运行

Delphi跨平台tcp库的封装

Delphi 中文字符串截取

Delphi 注册表启动项管理代码

Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie

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



打赏

取消

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

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

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

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

评论

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