PureBasic

Code : Tout sélectionner

; Autor: Thomas (ts-soft) Schulz
; PB-Version: 4.xx
; OS: windows/linux/MacOS

CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
        ImportC #PB_Compiler_Home + "purelibraries/linux/libraries/zlib.a"
CompilerCase #PB_OS_MacOS
    ImportC "/usr/lib/libz.dylib"
    CompilerCase #PB_OS_Windows
        ImportC "zlib.lib"
CompilerEndSelect
    compress2(*dest, *destLen, *source, sourceLen, level)
    uncompress(*dest, *destLen, *source, sourceLen)
EndImport

;Compression
Procedure.i gzdeflate(*source, sourceLen = #PB_Default, level = #PB_Default)
    Protected *dest, destLen
    
    If level < #PB_Default Or level > 9 : level = #PB_Default : EndIf
    If *source
        If sourceLen = #PB_Default : sourceLen = MemorySize(*source) : EndIf
        destLen = sourceLen + 13 + (Int(sourceLen / 100))
        *dest = AllocateMemory(destLen)
        If *dest
            If Not compress2(*dest, @destLen, *source, sourceLen, level)
                *dest = ReAllocateMemory(*dest, destLen)
                ProcedureReturn *dest
            EndIf
        EndIf
    EndIf
EndProcedure

;Decompression
Procedure.i gzinflate(*source, *dest)
    Protected sourceLen = MemorySize(*source)
    Protected destLen = MemorySize(*dest)

    If Not uncompress(*dest, @destLen, *source, sourceLen)
        ProcedureReturn destLen
    EndIf
EndProcedure

file$ = "source.c"
Global lengthOfFile.i

If ReadFile(0, file$)
  lengthOfFile = Lof(0)
  *MemoryID = AllocateMemory(lengthOfFile)
  If *MemoryID
    bytes = ReadData(0, *MemoryID, lengthOfFile)
  EndIf
  CloseFile(0)
Else
  End
EndIf

;compression
*MemoryCompressed = gzdeflate(*MemoryID)
CreateFile(0, "source_c.gz")
WriteLong(0, lengthOfFile)
WriteData(0, *MemoryCompressed, MemorySize(*MemoryCompressed))
CloseFile(0)

;decompression
ReadFile(1, "source_c.gz")
sourcelen = ReadInteger(1)
;Debug "len file to compress = "+Str(sourcelen)
sourceMem = Lof(1) - SizeOf(Integer)
*MemoryCompressed = AllocateMemory(sourceMem)
*MemoryDecompress = AllocateMemory(sourcelen)
ReadData(1, *MemoryCompressed, sourceMem)
CloseFile(1)
gzinflate(*MemoryCompressed, *MemoryDecompress)

;et sauvegarde fichier décompressé
CreateFile(2, "source_deflate.c")
WriteData(2, *MemoryDecompress, MemorySize(*MemoryDecompress))
CloseFile(2)

Code : Tout sélectionner

;
; Need ZlibStatic.lib
;
Import "d:\programmation\purebasic\projects\zipmagic\ZlibStatic.lib"
  gzclearerr(a.l) As "_gzclearerr@4"
  gzclose(a.l) As "_gzclose@4"
  gzdopen(a.l,b.l) As "_gzdopen@8"
  gzeof(a.l) As "_gzeof@4"
  gzerror(a.l,b.l) As "_gzerror@8"
  gzflush(a.l,b.l) As "_gzflush@8"
  gzgetc(a.l) As "_gzgetc@4"
  gzgets(a.l,b.l,c.l) As "_gzgets@12"
  gzopen(a.l,b.l) As "_gzopen@8"
  gzprintf() As "_gzprintf"
  gzputc(a.l,b.l) As "_gzputc@8"
  gzputs(a.l,b.l) As "_gzputs@8"
  gzread(a.l,b.l,c.l) As "_gzread@12"
  gzrewind(a.l) As "_gzrewind@4"
  gzseek(a.l,b.l,c.l) As "_gzseek@12"
  gzsetparams(a.l,b.l,c.l) As "_gzsetparams@12"
  gztell(a.l) As "_gztell@4"
  gzungetc(a.l,b.l) As "_gzungetc@8"
  gzwrite(a.l,b.l,c.l) As "_gzwrite@12"
EndImport

;- --- Compression --
dir.s = "C:\temp\"
sourceFile.s = "test.txt"
archiveName.s = "compressed-test.gz"

source.s = dir + archiveName
fileHdl = gzopen(@source, @"wb9");Type of access permitted "wb" or "rb" + comressionlevel and strategy i.e. "wb9f"
; "r" : Opens for reading. If the file does not exist or cannot be found, the fopen call fails.
; "w" : Opens an empty file for writing. If the given file exists, its contents are destroyed.
;
; This are the same parameters as for the fopen function in c++
; 9 for max compression, 0 for no compression (0 can be good for controlling with an editor what happened).
; 'f' for filtered data as in "wb6f", 'h' for
; Huffman only compression as in "wb1h", Or 'R' For run-length encoding ...
; See the description of deflateInit2 in zlib.h  for more information for these parameters
Debug "fileHdl for write= " + Str(fileHdl)

; Add a single character
; zerr=gzputc(fileHdl, Asc("H"))

; Add a string
; zerr=gzputs(fileHdl, @"Hello |");returns length of the uncompressed string
; Debug "err gzputs " + Str(zerr)

; Add a file
If ReadFile(0, dir + sourceFile)
  length = Lof(0)
  *Buffer = AllocateMemory(length)
  If *Buffer <> 0
    length = ReadData(0, *Buffer, length)
  EndIf
  CloseFile(0)
Else
  Debug "'"+dir + sourceFile +"' not found!"
  End
EndIf
  
zerr=gzwrite(fileHdl, *Buffer, length)  ;returns length of the uncompressed
Debug "err gzwrite " + Str(zerr)       ;string if successfull and a zerror if not

zerr=gzclose(fileHdl)
FreeMemory(*Buffer)


;- --- Decompression ---
dir.s = "C:\temp\"
archiveName.s = "test.txt.gz"
destinationFile.s = "uncompressed-test.txt"

target.s = dir + archiveName
If OpenFile(0,target)
  length=Lof(0)
  FileSeek(0,length-4)
  length=ReadLong(0) ;the length of the uncompressed data is stored in the last 4 bytes
  Debug "uncompressed length " + Str(length)
  CloseFile(0)
EndIf

fileHdl = gzopen(@target, @"rb");"rb" for read byte, returns the file handle
Debug "fileHdl for read= " + Str(fileHdl)
Buffer$=Space(length)
len=gzread(fileHdl,@Buffer$,length)
Debug PeekS(@Buffer$)
Debug "Bytes read: " + Str(len);if len < 0 then an error occured

zerr=gzclose(fileHdl)

CreateFile(0,dir + destinationFile)
WriteString(0,PeekS(@Buffer$))
CloseFile(0)