用 GDI+， 先画 背景 ，再画 位图。
var
I, Count: Integer;
Clsid: TClsid;
Image: TGpImage;
bkImage: TGpImage;
Attr: TGpImageAttributes;
bmp: TGpBitmap;
tmp: TGpBitmap;
tg, bg: TGpGraphics;
GUID: TGUID;
begin
// 打开图像文件
Image := TGpImage.Create('e:\01.png');
BkImage := TGpImage.Create('e:\bk.png');
tmp := TGpBitmap.Create(Image.Width, Image.Height, pf32bppARGB);
tg := TGpGraphics.Create(tmp);
bmp := TGpBitmap.Create(Image.Width, Image.Height, pf32bppARGB);
bg := TGpGraphics.Create(bmp);
Attr := TGpImageAttributes.Create;
try
// 设置透明色范围
Attr.SetColorKey($FFffffff, $FFffffff);
Image.GetFrameDimensionsList(@GUID, 1);
// 获取图像祯数
Count := Image.GetFrameCount(GUID);
GetEncoderClsid('image/png', Clsid);
for I := 0 to Count - 1 do
begin
// 选择激活祯
Image.SelectActiveFrame(GUID, I);
// 画当前祯到临时图
tg.DrawImage(Image, 0, 0, Image.Width, Image.Height);
// 合成图初始化为透明色
bg.Clear(0);
// 画背景图，如不需要背景图，可将下面注释掉
bg.DrawImage(BkImage, 0, 0, bmp.Width, bmp.Height);
// 画临时图
bg.DrawImage(tmp, GpRect(0, 0, bmp.Width, bmp.Height),
0, 0, tmp.Width, tmp.Height, utPixel, Attr);
// 保存
bmp.Save('e:\01-' + IntToStr(I) + '.png', Clsid);
end;
finally
Attr.Free;
bg.Free;
bmp.Free;
tg.Free;
tmp.Free;
BkImage.Free;
Image.Free;
end;
