814123
2018-07-02 07:10
采纳率: 100%
浏览 1.1k
已采纳

delphi 利用TWICImage类来做图片的像素压缩？

比如1MB的JPG图片，不改变像素大小，把容量压缩到100KB，用TWICImage类如何实现，麻烦老师给代码参考，谢谢。
最好支持大部分图片格式，JPG BMP GIF PNG TIF。

  • 写回答
  • 赞 踩
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

  • 堕落恶魔_Delphi 2018-07-03 05:18
    已采纳

    只有有损处理才能做到这点, 处理方式取决于你的图像格式
    对于JPG来说, 就是调整压缩比了, TWICImage没有针对JPG封装压缩比接口, 可以使用TJPGEImage.CompressionQuality来修改(1压缩比最大质量最差 100压缩比最小质量最好)
    使用方式类似如下代码, 值得注意的是, 必须要先把原始图像转换为BMP格式才能调用TJPEGImage的压缩(参看Compress过程帮助信息)

    var
  Jpg,Jpo:TJPEGImage;
  Bmp:TBitmap;
begin
  Bmp:=TBitmap.Create;
  Jpo:=TJPEGImage.Create;
  Jpo.LoadFromFile('1.Jpg');
  Bmp.Assign(Jpo);

  Jpg:=TJPEGImage.Create;
  Jpg.Assign(Bmp);
  Jpg.CompressionQuality:=30;
  Jpg.Compress;
  Jpg.SaveToFile('2.jpg');
  Jpg.Free;

  Jpo.Free;
  Bmp.Free;
end;

    另外还有2中方式可以考虑
    1.使用其他图像格式, 比如GIF PNG 不过这个一般变化不大 达不到1M变成100K的效果
    2.降低颜色位数, 这个一般用于BMP格式, 对于颜色不复杂的图像效果很明显

    另外, 说一句, 除了某些特殊内容图片(比如大量纯色块图片), 在不想降低分辨率的情况下不太可能达到都是JPG格式大小又能达到1/10的压缩比, 就算达到了画面也可以用惨不忍睹来形容

    已采纳该答案
    赞 踩 打赏 评论

报告相同问题？

提交

相关推荐 更多相似问题