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的压缩比, 就算达到了画面也可以用惨不忍睹来形容

    已采纳该答案
    打赏 评论

相关推荐 更多相似问题