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中判断字符串是否为数字

Delphi将xm音乐文件嵌入自己的程序

Delphi著名皮肤控件库大全评测

Delphi 右下角滑动消息窗口

Delphi twebbrowser静音

Delphi取cpu利用率

Delphi驱动方式winio模拟按键

Delphi 自动关闭弹出的窗口

delph i判断ip地址是否正确

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



打赏

取消

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

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

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

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

评论

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