Page 1 sur 1
Décompresser un fichier d'un pack
Publié : sam. 11/déc./2004 15:02
par 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.
Publié : sam. 11/déc./2004 15:07
par Anonyme2
Regardes le message ici, peut-être que ça t'aidera
http://purebasic.hmt-forum.com/viewtopic.php?t=520
Publié : sam. 11/déc./2004 15:23
par gansta93
OK... j'y ai répondu sur le truc que je ne comprand pas... réponds où tu le veux.
Publié : sam. 11/déc./2004 15:40
par 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.