Question

我有一份有透明度信息的德尔菲比图(32Bit)。在保持透明度的同时,我需要将其转换为巴布亚新几内亚的档案。

我目前拥有的工具是图形32图书馆、GE32_PNG(由 Christian布德编辑)和PNGImage(由古斯塔沃德编辑)。

这样做的最佳方式是什么?

EDIT 1: 我的比图中不仅有一色,它具有透明度,而且具有不同程度的透明度,需要加以维护。

EDIT 2:我用甲型六氯环己烷信息绘制了我的比照图,把图像的背景描述给我只剩一个空的甲型六氯环己烷。然后,我写上反索马里的案文。然后,我挽救了蓝图。简而言之,如果开张,就会显示出透明度,而且你一心一意,就会看到反索马里的影响。

Answer 1

我无法得到另外两个工作的答复。他们可以为其他人工作,但这里是我所做的。

I created the bitmap with transparency.
Assigned it to a TBitmap32 from the Graphics 32 library.
Assigned it to a TPortableNetworkGraphics32 from Christian Budde s GR32_PNG for Graphics32
Called the TPortableNetworkGraphics32.SaveToFile method

Answer 2

利用PNGImage。在德尔菲尝试:

function ConvertToPNG(oBMPSrc: TBitmap; sFilename: String);
var
  oPNGDest: TPNGObject;
begin
  oPNGDest := TPNGObject.Create;
  try
    oPNGDest.Assign(oBMPSrc);
    oPNGDest.SaveToFile(sFilename); 
  finally
    oPNGDest.Free;
  end;
end;

如果你不工作,你可能不得不单独复制甲型六氯环己烷和中型六氯环己烷的价值。

function ConvertToPNG(oBMPSrc: TBitmap; sFilename: String);
var
  oPNGDest: TPNGObject;
begin
  oPNGDest := TPNGObject.CreateBlank(COLOR_RGBALPHA, 8, oBMPSrc.Width, oBMPSrc.Height);
  try
    oPNGDest.CreateAlpha;
    // Copy over RGB
    ..
    // Copy over Alpha
    ..
    // Save to file
    oPNGDest.SaveToFile(sFilename); 
  finally
    oPNGDest.Free;
  end;
end;

Answer 3

。

职能如下:

function WriteBitmapToPngFile( Filename : string; Bitmap : TBitmap; TransparentColor:TColor):boolean;

友情链接