jpeg图片压缩

页面导航:首页 > 软件编程 > Delphi > jpeg图片压缩

jpeg图片压缩

来源: 作者: 时间:2016-01-18 15:42 【

一个压缩jpeg图片的过程[delphi] uses jpeg; procedure ZipJPEG; var jpg: TJpegImage; bmp: TBitmap; begin jpg := TJpegImage.Create; bmp := TBitmap.Create; try www.2cto.co...
一个压缩jpeg图片的过程
[]  
uses jpeg;  
  
procedure ZipJPEG;  
var  
  jpg: TJpegImage;  
  bmp: TBitmap;  
begin  
  jpg := TJpegImage.Create;  
  bmp := TBitmap.Create;  
  try   www.2cto.com
    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;  
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<