PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

comment inserer un fichier dan sun exe

http://forums.purebasic.com/french/viewtopic.php?t=3813

Page 1 sur 1

comment inserer un fichier dan sun exe

Publié : sam. 22/oct./2005 19:23
par scaraber
samlut j aimeria metre mes image de mon petit jeu dans le.exe ej c plus comment faire SVP un code merci

Publié : sam. 22/oct./2005 19:38
par Backup
Doc ---> image ---->CatchImage(#Image, MemoryAddress)

Publié : sam. 22/oct./2005 20:10
par Droopy

Code : Tout sélectionner

Restore Label1
Id=CatchImage(0,?Label1)

If OpenWindow(0,0,0,245,105,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ImageGadget") And CreateGadgetList(WindowID(0))
  ImageGadget(0, 10,10,100,83,Id)
EndIf
  
Repeat 
Until WaitWindowEvent()=#PB_Event_CloseWindow


DataSection
Label1:
IncludeBinary "c:\purearea.bmp"
EndDataSection

Publié : dim. 23/oct./2005 8:18
par scaraber
merci amsi pour ce que je veut en faire sa ne marche pas je veut men servir pour des sprite
c'est pour meter que l'exe en dl

Publié : dim. 23/oct./2005 8:24
par kelly
scaraber a écrit :merci amsi pour ce que je veut en faire sa ne marche pas je veut men servir pour des sprite
c'est pour meter que l'exe en dl
Avant, apprend a ecrire. On dirais que tu ne cherches pas a etre aidé tellement tu ne fais aucun effort a ce niveau.
Franchement, pour transformer le mot "mais" en "amsi", il faut le faire expres, je ne vois pas d'autres ecsplikatoin !!!!

Publié : dim. 23/oct./2005 8:36
par scaraber
non ce sont que des erreur de frape je tape trop vite ...
jai pas bcp de temps d econexion car je sui en vacance al donc je vasi vite .... voila bon si quelqun pouvait me dire coment faire pour metre les image dans le exe et que les images soit utilisale en sprite
merci a++

Publié : dim. 23/oct./2005 9:11
par Chris
Tu fais ton message au bloc-notes, et tu fais un copier/coller dans le forum.
Comme ça, ta connexion dure mois d'une minute.

Publié : dim. 23/oct./2005 9:21
par scaraber
merci de ta remarque mais sa ne resoud pas mon probleme SVP de l'aide merci

Publié : dim. 23/oct./2005 9:23
par Chris
Change CatchImage() par CatchSprite()

Publié : lun. 24/oct./2005 10:32
par Gillou
Bon voilà si ça peut aider

Un petit code que tu compiles et que met en lien dans les outils personnalisés
avec comme paramètre ton fichier "%FILE" avec les guillemets

Il me permet d'insérer rapidement des fichiers images ou non dans un executables avec la possibilité de les extraire

Voila @+

Code : Tout sélectionner

typefile = MessageRequester("Quel est le type du fichier", "Les fichiers à inclure sont-ils des images?", #MB_ICONQUESTION | #PB_MessageRequester_YesNo)
NewList fich.s()
param$ = ProgramParameter()
;- IMAGE A INCLURE
If typefile = 6
  file$ = OpenFileRequester("Ouvrez des images", GetPathPart(param$), "Images (BMP, JPG, PNG, TIFF, TGA, ICO)|*.ico;*.bmp;*.jpg;*.jpeg;*.tga;*.tiff;*.png", 0, #PB_Requester_MultiSelection)
  If file$
  Repeat
      AddElement(fich())
      fich() = file$
      file$ = NextSelectedFileName()
    Until file$ = ""
    res = MessageRequester("?", "Inclure le module d'extraction des images", #PB_MessageRequester_YesNo)
    pathc = MessageRequester("Adresse des fichiers", "Chemin relatif 'Oui', Chemin complet'Non'", #PB_MessageRequester_YesNo)
    If pathc = 6
      AdressRef$ = OpenFileRequester("Fichier référence", param$, "Tous les fichiers|*.*", 0)
      If AdressRef$
      Else
        pathc = 7
      EndIf
    EndIf
    CreateFile(1, GetPathPart(AdressRef$) + "IMG.pb")
    WriteStringN("Enumeration")
    For a = 0 To CountList(fich()) - 1
      WriteStringN("#Image_" + Str(a+1))
    Next
    WriteStringN("EndEnumeration")
    WriteStringN("")
    WriteStringN("UsePNGImageDecoder()")
    WriteStringN("UseJPEGImageDecoder()")
    WriteStringN("UseTIFFImageDecoder()")
    WriteStringN("UseTGAImageDecoder()")
    WriteStringN("")
    WriteStringN(";- Les images peuvent etre utilisees dans une procedure")
    WriteStringN("")
    ;- INCLURE LE MODULE D EXTRACTION DE L IMAGE
    If res = 6
      For a = 0 To CountList(fich()) - 1
        WriteStringN("Global Image" + Str(a+1))
      Next
      WriteStringN("")
      WriteStringN(";- Mise en memoire des images")
      WriteStringN("")
      For a = 0 To CountList(fich()) - 1
        WriteStringN("Image" + Str(a+1) + " = CatchImage(#Image_" + Str(a+1) + ", ?Image" + Str(a+1) + ")")
      Next
      WriteStringN("")
      WriteStringN(";- Les images seront inclus dans le programmes lors de la compilation")
      WriteStringN("")
      WriteStringN("Procedure ExpandBinaryfile(Fichier.s,binaire)")
      WriteStringN("If CreateFile(0, Fichier)")
      WriteStringN("UseFile(0)")
      WriteStringN("LON=?FNU-binaire")
      WriteStringN("WriteData(binaire,LON)")
      WriteStringN("CloseFile(0)")
      WriteStringN("EndIf")
      WriteStringN("ProcedureReturn 1")
      For a = 0 To CountList(fich()) - 1
        SelectElement(fich(), a)
        If pathc = 6
          AdressFich$ = ReplaceString(fich(), GetPathPart(AdressRef$), "")
        Else
          AdressFich$ = fich()
        EndIf
        WriteStringN("Image" + Str(a+1) + ":")
        WriteStringN("IncludeBinary " + Chr(34) + AdressFich$ + Chr(34))
      Next
      WriteStringN("FNU:")
      WriteStringN("EndProcedure")
      WriteStringN("")
      WriteStringN("Dim Images.s(" + Str(CountList(fich())) + ") : Dim AdressLabel.l(" + Str(CountList(fich())) + ")")
      For a = 0 To CountList(fich()) - 1
        SelectElement(fich(), a)
        If pathc = 6
          AdressFich$ = ReplaceString(fich(), GetPathPart(AdressRef$), "")
        Else
          AdressFich$ = fich()
        EndIf
        WriteStringN("Images(" + Str(a + 1) + ")=" + Chr(34) + AdressFich$ + Chr(34) + " : AdressLabel(" + Str(a + 1) + ")=?Image" + Str(a+1))
      Next
      ;- EXCLURE LE MODULE D EXTRACTION DE L IMAGE
    Else
      For a = 0 To CountList(fich()) - 1
        WriteStringN("Global Image" + Str(a+1))
      Next
      WriteStringN("")
      WriteStringN(";- Mise en memoire des images")
      WriteStringN("")
      For a = 0 To CountList(fich()) - 1
        WriteStringN("Image" + Str(a+1) + " = CatchImage(#Image_" + Str(a+1) + ", ?Image" + Str(a+1) + ")")
      Next
      WriteStringN("")
      WriteStringN(";- Les images seront inclus dans le programmes lors de la compilation")
      WriteStringN("")
      WriteStringN("DataSection")
      For a = 0 To CountList(fich()) - 1
        SelectElement(fich(), a)
        If pathc = 6
          AdressFich$ = ReplaceString(fich(), GetPathPart(AdressRef$), "")
        Else
          AdressFich$ = fich()
        EndIf
        WriteStringN("Image" + Str(a+1) + ":")
        WriteStringN("IncludeBinary " + Chr(34) + AdressFich$ + Chr(34))
      Next
      WriteStringN("EndDataSection")
    EndIf
    CloseFile(1)
    SelectElement(fich(), 0)
    RunProgram(GetPathPart(AdressRef$) + "IMG.pb")
  EndIf
  ;- FCIHIER A INCLURE
Else
  file$ = OpenFileRequester("Ouvrez des fichiers", GetPathPart(param$), "Tous les fichiers)|*.*", 0, #PB_Requester_MultiSelection)
  If file$
  Repeat
      AddElement(fich())
      fich() = file$
      file$ = NextSelectedFileName()
    Until file$ = ""
    pathc = MessageRequester("Adresse des fichiers", "Chemin relatif 'Oui', Chemin complet 'Non'", #PB_MessageRequester_YesNo)
    If pathc = 6
      AdressRef$ = OpenFileRequester("Fichier référence", param$, "Tous les fichiers|*.*", 0)
      If AdressRef$
      Else
        pathc = 7
      EndIf
    EndIf
    CreateFile(1, GetPathPart(AdressRef$) + "FICH.pb")
    WriteStringN("Procedure ExpandBinaryfile(Fichier.s,binaire)")
    WriteStringN("If CreateFile(0, Fichier)")
    WriteStringN("UseFile(0)")
    WriteStringN("LON=?FNU-binaire")
    WriteStringN("WriteData(binaire,LON)")
    WriteStringN("CloseFile(0)")
    WriteStringN("EndIf")
    WriteStringN("ProcedureReturn 1")
    For a = 0 To CountList(fich()) - 1
      SelectElement(fich(), a)
      WriteStringN("Fichier" + Str(a+1) + ":")
      If pathc = 6
        AdressFich$ = ReplaceString(fich(), GetPathPart(AdressRef$), "")
      Else
        AdressFich$ = fich()
      EndIf
      WriteStringN("IncludeBinary " + Chr(34) + AdressFich$ + Chr(34))
    Next
    WriteStringN("FNU:")
    WriteStringN("EndProcedure")
    WriteStringN("")
    WriteStringN("Dim Fichiers.s(" + Str(CountList(fich())) + ") : Dim AdressLabel.l(" + Str(CountList(fich())) + ")")
    
    For a = 0 To CountList(fich()) - 1
      SelectElement(fich(), a)
      If pathc = 6
        AdressFich$ = ReplaceString(fich(), GetPathPart(AdressRef$), "")
      Else
        AdressFich$ = fich()
      EndIf
      WriteStringN("Fichiers(" + Str(a + 1) + ")=" + Chr(34) + AdressFich$ + Chr(34) + " : AdressLabel(" + Str(a + 1) + ")=?Fichier" + Str(a+1))
    Next
    RunProgram(GetPathPart(AdressRef$) + "FICH.pb")
  EndIf
EndIf

Publié : lun. 24/oct./2005 10:35
par scaraber
merci beaucoup je vais essayer ce code des que jai un peu de temps .
A++
scaraber
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru