Décompresser un fichier d'un pack

[gansta93]

Bonjour,

Je m'exerce en ce moment sur la librairie Packer.
Je voi qu'il est très facil de créer un pack, ajouter des fichiers, et des données... très bien.
Mais une fois que je veux extraire tout ça, ça devient une autre histoire...
Comment puis-je par exemple décompresser un fichier contenu dans un pack?

Merci d'avance.

[Anonyme2]

Regardes le message ici, peut-être que ça t'aidera

http://purebasic.hmt-forum.com/viewtopic.php?t=520

[gansta93]

OK... j'y ai répondu sur le truc que je ne comprand pas... réponds où tu le veux.

[gansta93]

C'est bon, j'ai compris en fait... génial!

Code : Tout sélectionner

DefType.s NomFichier
If CreatePack("D:\Essais.pak")
NomFichier="Config.sys"
AddPackMemory(@NomFichier,Len(NomFichier)+1,9)
AddPackFile("C:\Config.sys",9)
NomFichier="AutoExec.bat"
AddPackMemory(@NomFichier,Len(NomFichier)+1,9)
AddPackFile("C:\AutoExec.bat",9)
ClosePack()
MessageRequester("","OK")
Else
MessageRequester("","Erreur 0")
End
EndIf
If OpenPack("D:\Essais.pak")
Addr=NextPackFile()
While Addr
NomFichier=PeekS(addr)
If CreateFile(0,"D:\"+NomFichier)=0
MessageRequester("","Erreur "+NomFichier+".")
Else
addr=NextPackFile()
WriteData(Addr,PackFileSize())
CloseFile(0)
EndIf
addr=NextPackFile()
Wend
ClosePack()
MessageRequester("","OK")
Else
MessageRequester("","Erreur 1")
EndIf
End

Bon... y a pas de mise en forme, et c'est du vite fait, mais ça marche... merci pour ton aide Denis, j'ai mis lontemps à imprimer .
Je vais aller supprimer ma réponse sur ton sujet.