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

概述我有一个bmp文件,我试图将其转换为jpeg格式.使用以下代码创建的jpeg失去了很多清晰度.我试过调整许多设置无济于事. 有没有人有一个将bmp文件转换为jpeg的功能？ var Bmp: TBitmap; Jpg: TJPEGImage;begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create; try Bmp.L 我有一个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)

总结

以上是内存溢出为你收集整理的delphi – 使用TJpegImage组件将bmp转换为jpg的问题全部内容，希望文章能够帮你解决delphi – 使用TJpegImage组件将bmp转换为jpg的问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。