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

[happysoft]

如何将大的*.bmp位图文件压缩成小文件传输到网络?有没有高手能够指导小弟？

[wzzsoft]

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

[OopsWare]

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

[commandio]

使用api函数LZExpand

[票票飞扬]

转换成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;

[yayongm]

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