没有合适的资源?快使用搜索试试~ 我知道了~
Delphi数据压缩处理
5星 · 超过95%的资源 需积分: 10 8 下载量 62 浏览量
2010-08-27
16:20:48
上传
评论
收藏 30KB DOC 举报
温馨提示
试读
7页
首先利用屏幕拷贝捕获到当前整个屏幕的图像,然后在内存中保存为 BMP文档格式。压缩时,使用 TCompressionStream对象对原始图像进行压缩并且保存为自定义的文档格式;解压缩时,使用 TDecompressionStream对象对被压缩的图像进行解压缩,还原为 BMP格式的图像文档。
资源推荐
资源详情
资源评论
Delphi 数据压缩处理
公司推出的 研发工具 作为 平台上的主流研发工具,其可
视化的研发环境和面向对象编程的强大功能已吸引了无数的研发人员。但是,一些程式员
在实际的研发过程中却时常为对大量的数据进行压缩而伤透脑筋,不得不去查找一些高效
的压缩算法或在网上查找第三方的控件来实现压缩。难道 本身没有提供这个功能吗?
其实 的程式设计师早就考虑到了这一点,他们提供了 和 两个
单元文档来解决数据压缩问题,实现了很高的数据压缩比率。这两个文档保存在
安装光盘上 目录下,此外,在 目录中还保存了 单元
引用的 文档。下面本文以压缩一个屏幕拷贝为例介绍如何使用这项功能。
解决思路
首先利用屏幕拷贝捕获到当前整个屏幕的图像,然后在内存中保存为 ! 文档格式。
压缩时,使用"#$%$ 对象对原始图像进行压缩并且保存为自定义的文档格式;
解压缩时,使用"$%$ 对象对被压缩的图像进行解压缩,还原为 ! 格
式的图像文档。
具体实现
新建一个项目文档,在主单元的接口部分引用 ,在主表单上放置两个按钮
&'、&(,在他们的#) 事件中写上相应的过程调用代码。
部分程式源代码如下:
&*'+
&
, -,%.*,#,/,#,0$,-,%#,+
.
"0$'12"0$3
&'4"&+
&(4"&+
&&'#)2%4"3+
&&(#)2%4"3+
资源评论
- lcy7162015-04-06谢谢啦,已将压缩和解压缩方式应用到了自己的程序中,效果不错哦!
Jimmyloveyou
- 粉丝: 0
- 资源: 4
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功