Page 1 sur 1

Action Boutton

Publié : mer. 18/mars/2009 13:18
par John36mx
Bonjour,

J'aimerais savoir si il est possible de donner un moyen de telechargeent quand on clique sur le bouton.

Par exemple je met un bouton et je veut que quand on clique dessus, on télécharge le dossier.

Merci

Publié : mer. 18/mars/2009 14:12
par gnozal
En appliquant le principe expliqué dans ton post précédent, lorsqu'on clique sur le bouton, utilise les fonctions de la bibliothèque HTTP comme ReceiveHTTPFile ou de la bibliothèque FTP.

Publié : mer. 18/mars/2009 18:46
par John36mx
Pourrai tu me donner un exemple de CODE stp

Publié : mer. 18/mars/2009 19:52
par SpaceMan
John36mx a écrit :Pourrai tu me donner un exemple de CODE stp
exemple fait à la va vite... à tester

Code : Tout sélectionner

Enumeration 
#fenetre 
#Web_Gadget 
#telecharger 
EndEnumeration 

If OpenWindow(#fenetre,0,0,800,450,"WebGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
  WebGadget(#Web_Gadget,10,10,780,380,"http://www.purebasic.com") 
  ButtonGadget(#telecharger,300,400,130,25,"Télécharger Office.png") 
  ; Note: si vous désirez utiliser un fichier local, changez le dernier paramètre en "file://" + chemin + nomdufichier 
  InitNetwork()
  
  Repeat 
     
    Event = WaitWindowEvent()  
    GadgetID = EventGadget() 
    If Event = #PB_Event_Gadget 
      If GadgetID = #telecharger 
          NomDeFichier$ = SaveFileRequester("Enregistrer sous", "Office.png", "Image|*.png", 0) 
        If ReceiveHTTPFile("http://hashdesign.freehostia.com/Downloads/Office.png", NomDeFichier$) 
            Debug "Succès" 
            SetGadgetText(#telecharger,"Téléchargement en cours")
          Else 
            Debug "Erreur" 
        EndIf 
            SetGadgetText(#telecharger,"Téléchargement terminé")
      EndIf 
    EndIf 
  Until Event = #PB_Event_CloseWindow 
EndIf

Publié : mer. 18/mars/2009 23:30
par John36mx
Non lol cela ne marche pas

Publié : mer. 18/mars/2009 23:31
par John36mx
Lol non cela ne marche pas et j'ai essayer de bidouiller mais rien

Publié : mer. 18/mars/2009 23:34
par Backup
oula !!

Code : Tout sélectionner

Repeat
    InitNetwork() 

un init dans la boucle ??? 8O

Publié : jeu. 19/mars/2009 1:38
par poshu
De toutes façons, laissez le se sortir un peu les doigts du cul: il ne fait aucun effort pour le moment; il est pire que moi qui n'utilise pas la fonction search du forum >.<;

Publié : jeu. 19/mars/2009 4:28
par MetalOS
Moi qui trouve que j'en demande trop dé fois sur le forum :lol: :lol: :lol: :lol: je vois qu'il y à pire que moi :lol: :lol: :lol: :lol:

Publié : jeu. 19/mars/2009 11:14
par SpaceMan
C'est vrai qu'au début on a tendance à tout demander, mettons lui de l'au à la bouche et il verra qu'ici on fait d'abord des efforts ensuite on pose des questions...

Maintemant ça devrait marcher !
Remarque que si tu essaies de télécharger depuis un site redirectionné ça ne marchera pas.
Voir mon poste précédent