谁能给我解释下这几行代码？

[tccsdn]

var
DecompressionStream :TDecompressionStream;
count, i :integer;
buf:pchar;
begin
SFile:=TMemoryStream.Create;
Sfile.LoadFromFile('ab.dat');
sfile.Read( count, sizeof(count) );

getmem(buf,count);
DecompressionStream:=TDecompressionStream.Create(sfile);
//-------上面这行不知道怎么在BCB里面用？？
Decompressionstream.ReadBuffer(buf^,count);
sfile.Clear ;
sfile.WriteBuffer(buf^,count);
sfile.position:=0;
decompressionstream.free;
freemem(buf);
上面这段代码不知道做了些什么东西？有什么用？望大家解释一下

[arraden]

关注，以前直接用过的，现在忘了。

[qiuafa]

在工程加入ZLIB.PAS，编译产生.ojb .hpp，去除ZLIB.PAS，加入ZLIB.OBJ，#include "ZLIB.HPP"

[tccsdn]

to qiuafa：
在编译ZLIB。PAS文件的时候，提示错误是：
File not found: 'deflate.obj'
现在还有很多一样的错误，只是后面的文件名不一样，
错误位置是在这几行上面：
{$IFDEF MSWINDOWS}
{$L deflate.obj}
{$L inflate.obj}
{$L inftrees.obj}
{$L trees.obj}
{$L adler32.obj}
{$L infblock.obj}
{$L infcodes.obj}
{$L infutil.obj}
{$L inffast.obj}
是从ZLIB。PAS文件里面拷贝出来的，但不管是在DELPHI目录也好，BCB目录也好都找不到这些文件，这是怎么会事？

[qiuafa]

只要compile .pas，不要link.产生.obj .hpp即达到目的。
最后加入.obj，在link,如果link出错，那就表示还有相关的.pas也需要这样加入。

[tccsdn]

to qiuafa:
你说的没错，在编译的时候缺少ZLibConst.PAS文件，我从DELPHI目录下拷过来，再编译的时候就出现了上面的那错误

[烟波三千里人鬼五百年]

呵呵，那些文件都是开放源码的zlib源代码，编译得到的obj文件，delphi带的两个pas文件不过封装了一下罢了。
所以这个编译的时候比较麻烦，delphi并没有提供这些obj，一切都已经由dcu与编译过了。
但是bcb使用的时候没有zlib.pas生成的.hpp和obj是不行的。
所以你需要先从zlib编译得到这些obj才可以顺利地编译zlib.pas.比较麻烦，我手头没有delphi，没有这两个pas文件，不好试验。sorry

[myy]

应该是用 zlib 解压缩一个文件

[铖邑]

DecompressionStream:=TDecompressionStream.Create(sfile);
在BCB里面应该是
DecompressionStream=new TDecompressionStream(sfile);

[crzman37]

这个好像是PASCALLJ里面的结构一样，有BEGIN应该有END。
这个程序是将一个文件放入内存，然后再进行压缩。

[tccsdn]

关键是不知道TDecompressionStream在BCB里面包含哪个头文件啊

[hy1080]

DecompressionStream是个什么对象? xpdavis(咕嘟) 说的应当对.
或者是加密吧?

[烟波三千里人鬼五百年]

http://www.yesky.com/20030311/1656296.shtml

[tccsdn]

谢谢 CKER提供的连接，在DELPHI6里面有个ZLIB。DCU的文件，DELPHI7里面还多了一个ZLIB。PAS文件，所以都能正常使用，但在BCB里面找不到ZLIB开头的任何文件，不知道在BCB里面怎么才能用这个类呢？