delphi jpeg图片压缩

本文整理自网络，侵删。

 
uses jpeg;
procedure ZipJPEG;
var
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  jpg := TJpegImage.Create;
  bmp := TBitmap.Create;
  try
    jpg.LoadFromFile('c:\A.jpg');
    bmp.Width := jpg.Width;
    bmp.Height := jpg.Height;
    bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg);
    jpg.Assign(bmp);
    jpg.CompressionQuality := 10;
    jpg.Compress;
    jpg.SaveToFile('C:\AA.jpg');
  finally
    bmp.free;
    jpg.free;
  end;
end;
 

相关阅读 >>

Delphi xe5实现按android的back键无法退出关闭程序

Delphi判断字符是否是汉字

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi中关闭“返回值…可能未定义”的警告

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

Delphi 获取计算机名称 函数

Delphi 获取与设置系统环境变量

Delphi中实现磁盘信息类(tdriveinfo)

Delphi中转向语句break，continue，exit的作用

Delphi实现类似android锁屏的密码锁控件

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

转载请注明出处：木庄网络博客 » delphi jpeg图片压缩