如何将大的*.bmp位图文件压缩成小文件传输到网络?

Question

转换为jpg,然后再压缩50%,效果完全和以前一样,文件大小最多有几十kb
[email protected]

Answer 1

转成JPEG会使原来的图象变差，最好用Delphi的未公开单元 zlib.dcu 将文件压缩。
经我测试，多数bmp文件经zlib压缩后效果不jpeg要高，而且图象没有损失！
Delphi5的zlib.dcu单元有BUG(D6未测试),可以到我的主页下载
 http://oopsware.home.chinaren.com

Answer 2

转换成jpg。uses Jpeg;var bmp :TBitmap;
    jpg :TJpegImage;try
  bmp := TBitmap.Create(self);
  jpg := TJpegImage.Create(self);
  bmp.LoadFromFile(BMp的文件名);
  jpg.Assign(bmp);
  jpg.SaveToFile(JPG文件名);
finally
  bmp.Free;
  jpg.Free;
end;

Answer 3

使用Zlib的压缩应该是最好的选择.