首页 > 代码库 > gzip, deflate delphi xe 2 解码 成功 哈哈

gzip, deflate delphi xe 2 解码 成功 哈哈


2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
http://bbs.csdn.net/topics/190020986
 
 
function CFFunc.Compression.Zlib.DeCompressionStream(const AInStream,
  AOutStream: TStream) : Boolean;
var
  ds : TDeCompressionStream;
  buff : array[1..4096of Byte;
  iread : integer;
begin
  Result  :=  True;
  AInStream.Position := 0;
  try
    ds := TDeCompressionStream.Create(AInStream);
    try
      repeat
       iread := ds.Read(buff, sizeof(buff));
       if iread > 0 then
         AOutStream.Write(buff, iread);
      until (iRead = 0);
    finally
      ds.Free;
    end;
  except
    Result  :=  False;
  end;
end;