请问在DELPHI中如何将TIF格式转换成JPG格式

[itGenius]

在DELPHI中如何将TIF格式的文件转换成JPG格式文件呀.
主要是为了减少TIF文件的大小.

[itGenius]

高手都去哪里了呀

[SonicX]

需要找个支持TIF的单元,然后把TIF图像映射到BMP对象再转到JPEG对象
给出一个BMP到JPG的方法
procedure BMP2JPG(BMPFile:string);
var
BMP:TBitmap;
JPG:TJPEGImage;
JPGFile:string;
begin
BMP:=TBitmap.Create;
JPG:=TJPEGImage.Create;
try
BMP.LoadFromFile(BMPFILE); //载入BMP文件
BMP.PixelFormat:=pf24bit;
JPG.Assign(BMP); //映射到JPEG单元
JPG.CompressionQuality:=100; //压缩设置
JPG.Performance:=jpBestQuality;
JPG.Compress; //开始压缩
JPGFile:=ChangeFileExt(BMPFile,'.jpg'); //修改文件扩展名为JPG
JPG.SaveToFile(JPGFile); //保存
finally
JPG.Free; //释放
BMP.Free;
end;
end;

[zzwu]

DELPHI支持JPG,但不支持TIF格式.
要自己写一个程序,将TIF格式的文件转换成JPG格式文件,谈何容易?
但你可以设法从第三方寻找支持,建议你在网上找.

[herryjin]

用GDI+ 只要设置一下CLSID就行了