Delphi中把bmp图片转换成jpg图片
来源:互联网 发布:互联网企业 知乎 编辑:程序博客网 时间:2024/06/14 04:03
//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;
0 0
- Delphi中把bmp图片转换成jpg图片
- Bmp 图片转换为 jpg 图片(delphi)
- bmp图片转换成jpg图片
- 用.NET把bmp图片转换为jpg图片
- 怎样把jpg图片转换成pdf
- 利用jpeglib把bmp图片转为jpg
- 怎么把图片转换成BMP格式
- 如何将JPG格式图片转换成BMP格式
- delphi 实现 图片类型转换 jpg---bmp 及修改位图大小
- MFC对话框中显示BMP,JPG图片
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- 怎么批量把jpg图片转换成pdf
- 怎么把多张jpg图片转换成pdf
- 把JPG图片转换成PDF格式的格式转换器
- 怎么把JPG格式的图片转换成PDF
- 怎么把JPG格式的图片转换成PDF
- 怎么把PDF文件转换成jpg格式图片
- hadoop,spark,大数据,数据分析,实战内部培训视频资料价值W+
- thinkpad touchpad useing secret
- 初识php3
- 熟悉java界面编程和IO操作的小例子
- MacOS 中使用 [dd] 指令烧录 ISO 镜像到 U 盘
- Delphi中把bmp图片转换成jpg图片
- 【HDU】-1155-Bungee Jumping(物理)
- 解决 Cookie 中文存储异常
- dir.php
- android防新闻循环轮播图效果
- UVa1589 ACM/ICPC 2011 象棋
- 自定义 View 实现类似京东、天猫收件地址的信封分割线控件
- 从零基础接触java第五周第一节
- [git] warning: LF will be replaced by CRLF | fatal: CRLF would be replaced by LF