Question web

[omega]

Bonjour,

Ma question est simple: Serait-il possible de télécharger (récupérer) à partir de mon site web un fichier et le mettre là où je veux sans afficher aucune fenêtre ni boite de dialogue sur mon écran?

Exemple:
URL du site: www.omega.com
Adresse ftp: ftp.omega.com
Mot de passe ftp: purebasic
Fichier source à télécharger: www.omega.com\monfichier.rar
Fichier de destination locale: c:\ monfichier.rar


Un petit exemple de code serait souhaitable

Merci

[falsam]

Bonjour Omega.

■ Avec la fonction ReceiveHTTPFile() par exemple.

Un code qui va télécharger un logo de purebasic et l'enregistrer sur le bureau.

Code : Tout sélectionner

InitNetwork()
ReceiveHTTPFile("http://s242132022.onlinehome.fr/Download/PureBasic/purebasiclogo.png", GetHomeDirectory()+"Desktop\purebasiclogologo.png")

■ Deuxième solution avec les commandes FTP

Code : Tout sélectionner

Enumeration
  #FTP
EndEnumeration

InitNetwork()

ServerName.s = "A compléter"
UserName.s = "A compléter"
PassWord.s = "A compléter"
Port.i = 21

FTPFile.s = "A compléter"    ;Fichier à récupérer
TargetFile.s = "A compléter" ;Fichier de destination

If OpenFTP(#FTP, ServerName, UserName, Password, Port)

  Result = ReceiveFTPFile(#FTP, FTPFile, TargetFile)
  
  Repeat
    Debug FTPProgress(#FTP)
    Delay(300)
  Until FTPProgress(#FTP) = #PB_FTP_Finished Or FTPProgress(#FTP) = #PB_FTP_Error

  Debug "finished"
  
  CloseFTP(#FTP)
  
Else
  MessageRequester("Error", "Can't connect to the FTP server")
EndIf