1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
|
// On lance la jauge
i est un entier
POUR i =JAUGE_Telechargement..BorneMin A 50
JAUGE_Telechargement=I
FIN
// On récupère le programme depuis le FTP
// Identifiant de connexion
nIdConnexion est un entier
LIB_Etapes="Connexion au FTP ....."
// Connexion FTP
nIdConnexion = FTPConnecte("ftp","utilisateur","password",port,Vrai,20)
SI nIdConnexion<>-1 ALORS
// La connexion est active
LIB_Etapes="Télechargement du fichier ....."
// Télechargement du fichier
FTPRécupère(nIdConnexion,"/pgm/maj1.zip","C:\")
LIB_Etapes="Déconnexion du FTP ....."
// Déconnexion
FTPDéconnecte(nIdConnexion)
JAUGE_Telechargement=70
SINON
LIB_Etapes="Erreur de la connexion au FTP, veuillez re-essayer dans quelques minutes."
FIN
LIB_Etapes="Création du fichier tempon ....."
// On dé-zip le programme
zipOuvre("C:\maj1.zip","C:\maj1.zip")
SI fFichierExiste("C:\maj1.zip") = Vrai ALORS
zipExtraitTout("c:\maj1.zip","C:\maj1\")
JAUGE_Telechargement=75
SINON
LIB_Etapes="Le dossier n'existe pas sur le serveur, veuillez re-essayer dans quelques minutes."
FIN
LIB_Etapes="Copie du fichier en cours ....."
// Copie du fichier
fCopieFichier("C:\maj1\EXEDUPROJET.exe","C:\Program Files\Projet",frJauge)
JAUGE_Telechargement=85
// On supprime le répertoire contenant les fichiers de la MAJ
fRepSupprime("C:\maj",frLectureSeule+frRécursif)
JAUGE_Telechargement=90
JAUGE_Telechargement=95
JAUGE_Telechargement=100
Temporisation(10,tempoTimer)
// On relance le projet et on Ferme La MAJ
LanceAppli("""PROJET.exe""", exeActif, Faux)
FinProgramme() |
Partager