more gzip clean up

costateixeira · Jan 5, 2024 · d8be251 · d8be251
1 parent 1c9a4ff
commit d8be251
Show file tree

Hide file tree

Showing 6 changed files with 10 additions and 463 deletions.
diff --git a/library/dicom/dicom_parser.pas b/library/dicom/dicom_parser.pas
@@ -32,7 +32,7 @@
 
 Uses
   SysUtils,
-  fsl_base, fsl_utilities, fsl_stream, fsl_fpc,
+  fsl_base, fsl_utilities, fsl_stream, fsl_fpc, fsl_gzip,
   dicom_dictionary, dicom_objects, dicom_writer;
 
 
@@ -1569,7 +1569,7 @@ function TDicomInstanceDecoder.Execute: TDicomInstance;
       SetLength(sComp, oInput.Size);
       oInput.Position := 0;
       oInput.Read(sComp[1], oInput.Size);
-      sDecomp := ZcompressBytes(sComp);
+      sDecomp := ungzip(sComp);
       oInput.Position := 0;
 
       oPDU := TDicomPDUDecoder.Create(oInput.Size);