如何正确使用TBitmap对象来保存具有透明度的文件

Question

下面是我的示例代码：

var    lBitmap: TBitmap;
begin
lBitmap := TBitmap.Create;
lBitmap.PixelFormat := TPixelFormat.pf32bit;
lBitmap.Transparent := TRUE; // !
lBitmap.LoadFromFile( 'd:tempbmp32b_300dpi_transparent_400x250.bmp' ); 
// Bitmap RGB+Alpha created with GIMP  
// modifications on pixels
Canvas.Draw(100, 0, lBitmap);
// Up to this point it is correct, the drawing is painted with transparency
lBitmap.SaveToFile( 'd:tmpafter.bmp' ); // after this -> I have lost transparency
lBitmap.Free;
end;

如何正确使用TBitmap对象来保存具有透明度的文件？

Answer 1

在我看来，TBitmap似乎不支持使用alpha通道保存位图。也许我们不应该为此责怪VCL，因为具有阿尔法透明度的BMP并不常见。许多应用程序不支持透明BMP。

话虽如此；反向工程"；在GIMP中创建的具有alpha通道的BMP，并编写以下Delphi例程以生成完全相同的位图：

procedure SaveTransparentBitmap(ABitmap: TBitmap; const AFileName: string);
var
FS: TFileStream;
BFH: TBitmapFileHeader;
BIH: TBitmapV5Header;
y: Integer;
sl: PUInt64;
begin
// ABitmap MUST have the GIMP BGRA format.
FS := TFileStream.Create(AFileName, fmOpenWrite);
try
// Bitmap file header
FillChar(BFH, SizeOf(BFH), 0);
BFH.bfType := $4D42;  // BM
BFH.bfSize := 4 * ABitmap.Width * ABitmap.Height + SizeOf(BFH) + SizeOf(BIH);
BFH.bfOffBits := SizeOf(BFH) + SizeOf(BIH);
FS.Write(BFH, SizeOf(BFH));
// Bitmap info header
FillChar(BIH, SizeOf(BIH), 0);
BIH.bV5Size := SizeOf(BIH);
BIH.bV5Width := ABitmap.Width;
BIH.bV5Height := ABitmap.Height;
BIH.bV5Planes := 1;
BIH.bV5BitCount := 32;
BIH.bV5Compression := BI_BITFIELDS;
BIH.bV5SizeImage := 4 * ABitmap.Width * ABitmap.Height;
BIH.bV5XPelsPerMeter := 11811;
BIH.bV5YPelsPerMeter := 11811;
BIH.bV5ClrUsed := 0;
BIH.bV5ClrImportant := 0;
BIH.bV5RedMask :=   $00FF0000;
BIH.bV5GreenMask := $0000FF00;
BIH.bV5BlueMask :=  $000000FF;
BIH.bV5AlphaMask := $FF000000;
BIH.bV5CSType := $73524742; // BGRs
BIH.bV5Intent := LCS_GM_GRAPHICS;
FS.Write(BIH, SizeOf(BIH));
// Pixels
for y := ABitmap.Height - 1 downto 0 do
begin
sl := ABitmap.ScanLine[y];
FS.Write(sl^, 4 * ABitmap.Width);
end;
finally
FS.Free;
end;
end;

这写入CCD_ 2，然后写入BITMAPV5HEADER和BGRA格式的像素数据。

我省略了各种错误检查。例如，我没有验证ABitmap是否具有所需的格式。

测试：

procedure TForm1.FormCreate(Sender: TObject);
var
bm: TBitmap;
begin
bm := TBitmap.Create;
try
bm.LoadFromFile('C:UsersAndreas RejbrandDesktopTest.bmp');
SaveTransparentBitmap(bm, 'C:UsersAndreas RejbrandDesktopTest2.bmp');
finally
bm.Free;
end;
end;

在此之后，Test.bmp和Test2.bmp是二进制相等的。

Answer 2

正如@Andreas Reybrand所指出的，用alpha通道保存32位位图需要一种变通方法。关于BMP文件格式、TBitmap.Transparent属性的作用以及如何使用VCL透明地绘制位图，似乎还有更多的困惑。

32位位图是唯一在文件中携带有关透明度信息的位图。他们在阿尔法通道中有这些信息，而在其他任何地方都没有。在alpha通道中，每个像素在RGBA结构中都有自己的0-255 alpha值。这通常被称为部分透明。

绘制/显示32位位图时，必须注意TBitmap.AlphaFormat属性。它默认为afIgnore，这意味着位图是在没有透明度的情况下绘制的。使用afPremultiplied或afDefined以透明方式绘制。后者可能正是你想要的。

TBitmap.Transparent属性是VCLTBitmap特有的，BMP文件格式中没有与之对应的属性。这只是透明显示位图的一种简单方法，其中颜色定义了哪些像素应该完全透明。应用程序必须熟悉位图才能使用此方法。了解TBitmap.TransparentMode属性的工作原理也很重要。默认为tmAuto，它将位图最左下角像素的颜色设置为TBitmap.TransparentColor。当TransparentMode设置为tmFixed时，将使用您指定的TBitmap.TransparentColor。此方法也可以用于32位位图。

请注意，当使用标准VCLBITMAPFILEHEADER0绘图例程在alpha通道中具有透明度的32位位图上绘图时，透明度将丢失。

在您的示例代码中，似乎忽略了AlphaFormat和TransparentMode。您还应该决定是使用alpha通道中的透明度还是使用TBitmap.Transparent方法。但是我们没有位图来检查这是否是真正的问题。