关于TZCompressionStream的奇怪问题

lzg827 2015-11-17 05:50:39

环境：XP+Delphi2006，一套很久以前的老代码。之前在同一个机器上编译过，重装系统后怎么也弄不好了。。。

一直提示Undelared iddentifier:'TZCompressionStream'

代码肯定没问题，从SVN下载的。
我查过TZCompressionStream这个类在IDZlibEx中，但引用后还是不行。。。。
原来直接从SVN下载后就可以编译，没这么折腾。。。求各位大神帮忙，估计是哪里的小问题忽略了。分不是问题，不够再加

...全文

296 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

lzg827 2017-07-19

打赏
举报

回复

好久没进来，呵呵，原来还有未结贴。不好意思

lyhoo163 2015-11-18

打赏
举报

回复

安装的话，它在Delphi CD的 \Info\ Extras\Zlib\Src 和 \Info\ Extras\Zlib\Obj 目录中。

lyhoo163 2015-11-18

打赏
举报

回复

压缩流TZCompressionStream是Delphi自带的Zlib单元中，检查一下Delphi是否安装了。否则，你可以在Component菜单，找到Zlib将它安装一下。

缘中人 2015-11-17

打赏
举报

回复

TZCompressionStream IDZlibEx文件引用了吗你自己建立个新工程试试

接着前面的传：
实例21 超链接
实例22 hook程序记录与回放鼠标、键盘动作
实例23 制作透明窗体
实例24 渐变背景
实例25 控制Windows任务栏
实例26 制作字幕滚动窗体
实例27 Splash Screen
实例28 枚举系统窗口标题
实例29 Windows底层任务控制
实例30 实时监控窗体尺寸
实例31 伸展窗体
实例32 不规范窗体
实例33 选择建立子窗体
实例34 添加启动退出画面
实例35 屏保预览
实例36 特殊位置的按钮
实例37 图片浏览工具
实例38 特效窗体
实例39 Office Xp风格的简单菜单设计
实例40 文件的打开和关闭

号称比 DELPHI 自带的 zlib 更快 ...Hello,you can found an optimized version of Zlib 1.2.1 that you can embed into every Delphi executable without use external dlls.Further I have build a little example hoping to aid "young" Delphi programmers getting in trouble with streams...Please let me know if you‘ll discover errors.These objects and sources are targeted for executing into P6+ CPU core, and Delphi5-6-7-x software.Benchmarks show this zlib 40% average faster than native DLL distribution and 100% reliable (original test of zlib 1.1.4 version).How to compress and decompress a file:procedure TForm1.Button1Click(Sender: TObject);var InputStream, OutputStream: TFileStream; DeCompressionStream: TZDecompressionStream; CompressionStream: TZCompressionStream; InputFileName, OutputFileName: string;begin//compress InputFileName := ‘c:image.png‘; OutputFilename := ‘c:image.png.bzip‘; InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest); CompressionStream.CopyFrom(InputStream, InputStream.Size); CompressionStream.Free; OutputStream.Free; InputStream.Free;// decompress InputFileName := ‘c:image.png.bzip‘; OutputFilename := ‘c:image2.png‘; //rename to original into final code InputStream := TFileStream.Create(InputFileName, fmOpenRead); OutputStream := TFileStream.Create(OutputFileName, fmCreate); DecompressionStream := TZDecompressionStream.Create(InputStream); OutputStream.CopyFrom(DecompressionStream, 0); DecompressionStream.Free; OutputStream.Free; InputStream.Free;end;Cheers,Roberto Della Pasqua,www.dellapasqua.com.Btw: these sources code of zlib 1.2.1 aren‘t changed by me and now I get some compiler warnings, but don‘t worry: they are only little hints about code sintax (cross-platform C compiler typical behavior).

最近由于项目需要涉及到解压第三方公司的数据，在此做一下记录环境部署和使用方法，免得以后忘记。对方公司的数据是通过TCompressionStream 压缩之后，存到数据库中,采用的delphi7.起初以为直接用TCompressionStream就能搞定，实际发现BCB 没有这个东西。需要另外部署。上网搜索之后，发现本质是一个叫zlib的库。我用的是 ...

问题来源: http://www.cnblogs.com/del/archive/2008/08/02/1022539.html#1275599 本例是在这个例子的基础上修改的: http://www.cnblogs.com/del/archive/2008/01/01/1022539.html 本例效果图: 代码文件: unit Unit1; interface ...

最近对接了某银行的账单下载,账单接口采用了java开发并且,进行了deflate压缩.使用Delphi解压缩的时候,Delphi XE版本目前支持直接的deflate解压缩:查了一下官方文档。

5,930

社区成员

262,937

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章