Gambas France BETA


Pas de compte ? Incription

commande EXEC pour ftp[RESOLU]

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 30/5/2011 à 21:17:00
Bonjour,
je souhaite envoyer par ftp un fichier.
Voici la commande GB2 que je tape :

EXEC["xterm","ftp"]
Cela m'ouvre un terminal avec le prompt ftp
Mais je suis obligé de saisir un serveur , log et mdp.
N'y a t il pas une commande directe pour un clic sur un bouton et un message.info : sauvegarde terminée par exemple ?
Merci de votre réponse.
;) ;)
www.gambaslinux.fr
linuxos#2 Posté le 31/5/2011 à 11:11:00
Un peu de sel, de poivre et la crevette sera... Bonjour spheris,

Il existe un composant dans Gambas2 pour faire ça
et sans passer par un shell.

gb.net.curl

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.
spheris#3 Posté le 31/5/2011 à 21:54:00
Linuxos,
merci pour l'info
Effectivement cela va mieux avec gb.net.curl.
Mais cela ne marche pas :
voici mon code :

1
PUBLIC SUB Boutonconnecter_Click()FtpClient1.URL = "ftp://ftpperso.free.fr"FtpClient1.User = "monlogin"FtpClient1.Password = "monmdp"ENDPUBLIC SUB FtpClient1_Error()Message.Info("erreur d'upload ou download")ENDPUBLIC SUB FtpClient1_Connect()TextBox1.Text = "message ftp connecté"NDPUBLIC SUB Boutonuploader_Click()FtpClient1.Put(System.User.Home & "/bobi.html")ENDPUBLIC SUB FtpClient1_Finished()TextBox1.Text = "fini la connexion"ENDPUBLIC SUB boutonfermerconnexion_Click()FtpClient1.CloseEND


Du coup impossible de me connecter au ftp.
Ais-je raté quelque chose ?
Merci pour ton aide
;) ;)
www.gambaslinux.fr
linuxos#4 Posté le 31/5/2011 à 22:50:00
Un peu de sel, de poivre et la crevette sera... Spheris,

Voici le code corrigé:

1
' Gambas class file PUBLIC FtpClient1 AS FtpClientPUBLIC SUB _new()ENDPUBLIC SUB Form_Open() FtpClient1 = NEW FtpClientENDPUBLIC SUB Boutonconnecter_Click() FtpClient1.URL = "ftp://serveurftp/nomfichierfinal.txt" ' Nom du fichier final stocké sur le serveur FtpClient1.User = "monlogin" FtpClient1.Password = "monpasswd" PRINT "FtpClient1.Status = " & FtpClient1.StatusENDPUBLIC SUB FtpClient1_Error() Message.Info("erreur d'upload ou download")ENDPUBLIC SUB FtpClient1_Connect() TextBox1.Text = "message ftp connecté"ENDPUBLIC SUB Boutonuploader_Click() FtpClient1.Put("/tmp/POSTIN") ' Fichier local qui sera transféré sur le serveur FTPENDPUBLIC SUB FtpClient1_Finished() TextBox1.Text = "fini la connexion"ENDPUBLIC SUB boutonfermerconnexion_Click() FtpClient1.CloseEND



Faire attention a la déclaration de l'URL, il faut indique le chemin et le nom du
fichier final transféré sur le serveur FTP:

Ex: fichier en local: /tmp/monFichierLocal.txt

FtpClient1.URL = "ftp://monServeurFtp/monRepertoire/monFichierLocal.txt"

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.
manu#5 Posté le 1/6/2011 à 07:17:00
Avec Gambas ca roule !tu vois Spheris, on etais pas loin !!!! :) et je savais que linuxos avait la réponse :)

Manu

PS tu devrais modifier le titre du fil
Jeanne d'arc, elle a frit, elle a tout compris ! ;)

Config :
Manjaro linux (excellent !)
XFCE 4.1 (simple et efficace)
Gambas 3 dans les dépots (confort total)
spheris#6 Posté le 1/6/2011 à 07:26:00
LinuxOS,
T'es un chef !
Ca marche impeccable.
Un petit tuto sur gambaslinux.eg2 verra le jour prochainement.
Encore merci pour ton aide ! ;)


EDITION DU 02.06.2011 :

http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=919

Merci encore !
;) ;)
www.gambaslinux.fr
1