DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Communication / Fonctions Net
  • Exemple : Envoyer un fichier du poste client vers le serveur
NetEnvoieFichier (Exemple)
Exemple : Envoyer un fichier du poste client vers le serveur
L'exemple suivant permet de transférer un fichier du poste client vers le poste serveur et de gérer la progression du transfert sur le poste client.
// - - Code d'initialisation de la fenêtre "FEN_ClientRPC"
GLOBAL
Transfert_Terminé est un booléen = Faux
Transfert_EnCours est un booléen = Faux
Evénement("Jauge_Transfert", "FEN_ClientRPC", "EnvoieFichier")
...
UneConnexion est un entier
UneConnexion = NetConnecte("148.61.125.245", ServeurFTP, "GUEST", "")
...
// - - Bouton d'envoi du transfert
SI Transfert_EnCours = Vrai ALORS
Erreur("Un transfert de fichier est actuellement en cours")
SINON
Transfert_Terminé = Faux
Transfert_EnCours = Vrai
SI NetEnvoieFichier(UneConnexion, "C:\autoexec.bat", ...
"C:\autoexec.cli", "EnvoieFichier", 10) = Faux ALORS
Info("Échec du transfert")
FIN
...
FIN
// - - Procédure Jauge_Transfert : gestion du transfert en cours
PROCÉDURE Jauge_Transfert
Message("Transfert en cours")
Jauge(_EVE.wParam, _EVE.lParam)
SI _EVE.wParam = _EVE.lParam ALORS
Transfer_EnCours = Faux
Transfert_Terminé = Vrai
Message("Transfert terminé")
Info("Transfert terminé")
FIN
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