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 de récupérer sur le poste en cours un fichier présent sur le poste serveur FTP. Cet exemple ne gère aucune progression du transfert.
|
||
|
nConnexion est un entier
nConnexion = FTPConnecte("ftp.cdrom.com", "GUEST", "") SI nConnexion = -1 ALORS Erreur("La connexion au serveur n'a pas pu être établie") SINON SI FTPRécupère (nConnexion, "/autoexec.bat", "C:\Temp\") ALORS Info("Transfert terminé") SINON Erreur("Echec du transfert") FIN FIN
|
||
Cet exemple permet de récupérer sur le poste en cours un fichier présent sur le poste serveur FTP. Cet exemple gère la progression du transfert.
|
||
|
IPServeur est une chaîne
nConnexion est un entier nConnexion = FTPConnecte(IPServeur, "anonyme", "") SI nConnexion = -1 ALORS Erreur("La connexion au serveur n'a pas pu être établie") SINON SI FTPRécupère(nConnexion, "/Info.txt", "C:\Temp\", "TéléchargementFTP") ALORS Info("Transfert terminé") SINON Erreur("Echec du transfert") FIN FIN PROCEDURE TéléchargementFTP(tTailleTotale, tTailleTransférée) Message("Transfert FTP en cours : " + tTailleTransférée + ... " octets reçus sur " + tTailleTotale + " au total." ) RENVOYER Vrai
|
||
Cet exemple permet de récupérer sur le poste en cours (Pocket PC) un fichier présent sur le poste serveur FTP. Cet exemple ne gère aucune progression du transfert.
|
||
|
nConnexion est un entier
nConnexion = FTPConnecte("ftp.cdrom.com", "GUEST", "") SI nConnexion = -1 ALORS Erreur("La connexion au serveur n'a pas pu être établie") SINON SI FTPRécupère (nConnexion, "/autoexec.bat", "\Temp\") ALORS Info("Transfert terminé") SINON Erreur("Echec du transfert") FIN FIN
|
||
Cet exemple permet de récupérer sur le poste en cours (Pocket PC) un fichier présent sur le poste serveur FTP. Cet exemple gère la progression du transfert.
|
||
|
IPServeur est une chaîne
nConnexion est un entier nConnexion = FTPConnecte(IPServeur, "anonyme", "") SI nConnexion = -1 ALORS Erreur("La connexion au serveur n'a pas pu être établie") SINON SI FTPRécupère(nConnexion, "/Info.txt", "\Temp\", "TéléchargementFTP") ALORS Info("Transfert terminé") SINON Erreur("Echec du transfert") FIN FIN PROCEDURE TéléchargementFTP(tTailleTotale, tTailleTransférée) Message("Transfert FTP en cours : " + tTailleTransférée + ... " octets reçus sur " + tTailleTotale + " au total." ) RENVOYER Vrai
|
