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: