如何将DIB转换为TPNGObject？

Question

我有个迪布柄。如何在保持透明度的情况下将其转换为TPNGObject？

编辑: --我在这个解决方案中使用了方法2 这里

但是所得到的位图是不透明的，即使我将其Transparent标志设置为true。

Answer 1

我认为它将开始类似这样的事情：

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

然后，如果它是一个32位的图像，它将有一个alpha通道，您将使用它作为您的透明度数据。

然后，将RGB数据复制到PNG对象的scanline，将alpha数据复制到alpha scanline。