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

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

在GDI+支持的各种图像格式，gif格式和tiff格式图像可包含多帧（页）图片，GDI+可以很方便的分解和合成多帧（页）图片。

下面是个简单的多帧（页）图片分解与合成例子：

unitmain1;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;

type
TForm1=class(TForm)
Button1:TButton;
Button2:TButton;
procedureButton1Click(Sender:TObject);
procedureButton2Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;

var
Form1:TForm1;

implementation

usesGdiplus,GdipTypes,ActiveX;

{$R*.dfm}

//把多帧图像分解为单图像保存到文件
procedureTForm1.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文件
forI:=0toCount-1do
begin
Image.SelectActiveFrame(GUID,I);
Image.Save('Hb'+IntToStr(I)+'.jpg',Clsid,@Parameters);
end;
finally
Image.Free;
end;
end;

//将单个图像合并为多帧图像，GDI+不支持GIF合成，只能合并为tiff格式
procedureTForm1.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帧
forI:=1to23do
begin
tmp:=TGpImage.Create('Hb'+IntToStr(I)+'.jpg');
try
Img.SaveAdd(tmp,@Parameters);
finally
tmp.Free;
end;
end;
finally
Img.Free;
end;

end;

end.

例子中已经作了较详细的注释，就不再对代码讲解了。但是有必要对编码参数作点说明：

TEncoderParameters是个封装图像编码器参数TEncoderParameter的数组类型结构，成员包括TEncoderParameter类型数组和数组个数。而编码参数类型TEncoderParameter定义如下：

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

编码参数结构的Guid已经在GDI+中作了如下定义：

//---------------------------------------------------------------------------
//Encoderparametersets图像编码器参数类别设置
//---------------------------------------------------------------------------

EncoderCompression:TGUID='{e09d739d-ccd4-44ee-8eba-3fbf8be4fc58}';//压缩
{$EXTERNALSYMEncoderCompression}
EncoderColorDepth:TGUID='{66087055-ad66-4c7c-9a18-38a2310b8337}';//颜色深度
{$EXTERNALSYMEncoderColorDepth}
EncoderScanMethod:TGUID='{3a4e2661-3109-4e56-8536-42c156e7dcfa}';//扫描方法
{$EXTERNALSYMEncoderScanMethod}
EncoderVersion:TGUID='{24d18c76-814a-41a4-bf53-1c219cccf797}';//版本
{$EXTERNALSYMEncoderVersion}
EncoderRenderMethod:TGUID='{6d42c53a-229a-4825-8bb7-5c99e2b9a8b8}';//呈现方法
{$EXTERNALSYMEncoderRenderMethod}
EncoderQuality:TGUID='{1d5be4b5-fa4a-452d-9cdd-5db35105e7eb}';//质量
{$EXTERNALSYMEncoderQuality}
EncoderTransformation:TGUID='{8d0eb2d1-a58e-4ea8-aa14-108074b7b6f9}';//转换
{$EXTERNALSYMEncoderTransformation}
EncoderLuminanceTable:TGUID='{edb33bce-0266-4a77-b904-27216099e717}';//亮度表
{$EXTERNALSYMEncoderLuminanceTable}
EncoderChrominanceTable:TGUID='{f2e455dc-09b3-4316-8260-676ada32481c}';//色度表
{$EXTERNALSYMEncoderChrominanceTable}
EncoderSaveFlag:TGUID='{292266fc-ac40-47bf-8cfc-a85b89a655de}';//保存标志
{$EXTERNALSYMEncoderSaveFlag}

也就是说我们可以在保存图像的同时，设置上述编码参数来满足我们的要求，如上面例子中分解图片时设置了质量参数；合成图像的时候设置了保存标志。但是很遗憾，不是每种图像编码器都支持上面参数的，如质量和转换参数就只有jpeg格式图像编码器支持，所以，如要用GDI+压缩图像旧只有JPEG格式才行。

编码参数的数据类型也是有规定的，具体定义和说明如下：

//---------------------------------------------------------------------------
//Imageencoderparameterrelatedtypes
//---------------------------------------------------------------------------

TEncoderParameterValueType=(
EncoderParameterValueTypeByte=1,//数组中的每个值都是8位无符号整数
EncoderParameterValueTypeASCII=2,//一个空终止的ASCII字符串,
//NumberOfValues包括NULL结束符在内的字符串长度
EncoderParameterValueTypeShort=3,//数组中的每个值都是16位无符号整数
EncoderParameterValueTypeLong=4,//数组中的每个值都是32位无符号整数
EncoderParameterValueTypeRational=5,//数组中的每一个值都是一对32位无符号整数,
//每一对都表示一个分数,
//第一个整数是分子，第二个整数是分母.
EncoderParameterValueTypeLongRange=6,//数组中的每一个值都是一对32位无符号整数,
//每一对都表示一个数字区域.
EncoderParameterValueTypeUndefined=7,//值的数组是没有定义数据类型的字节的数组
EncoderParameterValueTypeRationalRange=8//数组中的每一个值都是一组四个32位无符号整数,
//前两个整数表示一个分数，后两个整数表示第二个分数,
//这两个分数表示一个有理数区域,
//第一个分数是该区域中最小的有理数,
//第二个分数是该区域中最大的有理数.
);

从上面的类型说明可以看出，有些类型定义对参数值（Value）的规定很具体，你只有按要求给出才不会出错。有些参数我们可以给的值的范围较大，如例子中的品质参数，就可以在0 - 100之间；而还有些值则是规定好了的，如例子中的保存参数的值，下面也把这些值的枚举定义以及使用图像格式列在下面：

//---------------------------------------------------------------------------
//Imageencodervaluetypes
//---------------------------------------------------------------------------

TEncoderValue=(
EncoderValueColorTypeCMYK,
EncoderValueColorTypeYCCK,
EncoderValueCompressionLZW,//LZW压缩方案。可以作为属于压缩类别的参数传递到TIFF编码器。
EncoderValueCompressionCCITT3,//CCITT3压缩方案。可以作为属于压缩类别的参数传递到TIFF编码器。
EncoderValueCompressionCCITT4,//CCITT4压缩方案。可以作为属于压缩类别的参数传递到TIFF编码器。
EncoderValueCompressionRle,//RLE压缩方案。可以作为属于压缩类别的参数传递到TIFF编码器。
EncoderValueCompressionNone,//不指定压缩。可以作为属于压缩类别的参数传递到TIFF编码器。
EncoderValueScanMethodInterlaced,
EncoderValueScanMethodNonInterlaced,
EncoderValueVersionGif87,
EncoderValueVersionGif89,
EncoderValueRenderProgressive,
EncoderValueRenderNonProgressive,
EncoderValueTransformRotate90,//图像将围绕其中心沿顺时针方向旋转90度。可以作为属于转换类别的参数传递到JPEG编码器
EncoderValueTransformRotate180,//图像围绕其中心旋转180度。可以作为属于转换类别的参数传递到JPEG编码器。
EncoderValueTransformRotate270,//图像围绕其中心沿顺时针方向旋转270度。可以作为属于转换类别的参数传递到JPEG编码器
EncoderValueTransformFlipHorizontal,//图像水平翻转。可以作为属于转换类别的参数传递到JPEG编码器。
EncoderValueTransformFlipVertical,//图像垂直翻转。可以作为属于转换类别的参数传递到JPEG编码器。
EncoderValueMultiFrame,//图像有多于1帧（页面）。可以作为属于保存标志类别的参数传递到TIFF编码器
EncoderValueLastFrame,//指定多帧图像中的最后一帧。可以作为属于保存标志类别的参数传递到TIFF编码器。
EncoderValueFlush,//应关闭一个多帧文件或流。可以作为属于保存标志类别的参数传递到TIFF编码器
EncoderValueFrameDimensionTime,
EncoderValueFrameDimensionResolution,
EncoderValueFrameDimensionPage//将一帧添加到图像的页面维度。可以作为属于保存标志类别的参数传递到TIFF编码器。
);

没做说明的枚举值在GDI+ 1.0中是不支持的，其它也只适用规定的图像格式，如EncoderValueMultiFrame和EncoderValueFrameDimensionPage只适用于TIFF格式编码器，而EncoderValueFrameDimensionTime等值由不支持，所以，前面例子只能合成TIFF格式的多帧图像，而不能合成GIF格式。

关于多帧（页）图像可以参见我的文章《GDI+ 在Delphi程序的应用 -- 多帧（页）图像动画播放》。

我用的GDI+版本与网上流通不太兼容，可适当修改例子代码后测试，如需我的GDI+版本，请参照《GDI+ for VCL基础 -- GDI+ 与 VCL》的下载地址和说明，特别要注意后面的后记部分中需要修改的地方。

如有错误或建议，请来信：[e-mail]，或者直接在文章中留言。

最后，例子中使用的GIF图像已经贴在了《GDI+ 在Delphi程序的应用 -- 多帧（页）图像动画播放》中，现做个图像地址连接：