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

Question

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

Answer 1

只有有损处理才能做到这点, 处理方式取决于你的图像格式
对于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的压缩比, 就算达到了画面也可以用惨不忍睹来形容