|
Téléchargement d'un fichier ZIP |
Débuté par Thierry RIEMER, 03 jan. 2021 16:15 - 3 réponses |
| |
| | | |
|
| |
Membre enregistré 17 messages |
|
Posté le 03 janvier 2021 - 16:15 |
Bonjour,
j'essaie désespérément de télécharger un fichier ZIP pour mettre à jour mes données sur un GSM Cela fonctionne nickel sous Windows, mais sous Android .......
J'ai besoin d'aide, merci.
Voici mon code sources
PROCÉDURE Restauration()
ToastAffiche("Restauration en cours",toastLong,cvMilieu) gnId_ftp=FTPConnecte(gsFtp_ftp,gsFtp_login,gsFtp_mdp) IF gnId_ftp<>-1 THEN fRepCrée(fRepEnCours) IF FTPRécupère(gnId_ftp,gsFtp_repertoire+"wallet.zip",fRepDonnées)=Vrai THEN Info("Restauration OK") zipOuvre("wallet","wallet.zip") zipExtraitTout("wallet") zipFerme("wallet") Info("Données extraites") ELSE Info("Restauration non effectuée") END
ELSE Info("FTP mal configuré") END
-- Thierry RIEMER http://www.aurelie.net Concepteur et développeur d'outils de gestion commerciale depuis 1981 sous Memsoft Polymod et sous Windev depuis 2019 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 311 messages Popularité : +93 (137 votes) |
|
Posté le 03 janvier 2021 - 17:42 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 17 messages |
|
Posté le 04 janvier 2021 - 23:00 |
Merci, voila mon code, et cela fonctionne PROCÉDURE Restauration()
ToastAffiche("Restauration en cours",toastLong,cvMilieu) gnId_ftp=FTPConnecte(gsFtp_ftp,gsFtp_login,gsFtp_mdp) IF gnId_ftp<>-1 THEN fRepCrée(SysRepStockageExterne(1,ssePublic) + "/Download/wallet") IF FTPRécupère(gnId_ftp,gsFtp_repertoire+"wallet.zip",SysRepStockageExterne(1,ssePublic) + "/Download/wallet",ftpModeBinaire)=Vrai THEN Info("Restauration OK") zipOuvre("wallet",SysRepStockageExterne(1,ssePublic) + "/Download/wallet/wallet.zip") zipExtraitTout("wallet",SysRepStockageExterne(1,ssePublic) + "/Download/wallet/") zipFerme("wallet") Info("Données extraites") ELSE Info("Restauration non effectuée") END
ELSE Info("FTP mal configuré") END
Merci, voici mon code, cela fonctionne et pour les bases :
rib_ext est une Source de Données HDéclareExterne(SysRepStockageExterne(1,ssePublic) + "/Download/wallet/rib.fic",rib_ext)
HLitPremier(rib_ext)
-- Thierry RIEMER http://www.aurelie.net Concepteur et développeur d'outils de gestion commerciale depuis 1981 sous Memsoft Polymod et sous Windev depuis 2019 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 446 messages Popularité : +31 (43 votes) |
|
Posté le 05 janvier 2021 - 09:44 |
| |
| |
| | | |
|
| | | | |
| | |
|