如何将大的*.bmp位图文件压缩成小文件传输到网络? 转换为jpg,然后再压缩50%,效果完全和以前一样,文件大小最多有几十kb[email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 转成JPEG会使原来的图象变差,最好用Delphi的未公开单元 zlib.dcu 将文件压缩。经我测试,多数bmp文件经zlib压缩后效果不jpeg要高,而且图象没有损失!Delphi5的zlib.dcu单元有BUG(D6未测试),可以到我的主页下载 http://oopsware.home.chinaren.com 转换成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; 使用Zlib的压缩应该是最好的选择. 请问哪里有资源修改控件ResourceUtils下载? 修改后的pas编译后不生效 请问这是什么意思? 一个DBEXPRESS的事务问题?! 如何让鼠标放到一个按扭上,鼠标变成手指型? 谁用过.XML文件?要点资料行不,帮帮我。谢谢。 谁能给我一个局域网内,通过对方的机器名传送文件的例子。(不用ip),谢谢 to lovewangj(lllll) sos!紧急求援!跳楼给分! Epson Tm-U220用Esc/pos指令打印时任意放大字体 "bokei(一夜好眠)"你在吗,我不知道怎样"把Connection的LoginPrompt设置为False" 请帮忙定义一下这个函数
经我测试,多数bmp文件经zlib压缩后效果不jpeg要高,而且图象没有损失!
Delphi5的zlib.dcu单元有BUG(D6未测试),可以到我的主页下载
http://oopsware.home.chinaren.com
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;