在DELPHI中如何将TIF格式的文件转换成JPG格式文件呀.
主要是为了减少TIF文件的大小.
主要是为了减少TIF文件的大小.
解决方案 »
- 数据集下拉框
- 求教数据表字段为空时 DBLookupTreeView 报错,如何解决?
- CRC16校验的问题,求教
- 求救:编写的DLL动态库中调用ADOCONNECTION,出错,不认self。
- delphi中BDE,ADO,dbExpress那个更好?
- 又有问题,大家来看看
- ado 的速度奇慢,对于sql server来说,各位大虾,小弟需紧急增援!!!!
- 很简单的问题,求救!!在线等待
- 做个民意调查, 这里有多少人把Delphi基础的OOP弄懂了的?
- 紧急求救----有关Delphi4.0编程问题-----高手请进!!!
- 如何实现将几张图片一张缩略图保存起来
- 请教:用GDI压缩JPG的图像质量问题
要自己写一个程序,将TIF格式的文件转换成JPG格式文件,谈何容易?
但你可以设法从第三方寻找支持,建议你在网上找.
给出一个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;