Basilic, Client FTP

Cet article a pour objectif d’implémenter un module Basilic permettant d’exécuter quelques commandes de base du protocole FTP en utilisant l’api Apache Commons Net. Pour pouvoir compiler et exécuter un programme d’application, nous utilisons les principes décrits dans l’article Basilic,Fichiers Jars, Java Derby. Pour cela après avoir téléchargé sur le site Apache le fichier commonts-net-x.x.x-bin.zip où x.x.x est le numéro de version, par exemple 3.9.0, il suffit de décompresser cette archive et de copier le fichier commons-net-x.x.x.jar dans le répertoire « packages » défini dans l’article Basilic,Fichiers Jars, Java Derby.

Module Basilic

Java

import org.apache.commons.net.ftp.*;
import java.io.*;
java
   FTPClient ftpClient;
end java

proc public connect(ftp f,string server,int port,string user,string password)exception
   // port standard : 21
   int replyCode
   java
      f.ftpClient = new FTPClient();
      // Se connecter au serveur FTP
      f.ftpClient.connect(server.val, port.val);
      f.ftpClient.login(user.val, password.val);
      // Verifier le code de reponse apres la connexion
      replyCode.val = f.ftpClient.getReplyCode();
      if (!FTPReply.isPositiveCompletion(replyCode.val)) {
      end java
      throwex("FTP erreur : " + itos(replyCode))
      java
      }
      // Activer le mode passif
      f.ftpClient.enterLocalPassiveMode();
      // Activer le mode binaire pour le transfert de fichiers
      f.ftpClient.setFileType(FTP.BINARY_FILE_TYPE);
   end java
end proc

proc public disconnect(ftp f)exception
   java
      f.ftpClient.logout();
      f.ftpClient.disconnect();
      f.ftpClient=null;
   end java
end proc

func public string[] listFtp(ftp f,string remoteDirPath)exception
   /*!
   Liste le repertoire.
   Le parametre directory est le chemin d'une sous directory.
   Pour lister la racine du serveur, il suffit de mettre ""
   comme valeur du parametre directory.
   */
   string name
   stringvector v
   java
      // Recuperer la liste des fichiers et repertoires du repertoire distant
      FTPFile[] files = f.ftpClient.listFiles(remoteDirPath.val);
      if (files != null && files.length > 0) {
         for (FTPFile file : files)
            {
               name.val = file.getName();
               if (file.isDirectory()) {
                  name.val="D " + name.val;
               }
            else {
               name.val="F " + name.val;
            }
         end java
         add(v,name)
         java
         }
      }
   end java
   return vtos(v)
end func

func public boolean getFtp(ftp f,string localFilePath,string remoteFilePath)exception
   boolean success
   java
      // Telecharger un fichier depuis le serveur FTP
      OutputStream outputStream = new BufferedOutputStream(new FileOutputStream(localFilePath.val));
      success.val = f.ftpClient.retrieveFile(remoteFilePath.val, outputStream);
      outputStream.close();
   end java
   return success
end func

func public boolean putFtp(ftp f,string localFilePath,string remoteFilePath)exception
   boolean success
   java
      // Transferer un fichier local vers le serveur FTP
      FileInputStream inputStream = new FileInputStream(new File(localFilePath.val));
      success.val = f.ftpClient.storeFile(remoteFilePath.val, inputStream);
      inputStream.close();
   end java
   return success
end func

func public boolean cdFtp(ftp f,string remoteDirectoryPath)exception
   boolean success
   java
      success.val=f.ftpClient.changeWorkingDirectory(remoteDirectoryPath.val);
   end java
   return success
end func

func public boolean mkdirFtp(ftp f,string remoteDirectoryPath)exception
   boolean success
   success=cdFtp(f,remoteDirectoryPath)
   if success
      return true
   end if
   java
      success.val=f.ftpClient.makeDirectory(remoteDirectoryPath.val);
   end java
   if success
      success=cdFtp(f,remoteDirectoryPath)
   end if
   return success
end func

Exemple de programme de test

Java

proc demarrer()exception
   ftp serveur
   string server,user,password,localPath,remotePath
   int port
   server="url du serveur ftp"
   port=21 // port standard
   user="nom d'utilisateur sur le serveur ftp"
   password="mot de passe sur le serveur ftp"
   // Connexion au serveur
   connect(serveur,server,port,user,password)
   // Affichage des fichiers stockes a la racine du serveur ftp
   print(listFtp(serveur,""))
   // Chargement d'un fichier
   localPath="chemin local"
   remotePath="nom du fichier sur le serveur ftp"
   if getFtp(serveur,localPath,remotePath)
      println("fichier chargé "+localPath+ " depuis "+remotePath)
   else
      println("impossible de charger le fichier "+remotePath)
   end if
   // Deconnexion
   disconnect(serveur)
end proc
//— MAIN —————————
try
   demarrer()
catch
   println(exceptionToString())
   exit()
end catch

Grimeco

Basilic, Client FTP

A DECOUVRIR EGALEMENT

Basilic, Fichiers Jars, Java Derby

Goodies pour Basilic

Réseaux neuronaux – 1 – Introduction

Laisser un commentaire Annuler la réponse