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

Question

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

Answer 1

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

Answer 2

需要找个支持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;

Answer 3

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