有谁用过zlib?(200分)

如果您有使用过,请告诉我你是怎么做的...

我在提类似问题的时候，有一位大侠提供了以下代码：

var inF, ouF, zpF: TStream;
buf: array[1..1024]of char;
i: integer;
begin
inF:=TFileStream.Create('Papper.ini', fmOpenRead);
ouF:=TFileStream.Create('Papper.Z', fmCreate);
zpF:=TCompressionStream.Create(clDefault, ouF);
zpF.CopyFrom(inF, 0);
zpF.Free;
inF.Free;
ouF.Free;

inF:=TFileStream.Create('Papper.Z', fmOpenRead);
ouF:=TFileStream.Create('Papper.txt', fmCreate);
zpF:=TDecompressionStream.Create(inF);
i:=zpF.Read(buf, 1024);
while i>0 do begin
ouF.Write(buf, i);
i:=zpF.Read(buf, 1024);
end;
ouF.Free;
zpF.Free;
inF.Free;
end.
我试用了，压缩部分没问题，但解压部分不对，不知该怎样改。
请参看：http://www.delphibbs.com/delphibbs/dispq.asp?LID=417753

不是这样的...
实际上,我是从http上接受一个经过ZLIB加密过的STRING,
现在我要用ZLIB解开,
谁能告诉我具体的做法吗?

听听

你怎么知道是用zlib加密过的STRING？你知道密匙（加密算法）吗？
……如果知道加密算法的话，都不用提这个问题了……
……如果不是这样，要想破解一个加密算法可不容易（如果这个加密算法不是很弱的话）！

接受答案了.