jpeg图片压缩

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

补充：软件开发 , Delphi ,

上一个：indy idhttp post方法
下一个：delphi 线程同步 临界区