DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Gestion des bases de données / HFSQL / Fonctions HFSQL Client/Serveur
  • Copie de plusieurs fichiers vers un poste Android
HCopieFichier (Exemple)
Copie de plusieurs fichiers vers un poste Android
Android Cet exemple présente une copie de plusieurs fichiers HFSQL depuis un serveur HFSQL vers un répertoire local.
Dans cet exemple on affiche une information pour chaque copie.
// sConnexion est une connexion définie par programmation.

gsMonCheminHFLocal est une chaîne = SysRepCarteStockage() + fSep() + "MonApplication Data" + fSep() 
sMotDePasse est une chaîne = "Mon mot de passe"

TitreSuivant("Copie du fichier Catégorie")
Sablier(Vrai)
SI PAS HCopieFichier("", ...
gsMonCheminHFLocal + Catégorie.Nom + ".fic", sConnexion, Catégorie.Nom + ".fic", ...
hCopieIndex, "", sMotDePasse) ALORS 
Erreur("Erreur pendant la copie du fichier " + Catégorie.Nom + " en local")
FIN

TitreSuivant("Copie du fichier CompteBancaire")
Sablier(Vrai) 
SI PAS HCopieFichier("", gsMonCheminHFLocal + CompteBancaire.Nom + ".fic", ...
sConnexion, CompteBancaire.Nom + ".fic", hCopieIndex, "", sMotDePasse) ALORS 
Erreur("Erreur pendant la copie du fichier " + Catégorie.Nom + " en local")
FIN

TitreSuivant("Copie du fichier Opérations")
Sablier(Vrai)
SI PAS HCopieFichier("", gsMonCheminHFLocal + Operations.Nom + ".fic", ...
sConnexion, Operations.Nom + ".fic", hCopieIndex, "", sMotDePasse) ALORS 
Erreur("Erreur pendant la copie du fichier " + Operations.Nom + " en local")
FIN

TitreSuivant("Copie du fichier SousCatégorie")
Sablier(Vrai)
SI PAS HCopieFichier("", gsMonCheminHFLocal + SousCatégorie.Nom + ".fic", ...
sConnexion, SousCatégorie.Nom + ".fic", hCopieIndex, "", sMotDePasse) ALORS 
Erreur("Erreur pendant la copie du fichier " + SousCatégorie.Nom + " en local")
FIN

TitreSuivant("Copie du fichier Utilisateur")
Sablier(Vrai)
SI PAS HCopieFichier("", gsMonCheminHFLocal + Utilisateur.Nom + ".fic", ...
sConnexion, Utilisateur.Nom + ".fic", hCopieIndex, "", sMotDePasse) ALORS 
Erreur("Erreur pendant la copie du fichier " + Utilisateur.Nom + " en local")
FIN
// Fermeture des sabliers 
Sablier(Faux)
Sablier(Faux)
Sablier(Faux)
Sablier(Faux)
Sablier(Faux)

Info("La copie des fichiers sur le Smartphone est maintenant terminée.")
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale