在一些书上介绍的图像翻转以及调节明暗度的方法都是只能作用于BMP格式的图像
怎么样才能对JPG图像有效
怎么样才能对JPG图像有效
解决方案 »
- delphi创建access表出现错误,哪里错啦?如何改正?
- VC和delphi类型转换的问题,请高手解答,谢谢!
- 关于DBGRID的一个问题,急!
- 怎么把Richedit里的文本与及对它进行设置的格式一起保存到库里在线等待。
- 如何从硬盘安装delphi5.0?
- 在delphi下如何实现文本和图片的打印及预览
- ????????????????????????
- Tchart控件中可以加入游标么
- DELPHI如何读取Excel中的图片到Image.
- 通这opendialog1打开文件,怎样取得文件的文件名(不包含路径),和扩展名
- 请教一个关于快捷键的问题
- 对于数据库的问题我是这样做的?大家是怎么处理的呢?
例子有很多
将BMP转为JPG,BMP名为BmpFileName,JPG名为JPGFileName,CompressRate为JPG图片的压缩率,若不传入此参数内定为86%压缩率.function JPG2BMP(JPGFileName,BmpFileName:string):boolean;
将JPG转为BMP,JPG名为JPGFileName,BMP名为BmpFileNamefunction Bmp2JPG(BmpFileName,JPGFileName:string;CompressRate:integer=86):boolean;
var jpg:TJPEGImage;
bmp:tBitMap;
begin
jpg:=TJPEGImage.create;
bmp:=TBitMap.create;
result:=true;
try
bmp.LoadFromFile(BmpFileName);
jpg.assign(bmp);
jpg.CompressionQuality:=CompressRate;
jpg.SaveToFile(JPGFileName);
except
result:=false;
end;
jpg.free;
bmp.free;
end;
function JPG2BMP(JPGFileName,BmpFileName:string):boolean;
var jpg:TJPEGImage;
bmp:tBitMap;
begin
jpg:=TJPEGImage.create;
bmp:=TBitMap.create;
result:=true;
try
jpg.loadfromfile(JPGFileName);
bmp.assign(jpg);
bmp.SaveToFile(BmpFileName);
except
result:=false;
end;
jpg.free;
bmp.free;
end;