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 !!
un init dans la boucle ???

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
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