fix gzip related issues

costateixeira · Jan 6, 2024 · 9b89c52 · 9b89c52
1 parent d8be251
commit 9b89c52
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 253 deletions.
diff --git a/dependencies/zflate/zflate.pas b/dependencies/zflate/zflate.pas
@@ -79,7 +79,7 @@   tgzipinfo = record
 
 var
   zchunkmaxsize: dword = 1024*128; //128 KB default max chunk size
-  zbuffersize: dword = 1024*1024*4; //4 MB default buffer size
+  zbuffersize: dword = 1024*1024*16; //16 MB default buffer size
 
 threadvar
   zlasterror: integer;

diff --git a/dependencies/zflate/zflatefiles.pas b/dependencies/zflate/zflatefiles.pas
diff --git a/library/fsl/fsl_gzip.pas b/library/fsl/fsl_gzip.pas
@@ -56,7 +56,7 @@ function gzip(bytes : TBytes; header : boolean; level: dword=9) : TBytes;
 function ungzip(bytes : TBytes) : TBytes;
 begin
   result := zflate.zdecompress(bytes);
-  if length(result) = 0 then
+  if zlastError <> 0 then
     raise EFslException.create('Failed to read compressed content: '+zflatetranslatecode(zlasterror));
 end;