Gambas France BETA


Pas de compte ? Incription

recupération de flux FTP (composant gb.net.curl)

Ce sujet est résolu.

1
AuteurMessages
DIM900#1 Posté le 2/10/2012 à 18:05:40
Bonjours à tous

Dans mon projet, j'utilise le composant gb.net.curl pour déposer des fichiers sur mon serveur FTP.. De ce coté aucun problème..
Par contre, j'aimerai récupérer des fichiers de mon serveur FTP (facile normalement), mais le nom du fichier est un peu spéciale
"NomFichier_Date(AAAMMJJ)_heure(HHMMSS).zip..
Dans ma construction du nom du fichier, je n'ai pas de problème, jusqu’à l'heure.. C'est l'heure de création du fichier ZIP sur le serveur ftp, que bien sur je ne peux connaître..
D’où la récupération du flux FTP lors de l’exécution de la commande "FtpClient1.EXEC(variable as string[])

voici mon code :

Le code fait partie d'une class..

Public Sub FtpClient1_Read(URL As String)

Dim DateJ As String
Dim Fichier_a_Recuperer As String
Dim commands As String

Dim FichierCommands As File

Dim Ftpclient1 As New FtpClient

DateJ = Format$(Now, "yyyymmdd")
Fichier_a_Recuperer = "NomFichier" & "_" & DateJ & "*.zip"


FichierCommands = Open Chemin_FichierCommand For Write Create

Print #FichierCommands, "pasv"
Print #FichierCommands, "type A"
Print #FichierCommands, "cwd " & "Répertoire_Source"
Print #FichierCommands, "nlst " & Fichier_a_Recuperer

Close FichierCommands

commands = File.Load(Chemin_FichierCommand)
Tcommands = Split(commands, "\n", Chr(140), True)

Ftpclient1.User = $User_FTP
Ftpclient1.Password = $Mdp_FTP
Ftpclient1.Timeout = 2
Ftpclient1.URL = "ftp://" & $URL
Ftpclient1.Exec($Tcommands)

For Each hlines In Ftpclient1.Lines
Print sLine
Next
End

Je cherche a récupérer le retour de ma commande "nlst" dans une variable..
Par la suite me permettrait de compléter le nom exacte de mon fichier a récupérer.. Et bien sur d'effectuer la commande de récupération que j'ai pas encore écrit car je bloque sur ce point..

Un grand merci pour votre aide..
Je voudrai une gambas grillée ;) :lol!:
Merci :cheers: :lol!:
linuxos#2 Posté le 6/10/2012 à 11:28:50
Un peu de sel, de poivre et la crevette sera... Bonjour DIM900,

Voici un petit exemple construit a partir de ton code pour expliquer comment dialoguer avec un serveur FTP.

L'archive du projet se trouve dans la Forge Gambas: Dialoguer avec un serveur FTP

Voila.

Olivier
Lorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous.
DIM900#3 Posté le 6/10/2012 à 12:45:08
Hello linuxos

Un grand merci pour l'exemple..
Je vais commencer a regarder tous ça.. :rendeer:
Je voudrai une gambas grillée ;) :lol!:
Merci :cheers: :lol!:
1