如何对tif文进行压缩??急!!!!!!!!!!!!!

[zhouxq]

procedure TForm1.Button3Click(Sender: TObject);
var
Parameters: TEncoderParameters;
Value: TEncoderValue;
Img: TGpImage;
Clsid: TClsid;
begin
Parameters.Count := 1;

Parameters.Parameter[0].Guid := EncoderCompression;
Parameters.Parameter[0].NumberOfValues := 1;
Parameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
Parameters.Parameter[0].Value := @Value;

Value := EncoderValueCompressionCCITT3;

Img := TGpImage.Create('Hb0.tif');
try
GetEncoderClsid('image/tiff', Clsid);

Img.Save('.\Hb1.tif', Clsid, @Parameters);

finally
Img.Free;
end;
end;

我这样写, 始终不能将hb0.tif转换成CCITT3压缩的hb1.tif, 转成hb1.tif是空内容的

[zhouxq]

没人理, 自己顶

[Rex_love_Burger]

关注

[meiZiNick]

等待牛人来答.

[knowledge_Is_Life]

我也想了解，谢谢LZ.