GDI+在Delphi程序的应用：多帧（页）图像的分解与合成

unit main1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Gdiplus, GdipTypes, ActiveX;
{$R *.dfm}
// 把多帧图像分解为单图像保存到文件
procedure TForm1.Button1Click(Sender: TObject);
var
I, Count: Integer;
Clsid: TClsid;
Parameters: TEncoderParameters;
Quality: Integer;
Image: TGpImage;
GUID: TGUID;
begin
// 打开图像文件
Image := TGpImage.Create('hbmap108.gif');
try
// 获取图像所有帧维度的GUID，这里我们只取第一个
Image.GetFrameDimensionsList(@GUID, 1);
// 通过获取维度的GUID，取得图像的帧（页）数量
Count := Image.GetFrameCount(GUID);
// 下面设置自定义的编码参数，这里为1个参数
Parameters.Count := 1;
// 设置参数唯一标志的GUID，这里为编码品质
Parameters.Parameter[0].Guid := EncoderQuality;
// 设置参数值的数据类型为长整型
Parameters.Parameter[0].ValueType := EncoderParameterValueTypeLong;
Parameters.Parameter[0].NumberOfValues := 1;
// 设置参数的值：品质等级，最高为100，图像文件大小与品质成正比
Quality := 100;
Parameters.Parameter[0].Value := @Quality;
// 获取图像格式JPEG编码器的ClsID
GetEncoderClsid('image/jpeg', Clsid);
// 选择图像的各个帧为当前帧，并依次保存为jpg文件
for I := 0 to Count - 1 do
begin
Image.SelectActiveFrame(GUID, I);
Image.Save('Hb' + IntToStr(I) + '.jpg', Clsid, @Parameters);
end;
finally
Image.Free;
end;
end;
// 将单个图像合并为多帧图像，GDI+不支持GIF合成，只能合并为tiff格式
procedure TForm1.Button2Click(Sender: TObject);
var
Parameters: TEncoderParameters;
Value: TEncoderValue;
Img, tmp: TGpImage;
I: Integer;
Clsid: TClsid;
begin
// 下面设置自定义的编码参数，这里为1个参数
Parameters.Count := 1;
// 设置参数唯一标志的GUID，这里为保存标记
Parameters.Parameter[0].Guid := EncoderSaveFlag;
Parameters.Parameter[0].NumberOfValues := 1;
Parameters.Parameter[0].ValueType := EncoderParameterValueTypeLong;
// 设置参数的值。这里只把Value地址赋给了参数值，Value在后面具体赋值
Parameters.Parameter[0].Value := @Value;
// 打开第一个图像，这里的图像是前面代码分解后保存的jpg文件
Img := TGpImage.Create('Hb0.jpg');
try
// 获取图像格式tiff编码器的ClsID
GetEncoderClsid('image/tiff', Clsid);
// 在保存第一帧图像时，编码参数值设置为多帧
Value := EncoderValueMultiFrame;
// 保存第一帧图像
Img.Save('Hb.tif', Clsid, @Parameters);
// 保存随后的各帧图像时，编码参数值设置为维度页
Value := EncoderValueFrameDimensionPage;
// 依次打开后面的图像，保存到Hb.tif文件，本例图片为24帧
for I := 1 to 23 do
begin
tmp := TGpImage.Create('Hb' + IntToStr(I) + '.jpg');
try
Img.SaveAdd(tmp, @Parameters);
finally
tmp.Free;
end;
end;
finally
Img.Free;
end;

end;
end.

//-----------------------------------------------------------------
// Encoder Parameter structure
//-----------------------------------------------------------------
TEncoderParameter = packed record
Guid: TGUID;   // 该参数全局唯一标识符 (GUID)，
NumberOfValues: ULONG; // Value地址处包含的元素个数
ValueType: TEncoderParameterValueType; // Value所指值的数据类型
Value: Pointer;// 值的地址，可以为单值或者数组，具体根据Guid而定
PEncoderParameter = ^TEncoderParameter;

//---------------------------------------------------------------------------
// Encoder parameter sets  图像编码器参数类别设置
//---------------------------------------------------------------------------
EncoderCompression      : TGUID = ''; // 压缩
{$EXTERNALSYM EncoderCompression}
EncoderColorDepth       : TGUID = ''; // 颜色深度
{$EXTERNALSYM EncoderColorDepth}
EncoderScanMethod       : TGUID = ''; // 扫描方法
{$EXTERNALSYM EncoderScanMethod}
EncoderVersion  : TGUID = ''; // 版本
{$EXTERNALSYM EncoderVersion}
EncoderRenderMethod     : TGUID = ''; // 呈现方法
{$EXTERNALSYM EncoderRenderMethod}
EncoderQuality  : TGUID = ''; // 质量
{$EXTERNALSYM EncoderQuality}
EncoderTransformation   : TGUID = ''; // 转换
{$EXTERNALSYM EncoderTransformation}
EncoderLuminanceTable   : TGUID = ''; // 亮度表
{$EXTERNALSYM EncoderLuminanceTable}
EncoderChrominanceTable : TGUID = ''; // 色度表
{$EXTERNALSYM EncoderChrominanceTable}
EncoderSaveFlag : TGUID = ''; // 保存标志
{$EXTERNALSYM EncoderSaveFlag}