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..4096] of 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;