Delphi中把bmp图片转换成jpg图片
2016-08-15 08:52
435 查看
//bmp图片转换成jpg图片
function fun_BmpToJpg(temp, path: String; ACQ: Integer): Boolean; stdcall;
var
MyJpeg: TJpegImage;
Bmp: TBitmap;
begin
result := false;
if FileExists(temp) then
begin
Bmp:= TBitmap.Create;
MyJpeg:= TJpegImage.Create;
Bmp.LoadFromFile(temp);
MyJpeg.Assign(Bmp);
MyJpeg.CompressionQuality := ACQ;
MyJpeg.Compress;
MyJpeg.SaveToFile(Path);
MyJpeg.free;
Bmp.free;
if FileExists(path) then
result := True;
end;
end;
function fun_BmpToJpg(temp, path: String; ACQ: Integer): Boolean; stdcall;
var
MyJpeg: TJpegImage;
Bmp: TBitmap;
begin
result := false;
if FileExists(temp) then
begin
Bmp:= TBitmap.Create;
MyJpeg:= TJpegImage.Create;
Bmp.LoadFromFile(temp);
MyJpeg.Assign(Bmp);
MyJpeg.CompressionQuality := ACQ;
MyJpeg.Compress;
MyJpeg.SaveToFile(Path);
MyJpeg.free;
Bmp.free;
if FileExists(path) then
result := True;
end;
end;
相关文章推荐
- Bmp 图片转换为 jpg 图片(delphi)
- delphi 实现 图片类型转换 jpg---bmp 及修改位图大小
- Delphi png、bmp、gif等图片格式转换成jpg
- BCB实现BMP图片的RGB分解,BMP与JPG格式的相互转换
- [转]Delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- 图片转换,把bmp图片转换为jpg图片
- 在 VC++6.0 中将 JPG 格式图片转换成 BMP 格式
- 在 VC++6.0 中将 JPG 格式图片转换成 BMP 格式
- 看看这个图片转换函数,为什么bmp转jpg时正常,jpg转jpg时,转成的图片Delphi自己不认识.
- opencv实现不同格式图片的转换(jpg<-->bmp)
- JAVA 实现jpg/tif/bmp 等图片格式互相转换,解决RenderedOp资源不能释放
- C++Builder中实现BMP,JPG图片格式的转换
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- C# 图片格式(JPG,BMP,PNG,GIF)等转换为ICO图标
- 使用JAVA 实现jpg/tif/bmp 等图片之间格式得互相转换
- [转载]C#图片格式(JPG,BMP,PNG,GIF)等转换为ICO图标
- java将图片缩放实现类(能将jpg、bmp、png、gif图片文件,进行等比或非等比的大小转换)
- BMP与JPG图片格式的互相转换
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法