Mise à jour d'une Appli Android par ftp

Date_FTP,Date_Local sont des Dates
Heure_FTP,Heure_Local sont des Heures
ID_FTP est un entier = FTPConnecte("ftp.fbi.com", "admin", "obama")
SI ID_FTP <> -1 // Si connexion réussi ALORS
// DEBUT : Recupere APK si pas sur le terminal
SI fFichierExiste("/storage/emulated/0/Download/Admin_TL.apk") = Faux ALORS
FTPRécupère(ID_FTP, "/www/Developpement/Admin_TL.apk", "/storage/emulated/0/Download/Admin_TL.apk")
FIN
// FIN : Recupere APK si pas sur le terminal
// DEBUT : MAJ APK si le fichier est plus recent sur le FTP
Date_FTP = FTPDate(ID_FTP, "/www/Developpement/Admin_TL.apk")
Heure_FTP = FTPHeure(ID_FTP, "/www/Developpement/Admin_TL.apk")
Date_Local = fDate("/storage/emulated/0/Download/Admin_TL.apk")
Heure_Local = fHeure("/storage/emulated/0/Download/Admin_TL.apk")
SI Date_FTP > Date_Local OU ( Date_FTP = Date_Local ET Heure_FTP > Heure_Local ) ALORS // Si Date sur FTP est plus recente que date Local OU heure FTP est plus récente que date Local.
fSupprime("/storage/emulated/0/Download/Admin_TL.apk")
FTPRécupère(ID_FTP, "/www/Developpement/Admin_TL.apk", "/storage/emulated/0/Download/Admin_TL.apk")
ShellExecute("/storage/emulated/0/Download/Admin_TL.apk") // Lancement installation
SINON
Info("L'application est à jour...")
FIN
// FIN : MAJ APK si le fichier est plus recent sur le FTP
SINON
Erreur("Impossible de ce connecter au serveur FTP")
FIN
FTPDéconnecte(ID_FTP)

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bravo @

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Tu as fais ce code avec WdMobile 20 ?

Cliquez pour agrandir...