Page 1 sur 1
Extraire fichier binaires inclus
Publié : mar. 22/nov./2011 18:39
par Parole De JOJO
Bonsoir
J'ai un executable purebasic avec des fichiers inclus dedans par include binary (fichiers video)
Il y a t il un moyen de les extraire?
Merci
Re: Extraire fichier binaires inclus
Publié : ven. 02/déc./2011 9:17
par brossden
Bonjour
Si tu nous donnes ton fichier on peu essayer de t'aider mais comme cela c'est difficile te te dire quelque chose !
Re: Extraire fichier binaires inclus
Publié : ven. 02/déc./2011 15:50
par Ar-S
L'auto extraction a été vu plusieurs fois. Voilà un exemple (qui marche).
Code : Tout sélectionner
; Auto Extraction / Ar-S / 2011
Enumeration
#win
#BT
EndEnumeration
path$ = GetCurrentDirectory()
If OpenWindow(#win, 450, 200, 400, 400, "Demo Auto Extraction", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
ButtonGadget(#BT, 115, 140, 160, 75, "EXTRACT")
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #BT
; c'est cette partie qui nous intéresse.
If CreateFile(0, path$ + "nouveau.pb")
WriteData(0, ?Debut, ?Fin- ?Debut)
CloseFile(0)
Else
MessageRequester ("Erreur", "ça chie" ,#MB_OK) ;-test
EndIf
;------------------------
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #win
CloseWindow(#win)
Break
EndSelect
EndSelect
ForEver
EndIf
Debut:
IncludeBinary "inclusion_exclusion_dans_un_exe.pb"
Fin: