ActiveX Client FTP
Classe OxFtpClient
La classe OxFtpClient de l'assembly DNetHost est un ActiveX donnant des fonctions de client FTP basées sur la librairie System.Net.FtpClient.
Il faut toujours commencer par SetConnection() et terminer par Disconnect().
Méthodes
SetConnection(String, String, String)
Définit les propriétés de connexion mais ne se connecte pas. La connexion se fait lors de l'appel d'une fonction.
Paramètres
server: nom ou adresse IP du serveur ftp
user: nom d'utilisateur ftp
password: mot de passe de l'utilisateur ftp
Put(String, String, String)
Envoi d'un fichier local sur le serveur FTP avec affichage d'une jauge. Si le fichier existe il est écrasé.
Paramètres
file: fichier source
dest: fichier destination
text: texte de la jauge de progression
Get(String, String, String)
Télécharge un fichier depuis un serveur FTP sur l'ordinateur local avec affichage d'une jauge. Si le fichier existe il est écrasé.
Paramètres
dest: fichier source
file: fichier destination
text: texte de la jauge de progression
GetListing(String)
Récupère la liste des fichiers et répertoires d'un chemin, séparés par des pipes '|'. La liste se récupère avec la propriété LastError.
Paramètres
path:
Execute(String)
Exécution d'une commande FTP.
Paramètres
command:
DeleteFile(String)
Suppression d'un fichier.
Paramètres
command:
DeleteRep(String)
Suppression d'un répertoire.
Paramètres
command:
LogToFile(String)
Chemin du fichier journal de la communication avec le serveur FTP.
Paramètres
logFile:
Disconnect
Déconnexion et libération de la mémoire.
Propriétés
Capabilities
Se connecte pour récupérer les capacités du serveur FTP.
LastError
Récupère le texte de la dernière erreur (sinon "OK").
Status
Récupère une valeur numérique sur le statut de la connexion avec le serveur FTP. Valeurs : 0 : non initialisé (lancer SetConnection), 1 : prêt mais non conencté, 2 : connecté.
Exemple
// connexion à l'ActiveX
CreerContexteComposantCom "DNetHost.OxFtpClient","FTP"
ConnecterComposantCom "FTP"
// activation du journal si le fichier ftp.log existe
Variables : Chaine vlog
vlog = SGBDRep+"\ftp.log"
Si ExisteFichier(vlog) Alors
AppliquerMethodeComposantCom "FTP"."LogToFile"
(vlog)
FinSi
// connexion au serveur
AppliquerMethodeComposantCom "FTP"."SetConnection"
(pServeur, pUtilisateur, pMotDePasse)
// récupération du résultat (ou erreur) du dernier appel
AppliquerMethodeComposantComGet "FTP"."LastError" (pMsg)
// état : connecté ou non
AppliquerMethodeComposantComGet "FTP"."Status" (vStatut)
// capacités du serveur
AppliquerMethodeComposantComGet "FTP"."Capabilities"
(pCapabilities)
// envoi d'un fichier
AppliquerMethodeComposantCom "FTP"."Put" (pFichierSrc,
pFichierDst)
// récupération d'un fichier
AppliquerMethodeComposantCom "FTP"."Get" (pFichierDst,
pFichierSrc)
// suppression d'un fichier
AppliquerMethodeComposantCom "FTP"."DeleteFile" (pFichier)
// suppression d'un répertoire
AppliquerMethodeComposantCom "FTP"."DeleteRep" (pRep)
// récupération de la liste des dossiers et fichiers d'un répertoire
// le résultat se récupère avec LastError
AppliquerMethodeComposantCom "FTP"."GetListing" (pRep)
AppliquerMethodeComposantComGet "FTP"."LastError" (pListe)
// déconnexion
AppliquerMethodeComposantCom "FTP"."Disconnect"
DeconnecterComposantCom "FTP"