如何在不损失太多图像质量的情况下将 Jpeg 文件压缩到有限的大小（例如 200KB）

Question

我希望在保存到数据库之前减少大约 200KB 的图像大小。假设我有一个 39MB 左右的位图文件，我需要将位图转换为 Jpeg，然后减少 Jpeg 文件

    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;

我使用相同的图像文件在 Adob​​e Lightroom 程序中转换导出对话框，限制大小为 200KB，并与上述函数 BMPtoJPG 转换的图像进行比较。 Adobe Lightroom 的图像质量比函数方法好得多（文件大小都在 200KB 左右）

谁能告诉我如何编写代码来减小图像大小（限制大小为 200KB），同时质量不会下降太多。

感谢您的回答。

Answer 1

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

因此，图像的全局质量可能会更好。

TJpegImage 依赖于标准 libjpeg 库，而我认为 Adob​​e 有自己的调整实现。您可以尝试其他实现，例如 GDI+ 或 a pure pascal implementation 甚至 old Intel's library 中包含的实现。

Answer 2

查看您的编码器是否支持采样。如果您以低于 Y 分量的速率对 Cb 和 Cr 分量进行采样，则通常可以获得更好的压缩效果而不会造成大量质量损失。如果您执行 4:1:1，您可以将要压缩的数据量减少近三分之一。 2:1:1 减半。

这种技术称为chroma subsampling。 不幸的是，德尔福的股票TJpegImage 包装了 IJG 实现版本。 6b 没有公开此功能并将编码器上下文初始化为对应于 4:2:0 的所有默认值。如果您愿意，请参考TJPEGImage.Compress 方法代码、libjpeg 文档和pasjpeg 包中的jpeglib.h 或JPEGLIB.PAS（后者只是将IJG 实现版本6a 直接转换为Pascal）。

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