delphi – 使用TJpegImage组件将bmp转换为jpg的问题

发布时间：2020-12-15 09:33:13 所属栏目：大数据来源：网络整理

导读：我有一个bmp文件,我试图将其转换为jpeg格式.使用以下代码创建的jpeg失去了很多清晰度.我试过调整许多设置无济于事. 有没有人有一个将bmp文件转换为jpeg的功能？ var Bmp: TBitmap; Jpg: TJPEGImage;begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create;

我有一个bmp文件,我试图将其转换为jpeg格式.使用以下代码创建的jpeg失去了很多清晰度.我试过调整许多设置无济于事.

有没有人有一个将bmp文件转换为jpeg的功能？

var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpg.Assign(Bmp);
    jpg.PixelFormat    :=jf24bit;  // or jf8bit
    Jpg.CompressionQuality := 100;
    Jpg.ProgressiveDisplay := False;
    Jpg.ProgressiveEncoding := False;

    Jpg.SaveToFile(JpgFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;

更新II很多人都回应说jpeg不是这种情况下使用的图形类型.了解.不是为了击败死马,但我已经能够使用其他程序(即Photoshop)并将其转换为漂亮的jpeg.我用来创建图表(fusioncharts)的工具也可以将它导出到漂亮的jpeg(见下文).有什么不同？

解决方法

正如其他人所说,JPEG对于那种图像来说只是错误的格式 – 而且对于高频色度边缘,你可能有一个最糟糕的JPEG图像！

我建议您获取Paint.Net的副本,并尝试以不同的格式(PNG,JPEG,GIF,BMP等)保存/预览图像,并自己了解图像大小,质量和性能之间的权衡.

我已经尝试用Paint.net保存您的测试图像为JPEG,并获得与Delphi提供的完全相同的质量,因此您(或Delphi)正在做的事情现在有问题…

更新：
According to Wikipedia…

There is an optional lossless mode
defined in the JPEG standard; however,
that mode is not widely supported in
products.

我猜想FusionCharts和Photoshop有一种指定这种模式的方法.它通常不常用,因为JPEG通常被认为是LOSSY压缩的同义词.

总之,虽然JPEG文件可以支持无损压缩,但JPEG不是理想的格式,因为它没有得到广泛支持.如果你想要无损,PNG仍然是一个更好的选择. PNG压缩版本的图像比无损压缩JPEG图像小30％(71K vs 101K)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!