delphi - 如何将 DIB 转换为 TPNGObject？

Question

我有一个 DIB 句柄。如何将其转换为 TPNGObject保持其透明度？

编辑:
我在此解决方案中使用方法 2 Here

但即使我设置它的Transparent，结果位图也不透明标记为真

Answer 1

我认为它会开始这样的事情:

var
  lpbi: PBitmapInfoHeader;
begin
  // Get DIB header info from DIB handle
  lpbi := PBitmapInfoHeader(GlobalLock(hdIB));
end;

然后，如果它是 32 位图像，它将有一个 alpha channel ，您将使用它来存储透明度数据。

然后，将 RGB 数据复制到 PNG 对象的扫描线，并将 alpha 数据复制到 alpha 扫描线。