X-Git-Url: https://git.lizzy.rs/?a=blobdiff_plain;f=contrib%2Fdelphi%2FZLib.pas;h=e9d72f021da16a18e9dc57e28a4fb4ff296ca1ba;hb=4a090adef8c773087ec8916ad3c2236ef560df27;hp=ea9a17ffe3399df88d67ebeeb34537862156e9d5;hpb=4b5a43a219d51066c01ff2ab86af18b967f2d0dd;p=zlib.git diff --git a/contrib/delphi/ZLib.pas b/contrib/delphi/ZLib.pas index ea9a17f..e9d72f0 100644 --- a/contrib/delphi/ZLib.pas +++ b/contrib/delphi/ZLib.pas @@ -152,7 +152,7 @@ procedure DecompressToUserBuf(const InBuf: Pointer; InBytes: Integer; const OutBuf: Pointer; BufSize: Integer); const - zlib_version = '1.2.0'; + zlib_version = '1.2.10'; type EZlibError = class(Exception); @@ -344,7 +344,7 @@ begin strm.avail_out := OutBytes; DCheck(inflateInit_(strm, zlib_version, sizeof(strm))); try - while DCheck(inflate(strm, Z_FINISH)) <> Z_STREAM_END do + while DCheck(inflate(strm, Z_NO_FLUSH)) <> Z_STREAM_END do begin P := OutBuf; Inc(OutBytes, BufInc); @@ -510,7 +510,7 @@ begin Result := Count - FZRec.avail_out; Exit; end; - FZRec.next_in := FBuffer; + FZRec.next_in := FBuffer; FStrmPos := FStrm.Position; Progress(Self); end;