PureBasic

Code : Tout sélectionner

#PB_Compiler_MainSourceFile 

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
    
Procedure zipPackMemory(*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

Procedure zipUnpackMemory(*source, *dest)
  Protected sourceLen = MemorySize(*source)
  Protected destLen = MemorySize(*dest)
  
  If Not uncompress(*dest, @destLen, *source, sourceLen)
    ProcedureReturn destLen
  EndIf
EndProcedure

;si ce code est exécuter seul alors je compile aussi l'exemple qui va avec
;et je ne compile pas ce code si ce fichier est inclus dans un projet
CompilerIf #PB_Compiler_MainSourceFile=#True
  text.s="test de compression dans une phrase tres longue..."
  size=StringByteLength(text,#PB_Ascii)+1
  Debug "taille de depart:"+Str(size)
  *Mem = AllocateMemory(size)
  PokeS(*Mem,text)
  *src=zipPackMemory(*Mem)
  Debug "taille compressé:"+Str(MemorySize(*src))
  FreeMemory(*Mem)
  *new=AllocateMemory(size)
  zipUnpackMemory(*src, *new)
  Debug PeekS(*new,#PB_Ascii)
CompilerEndIf

Code : Tout sélectionner

CompilerIf Defined(MAIN_FILE,#PB_Constant)=0
  Debug "Cette partie sera compilé"
CompilerEndIf