Télécharger un fichier et le placer à un endroit précis

[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

Code : Tout sélectionner

InitNetwork()
ReceiveHTTPFile

et aussi :

Code : Tout sélectionner

CopyFile

Mais je ne sais pas comment ni dans quel ordre ...

Merci d'avance pour votre aide précieuse ...

[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

[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

@++

[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

[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






@++