jpeg图片压缩
一个压缩jpeg图片的过程[delphi]uses jpeg;procedure ZipJPEG;varjpg: TJpegImage;bmp: TBitmap;beginjpg := TJpegImage.Create;bmp := TBitmap.Create;try www.zzzyk.comjpg.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');finallybmp.free;jpg.free;end;end;
补充:软件开发 , Delphi ,