如何将Jpeg文件压缩到有限大小（例如200KB）而又不损失很多图像质量

Question

在保存到数据库之前，我希望将图像大小减小200KB左右。 假设我有一个约39MB的位图文件，我需要将位图转换为Jpeg，然后减小Jpeg文件<= 200KB（所有类型的图形文件都可以转换（例如bmp，jpg，png），但是最终的图形类型可以小于200KB）。 我正在编写以下代码尝试进行转换（在这种情况下，我将jpg品质设置为10，因为我希望文件大小为200KB）：

    function BMPtoJPG(var BMPpic, JPGpic: string):boolean;
    var Bitmap: TBitmap;
        JpegImg: TJpegImage;
    begin
      Result:= False;
      Bitmap := TBitmap.Create;
      try
        Bitmap.LoadFromFile(BMPpic) ;
        JpegImg := TJpegImage.Create;
        try
          JpegImg.CompressionQuality := 10; //in this case i set the quality to 10 so the file size will be around 200KB)
          JpegImg.Assign(Bitmap);
          JpegImg.Compress;
          JpegImg.SaveToFile(JPGpic) ;
          Result:=True;
        finally
          JpegImg.Free
        end;
      finally
        Bitmap.Free;
      end;
    end;

我使用相同的图像文件在导出对话框的Adobe Lightroom程序中进行转换，将大小限制为200KB，并与通过上述功能BMPtoJPG转换的图像进行比较。 Adobe Lightroom提供的高质量图像比功能方法要好得多（两个文件大小均在200KB左右）

任何人都可以向我展示如何编写代码来减少图像大小（将大小限制为200KB），而质量却不会下降太多。

感谢并感谢您的回答。

Answer 1

如果您的目标是缩小文件内容，则可以先调整位图的大小 ，然后再应用更好的CompressionQuality率。

结果，图像的整体质量可能会更好。

TJpegImage依赖于标准的libjpeg库，而我认为Adobe具有自己的优化实现。 您可以尝试其他实现，例如GDI +中包含的实现，或者纯Pascal实现 ，甚至是旧的Intel库 。

Answer 2

查看您的编码器是否支持采样。 如果以比Y分量低的速率对Cb和Cr分量进行采样，则通常可以获得更好的压缩效果而没有很多质量损失。 如果执行4：1：1，则将压缩的数据量减少了近三分之一。 2：1：1将其削减一半。

此技术称为色度二次采样 。 不幸的是，Delphi的股票TJpegImage包装器围绕IJG实现版本。 6b没有展示此功能，而是将编码器上下文初始化为对应于4：2：0的全默认值。 如果愿意，请参考来自pasjpeg包的TJPEGImage.Compress方法代码， libjpeg文档和jpeglib.h或JPEGLIB.PAS （后者只是将IJG实现版本6a转换为Pascal的直接翻译）。

另外，您可以迁移到其他实现之一。 除了@Arnaud Bouchez列表之外，值得一提的还有另一个可重用的Pascal实现： http : //www.colosseumbuilders.com/sourcecode