Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Cet exemple permet d'envoyer un fichier du poste en cours au serveur FTP. La procédure Jauge_Transfert permet de gérer la progression du transfert du fichier dans la fenêtre en cours, affichée sur le poste en cours.
|
||
|
nConnexion est un entier
nConnexion = FTPConnecte("ftp.cdrom.com", "GUEST", "") SI FTPEnvoie (nConnexion, "C:\autoexec.bat", "/autoexec.tmp", ... "Jauge_Transfert") = Faux ALORS Info("Echec du transfert") FIN
- - Procédure Jauge_Transfert : gestion du transfert en cours
Procédure Jauge_Transfert(nTotal, nCourant) Message("Transfert en cours...") Jauge(nCourant, nTotal) // Est-ce que le transfert est fini ? SI nCourant = nTotal ALORS Message("Transfert Terminé") Info("Transfert terminé") FIN
|
||
Cet exemple permet d'envoyer un fichier du poste en cours (Pocket PC) au serveur FTP. La procédure Jauge_Transfert permet de gérer la progression du transfert du fichier dans la fenêtre en cours, affichée sur le poste en cours.
|
||
|
nConnexion est un entier
nConnexion = FTPConnecte("ftp.cdrom.com", "GUEST", "") SI FTPEnvoie (nConnexion, "\autoexec.bat", "/autoexec.tmp", ... "Jauge_Transfert") = Faux ALORS Info("Echec du transfert") FIN
- - Procédure Jauge_Transfert : gestion du transfert en cours
Procédure Jauge_Transfert(nTotal, nCourant) Message("Transfert en cours...") Jauge(nCourant, nTotal) // Est-ce que le transfert est fini ? SI nCourant = nTotal ALORS Message("Transfert Terminé") Info("Transfert terminé") FIN
|
