Question

关于Delphi,怎么判断一个bmp文件是不是24位的？

我用OpenDialog 打开一个 bmp 文件，怎么判断它是不是24位的。
能说的详细点吗？最好能加一段代码。

Answer 1

var
bmp :TBitmap;
begin
if opendialog1.execute then
begin
if uppercase(extractfileext(opendialog1.filename)) <> '.BMP' then
begin
showmessage('请选择bmp位图');
exit;
end;
bmp := TBitmap.create;
bmp.loadfromfile(opendialog1.filename);
if bmp.pixelformat = pf24bit then
showmessage(opendialog1.filename+'是24位图')
else
showmessage(opendialog1.filename+'不是24位图');
bmp.free;
end;
end;

Answer 2

OPendialog打开文件不能判断。需要重TBitmap变量打开图像，在判断该变量的参数，可以知道bmp文件的位数。

var
bmp: TBitmap;
begin
bmp.open(文件名);
if bmp.(一个参数，我记不得了) = 24(记不清，大概就是这个意思) then