Delphi bmp jpg 转换保存

本文整理自网络，侵删。

 
function BMPsaveJPGfile(bmp: TBitmap;jpgFilename:string;ACQ:integer):boolean;
Var
  jpg:TJpegImage;
  I:TBitmap;
  S,D:String;
begin
   result:=false;
  Jpg:=TJpegImage.Create;
  Jpg.Assign(bmp);
  Jpg.CompressionQuality := ACQ;
  Jpg.Compress;
  Jpg.SaveToFile(jpgFilename);
  Application.processmessages;
  Jpg.Free;
  if FileExists(jpgFilename) then
      result := True;
end;

function BMP2JPG(bmp: TBitmap;ACQ:integer):TJpegImage;
Var
  jpg:TJpegImage;
  I:TBitmap;
  S,D:String;
begin
  Jpg:=TJpegImage.Create;
  Jpg.Assign(bmp);
  Jpg.CompressionQuality := ACQ;
  Jpg.Compress;
  result:=jpg;
end;

//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;
 

相关阅读 >>

Delphi 数组与子界

Delphi 利用Delphi监视注册表的变化

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi 为当前窗口客户区捉图: getformimage

Delphi百度云服务平台获取token

Delphi 带密匙的字符串加密解密函数(支持中文)

Delphi 设置本地系统时间

Delphi xe5实现android 安卓 左侧或者右侧菜单功能

Delphi第三方控件通用安装方法

Delphi高亮显示trichedit当前行

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi bmp jpg 转换保存