Page 1 sur 1
Télécharger un fichier et le placer à un endroit précis
Publié : lun. 30/août/2010 13:34
par 3d0uard0
Bonjour,
j'aimerai télécharger un fichier :
http://ftp.gamez-mania.info/config.xml et le palcer dans C:\Program Files\XXXX\
je crois savoir qu'il faut utiliser
et aussi :
Mais je ne sais pas comment ni dans quel ordre ...
Merci d'avance pour votre aide précieuse ...
Re: Télécharger un fichier et le placer à un endroit précis
Publié : lun. 30/août/2010 14:05
par Ar-S
Oublie copyfile, lorsque tu utilises ReceiveHTTPFile(), tu indiques destination du fichier.
il y a difficilement plus simple que cette fonction si tu regarde la doc, essaye de nous proposer du code.
Tu as le droit de te tromper tu sais, et en nous proposant ton code, on pourra corriger tes erreurs, ce qui te sera
plus utile que le code suivant qui fait ce que tu souhaites.
Code : Tout sélectionner
; Ar-S / PB 4.50
; Mini récupérateur de config.xml
if InitNetwork()=0
MessageRequester("Erreur","Connexion internet indisponible"+chr(10)+"ce programme va se terminer.",#MB_ICONEXCLAMATION) ;
else
url$="http://ftp.gamez-mania.info/config.xml"
NomDeFichier$ = SaveFileRequester("Enregistrement du fichier config.xml", "config.xml", "c:\", 0)
if NomDeFichier$="" ; si le nom de fichier ne correspond à rien, on ferme
MessageRequester("erreur","Pas de nom de fichier, ce programme va se terminer.") ;
end
else
; Utilisation de IF pour alerter l'utilisateur si le fichier n'est pas récupérable ou s'il y a eu une erreur
if ReceiveHTTPFile(url$,NomDeFichier$) ; Si on récupère le fichier, succés puis FIN
MessageRequester("succés","le fichier à été copié sous "+NomDeFichier$+chr(10)+"ce programme va se terminer.") ;
end
else
; Si erreur, on affiche le message puis FIN
MessageRequester("erreur","impossible de télécharger le fichier "+chr(10)+url$+chr(10)+chr(10)+"Ce programme va se terminer.") ;
end
EndIf
EndIf
EndIf
Re: Télécharger un fichier et le placer à un endroit précis
Publié : lun. 30/août/2010 14:13
par venom
Arf griller tant pi je poste mon code quand même
Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
Enumeration
#Button_0
EndEnumeration
InitNetwork()
chemain$ = Left(GetHomeDirectory(), 3)
If OpenWindow(#Window_0, 220, 0, 170, 40, "", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
ButtonGadget(#Button_0, 10, 10, 150, 20, "Telecharger le fichier")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
If ReceiveHTTPFile("http://ftp.gamez-mania.info/config.xml", chemain$+" config.xml")
MessageRequester("Information", "Fichier config.xml, copie réussi dans : "+chemain$+"config.xml", 0)
End
Else
MessageRequester("Information", "Fichier config.xml, n'a pas pu être copier dans : "+chemain$+"config.xml", 0)
End
EndIf
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
@++
Re: Télécharger un fichier et le placer à un endroit précis
Publié : lun. 30/août/2010 14:30
par Ar-S
pour une fois que c'est moi qui grille quelqu'un
ça c'est parceque tu as perdu du temps à la création de la fenêtre
tu m'as fait rire : chemain$
che de main che de vilain
Re: Télécharger un fichier et le placer à un endroit précis
Publié : lun. 30/août/2010 14:39
par venom
oui j'ai perdu du temps a la création de la fenêtre mais bon.
pour le
chemain je n'avais jamais fait gaffe, en plus c'est un bout de code que je garde de coté et donc je fait juste du copier coller de cette phrase
je vais changer ça de suite merci
@++