PureBasic

Code : Tout sélectionner

NomFichier$="d:/5pics.zip"

CreatePack(NomFichier$)
OpenPack(NomFichier$)

For i=1 To 5
AddPackFile("d:/"+Str(i)+".jpg")  
Next

ClosePack()

Code : Tout sélectionner

NomFichier$="d:/5pics.zip"

CreatePack(NomFichier$)
;OpenPack(NomFichier$)

For i=1 To 5
AddPackFile("d:/"+Str(i)+".jpg") 
Next

ClosePack()

Code : Tout sélectionner

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Procedure.l Compression(NomFichier$, MsgOpenFile$, TypeFichier$, FiltreFichier$, TitreErreur$, MsgError$, TauxCompression.b)
  
  If CreatePack(NomFichier$) <> 0 ; crée le le fichier qui va être compressé
    Resultat = 1
    packers$ = OpenFileRequester(MsgOpenFile$, TypeFichier$, FiltreFichier$, 0, #PB_Requester_MultiSelection)
    
    If packers$ <> "" ; teste si la chaine existe
      Repeat
        Fichier$ = GetFilePart(packers$) ; récupère seulement le nom de fichier
        AddPackMemory( @Fichier$, Len(Fichier$) + 1) ; ajoute le nom de fichier, la zone mémoire étant la chaine Fichier$
        ; on ajoute 1 à len(Fichier$) pour écrire le 0 qui est le caractère de fin de chaine
        AddPackFile(packers$, TauxCompression) ; rajoute la selection et niveau de compression
        packers$ = NextSelectedFileName() ; ajoute le fichier compressé
      Until packers$ = "" ; on reboucle tant qu'il y a des fichiers compressés
      ClosePack() ; ferme le pack
      
    Else
      MessageRequester(TitreErreur$, MsgError$, #MB_ICONERROR)
      Resultat = 0
    EndIf
    
  Else
    Resultat = 0
  EndIf
  
  ProcedureReturn Resultat
  
EndProcedure

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Procedure.l Decompression(FichierCompresser$, TitrePathRequester$, InitialPath$, Repertoire$, TitreErreur$, MsgError$)
  
  If OpenPack(FichierCompresser$) <> 0
    Resultat = 1
    If Repertoire$ = ""
      Repertoire$ = PathRequester(TitrePathRequester$, InitialPath$)
    EndIf
    
    NomFichier$ = Space(256) ; crée la variable chaine qui récupèrera le nom de fichier courant
    AdresseMemoire = NextPackFile() ; On récupère le premier élément compressé, c'est-à-dire le nom du fichier
    
    While AdresseMemoire ; on débute la boucle
      NomFichier$ = PeekS(AdresseMemoire) ; récupère le nom de fichier en situé en mémoire
      AdresseMemoire = NextPackFile() ; récupère l'adresse du fichier à décompresser
      Taille = PackFileSize() ; récupère la taille du fichier à décompresser
      CreateFile(0, Repertoire$ + NomFichier$) ; on crée le fichier sur le disque avec le répertoire sélectionné
      WriteData(0, AdresseMemoire, Taille) ; on écrit le contenu du fichier
      CloseFile(0) ; on ferme le fichier
      AdresseMemoire = NextPackFile() ; on continue l'opération tant que adresseMemoire est différent de 0
    Wend
    
    ClosePack() ; ferme le pack
    
  Else
    MessageRequester(TitreErreur$, MsgError$, #MB_ICONERROR)
    Resultat = 0
  EndIf
  
  ProcedureReturn Resultat
  
EndProcedure

Code : Tout sélectionner

NomFichier$="d:/5pics.pak"

CreatePack(NomFichier$)

For i=1 To 5
AddPackFile("d:/"+Str(i)+".jpg",9) 
Next

ClosePack()

Code : Tout sélectionner

NomFichier$="d:/5pics.pak"

CreatePack(NomFichier$)

For i=1 To 5
AddPackFile("d:/"+Str(i)+".jpg",9) 
Next

ClosePack()

Code : Tout sélectionner

NomFichier$="d:/5pics.pak"

If OpenPack(NomFichier$)
   
  For i = 1 To 5
    
    AdresseMemoire = NextPackFile() 
   
    If AdresseMemoire > 0
      
      Taille = PackFileSize()
      
      If CreateFile(i, "d:/"+Str(i)+".jpg")
        WriteData(i, AdresseMemoire, Taille) 
        CloseFile(i)
      EndIf 
      
    EndIf 
    
  Next
   
  ClosePack()
   
EndIf