Gambas France BETA


Pas de compte ? Incription

ftp status

1
AuteurMessages
archi12#1 Posté le 23/2/2014 à 10:25:16
bonjour,
ce petit bout de prog FTP me donne des soucis.

Public Sub GetFTPFile(spath As String, sDataFileName As String)
Dim myFtp As New FtpClient
Dim s As String
myFtp.URL = spath & sDataFileName
myFtp.User = "photos"
myFtp.Password = "passphotos"
myFtp.Timeout = 120
s = "/home/user/Desktop/" & sDataFileName
'Print s
Print "on y va"
Try myFtp.Get(s)
If Error Then Stop
Print "status " & myFtp.Status
Print "c'est fini"
End

- le transfer se fait notmalement si le fichier à charger existe, et le status est à 6.
- s'il n'existe pas,
1 - pas de stop if Error
2 - je retrouve en sortie un fichier du meme nom mais vide (len=0), et le status est tjs à 6

question: comment tester le transfer apres execution ?
que veut dire le status 6 (liste des status ?)

merci de votre aide
Flachy Joe#2 Posté le 23/2/2014 à 14:06:35
Iguane : Il Gambas Uniquement pour Activer ses NEuronesSalut,
Pour le statut, c'est celui de la connexion, pas du transfert :
http://gambasdoc.org/help/comp/gb.net.curl/curl/status?v3

Tu peux contrôler la quantité de données à télécharger pour t'assurer de la taille du fichier :
http://gambasdoc.org/help/comp/gb.net.curl/curl/totaldownloaded?v3

Ou, une fois le transfert effectué :
http://gambasdoc.org/help/comp/gb.net.curl/curl/downloaded?v3

Bonne continuation.
;) Flachy Joe ;)
archi12#3 Posté le 23/2/2014 à 15:41:13
re bonjour Flachy Joe
merci pour votre réponse rapide
totaldownloaded et downloaded donnent tjs 0, meme quand le transfer s'est bien passé !?
pourriez-vous me donner 4 ou 5 lignes de code pour le sequencement ?
merci encore.
Flachy Joe#4 Posté le 28/2/2014 à 19:11:55
Iguane : Il Gambas Uniquement pour Activer ses NEuronesSalut,
les informations sur la quantité téléchargée ne sont disponibles qu'en mode synchrone :
1
2
3
4
5
6
7
8
9
10
11
12
DIM ftp1 AS NEW FtpClient
DIM dest AS STRING
ftp1.Async = FALSE
dest = "/tmp/target01"
ftp1.URL = "ftp://ftp.fr.debian.org/debian/README"
ftp1.Get(dest)
IF ftp1.TotalDownloaded = -1 THEN
DEBUG "Erreur fichier distant inexistant"
EXEC ["rm", dest]
ELSE
DEBUG "done"
ENDIF
;) Flachy Joe ;)
archi12#5 Posté le 1/3/2014 à 08:58:10
Bonjour Flachy Joe,
J'essaie tout de suite
Merci encore pour votre aide
1