怎么高质量压缩图片

titanred

1. DescImage:= TBitmap.Create;
   
2. SaveImage:= TPicture.Create;
   
3. try
   
4.     DescImage.Width:= Width;
   
5.     DescImage.Height:= Height;
   
6.     DescImage.Canvas.StretchDraw(Rect(0, 0, Width, Height), SourceImage.Graphic);
   
7.     SaveImage.Assign(DescImage);
   
8.     SaveImage.FindGraphicClassWithFileExt('jpg');
   
9.     SaveImage.SaveToFile(DescFileName);
   
10. finally
    
11.     DescImage.Free;
    
12.     SaveImage.Free;
    
13. end;

复制代码

Lazarus 做一个压缩图片的代码，压缩出来的图像损耗很大，完全比不上其他软件做出来的样子。

不要发 Delphi 的代码，我用 GDI+ 做过。