PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → Téléchargement d'un fichier ZIP
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)
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
:)