Assemblage .Net (Sftp)

Version imprimable

Bonjour, à tous,

J'ai besoin dans un de mes programmes d'effectuer des transferts par Sftp.

Dans ce dessein, je tente d'utiliser l'assemblage .Net distribué par la société atp-inc.

Je ne suis pas familiarisé avec Dotnet et je tâtonne un peu :?

J'utilise le mode asynchrone pour ne pas bloquer l'utilisateur et avoir la possibilité d'effectuer plusieurs transferts simultanés.

Voilà l'exemple (en VB) fournis par l'éditeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Public Sub DoAsyncConnect()
    ' Create a new instance.
    Dim client As New Sftp()
 
    AddHandler client.HostKeyVerifying, AddressOf client_HostKeyVerifying
 
    AddHandler client.ConnectCompleted, AddressOf client_ConnectCompleted
    AddHandler client.AuthenticateCompleted, AddressOf client_AuthenticateCompleted
    AddHandler client.DisconnectCompleted, AddressOf client_DisconnectCompleted
 
    ' Connect to the SFTP server asynchronously.
    client.BeginConnect("myserver")
 
    ' Or you can specify the SFTP port with
    ' client.BeginConnect("myserver", 22);
 
    ' Your code here
    ' ...
End Sub
 
Private Sub client_ConnectCompleted(ByVal sender As Object, _
    ByVal e As AsyncMethodCompletedEventArgs)
    Dim client As Sftp = CType(sender, Sftp)
    Try
        client.EndConnect(e.AsyncResult)
    Catch exc As Exception
        Console.WriteLine("Error: " & exc.ToString())
        Return
    End Try
 
    ' Authenticate the user asynchronously.
    client.BeginAuthenticate("userName", "password")
End Sub
 
Private Sub client_AuthenticateCompleted(ByVal sender As Object, _
    ByVal e As AsyncMethodCompletedEventArgs)
    Dim client As Sftp = CType(sender, Sftp)
    Try
        client.EndAuthenticate(e.AsyncResult)
    Catch exc As Exception
        Console.WriteLine("Error: " & exc.ToString())
        Return
    End Try
 
    ' Do something here...
    client.DownloadFile("/my remote file.dat", "my local file")
 
    ' ...
 
    ' Disconnect asynchronously.
    client.BeginDisconnect()
End Sub
 
Private Sub client_DisconnectCompleted(ByVal sender As Object, _
    ByVal e As AsyncMethodCompletedEventArgs)
    Dim client As Sftp = CType(sender, Sftp)
    Try
        client.EndDisconnect(e.AsyncResult)
    Catch exc As Exception
        Console.WriteLine("Error: " & exc.ToString())
    End Try
End Sub
 
Private Sub client_HostKeyVerifying(ByVal sender As Object, _
    ByVal e As HostKeyVerifyingEventArgs)
    ' Show host key.
    Console.WriteLine("HostKey: " & e.HostKey)
    ' Check the key here
    ' ...
End Sub

Que j'ai traduit de la façon suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clMYSftp est un Sftp()
 
pclHostKeyVerif est un HostKeyVerifyingEventHandler dynamique
pclHostKeyVerif = clMYSftp:add_HostKeyVerifying(DotNetDélégué(PROC_HostKeyVerifying, "HostKeyVerifyingEventHandler"))
 
pclConnectionVer est un AsyncCompletedEventHandler dynamique
pclConnectionVer = clMYSftp:add_ConnectCompleted(DotNetDélégué(PROC_ConnexionComplète, "EventHandler<AsyncMethodCompletedEventArgs>"))
 
pclAuthentificationComplète est un AsyncCompletedEventHandler dynamique
pclAuthentificationComplète = clMYSftp:add_AuthenticateCompleted(DotNetDélégué(PROC_AuthentificationComplete, "EventHandler<AsyncMethodCompletedEventArgs>"))
 
pclDéconnexionComplète est un AsyncCompletedEventHandler dynamique
pclDéconnexionComplète = clMYSftp:add_DisconnectCompleted(DotNetDélégué(PROC_DéconnexionComplète, "EventHandler<AsyncMethodCompletedEventArgs>"))
 
Trace("Start")
 
clMYSftp.BeginConnect("192.168.1.2")
 
Trace("End")

Cela fonctionne correctement, il passe bien par mes différentes procédures.

Je récupère ma clé :

Code:

1
2
3
4
5
6
7
PROCEDURE PROC_HostKeyVerifying(clObject, clEvenement)
 
pclHostKey est un objet HostKeyVerifyingEventArgs dynamique = clEvenement
 
Trace("PROC_HostKeyVerifying")
 
Trace(pclHostKey.HostKey)

Je procède à l'authentification sur le serveur :

Code:

1
2
3
4
5
PROCEDURE PROC_ConnexionComplète(clObject, clEvenement)
 
Trace("PROC_ConnexionComplète")
 
clObject.BeginAuthenticate("root", "passwd")

Une fois ma connexion et mon authentification terminé, je procède au transfert du fichier et à la déconnexion :

Code:

1
2
3
4
5
6
7
8
9
PROCEDURE PROC_AuthentificationComplete(clObject, clEvenement)
 
Trace("PROC_AuthentificationComplete")
 
Trace("Transfert")
 
Trace("BeginDisconnect")
 
clObject.BeginDisconnect()

Mon problème réside dans le fait qu'il passe par toutes les procédures quel que soit le résultat de la connexion (mauvaise IP par exemple) et de l'authentification.

Je suppose que c'est cette partie du code qui devrait arrêter le traitement, mais je ne parviens pas à l'implémenter correctement :

Code:

1
2
3
4
5
6
Try
  client.EndConnect(e.AsyncResult)
Catch exc As Exception
  Console.WriteLine("Error: " & exc.ToString())
  Return
End Try

Je vous remercie par avance pour vos conseils.

24/03/2011, 12h34
thblandeau

Bonjour,

Il existe un exemple dans la LST 82.
Malheureusement, je n'ai pas le DVD étant donné qu'il m'a été fourni avec WD16.

Si quelqu'un a les sources de cet exemple, je suis preneur car moi aussi je cherche à faire du SFTP.

J'ai essayé avec la dll d'Extraputty sans succés.

bonjour Whaouu ,

l'équivalent du

Code:

1
2
3
4
5
6
 
Try
  // les instructions
Catch exc As Exception
 // traitement si exception
End Try

en windev :

Code:

1
2
3
4
5
6
 
QUAND EXCEPTION DANS  // try
<"Code pouvant provoquer une exception">
FAIRE  //catch
<"Code de traitement de l'exception">
FIN  // End Try

Ami calmant, J.P ;)

25/03/2011, 17h48
thblandeau

J'ai pu testé l'exemple de la LST 82 mais il ne gère que du FTP et FTPS mais pas du SFTP: retour à la case départ.

Savez vous s'il est possible de l'adapter pour le SFTP ?

@jurassic pork :

Merci beaucoup pour ton aide.

J'avais bien utilisé le "QUAND EXCEPTION DANS" dans ma procédure mais j'avais systématiquement une erreur.

J'ai enfin trouvé d'où venait le problème, c'est évidemment de moi ! :calim2:

En relisant pour la Xemme fois le message d'erreur (plutôt long) j'ai vu que je n'acceptais pas la clé d'authentification.

J'ai suivi bêtement l'exemple proposer sur le site et cette partie n'était pas détaillée dedans....

Donc soit on n'utilise pas le : add_HostKeyVerifying

Soit dans ce cas contraire il faut valider la clé dans la procédure :
Code:

1 2 3 4 5 6 7 8 9 PROCEDURE PROC_HostKeyVerifying(clObject, clEvenement) pclHostKey est un objet HostKeyVerifyingEventArgs dynamique = clEvenement Trace("PROC_HostKeyVerifying") Trace(pclHostKey.HostKey) pclHostKey.Accept = Vrai
En ce qui concerne le reste des contrôles (connexion, login, etc.) cela fonctionne parfaitement :

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 PROCEDURE PROC_ConnexionComplète(clObject, clEvenement) Trace("PROC_ConnexionComplète") e est un objet AsyncMethodCompletedEventArgs dynamique = clEvenement QUAND EXCEPTION DANS clObject.EndConnect(e.AsyncResult) FAIRE SELON ExceptionInfo(errCode) CAS 200007 : Erreur("La tentative de connexion a échoué car le serveur n'a pas répondu au-delà d'une certaine durée.....") RETOUR FIN FIN clObject.BeginAuthenticate("root", "password")
En revanche j'ai une question.

Le transfert de fichier est lancé à l'issue du processus de connexion via l'événement : add_AuthenticateCompleted

Je ne sais pas comment passer d'autres paramètres à la procédure (en plus du Src qui correspond à l'objet.NET envoyant l'événement et du Args qui correspond à l'objet.NET utilisé comme paramètre de l'événement) pour spécifier le chemin et le nom du fichier que je dédire, uploader.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 PROCEDURE PROC_AuthentificationComplete(clObject, clEvenement) Trace("PROC_AuthentificationComplete") e est un objet AsyncMethodCompletedEventArgs dynamique = clEvenement QUAND EXCEPTION DANS clObject.EndAuthenticate(e.AsyncResult) FAIRE SELON ExceptionInfo(errCode) CAS 200007 : Erreur("Le login de connexion ou le mot de passe n'est pas valide") RETOUR FIN FIN // Upload file... Trace("Transfert") clObject.BeginUploadFile("C:\tmp\test.zip", "/home/tmp/test.zip")

31/03/2011, 15h37
phig330

salut a tous.
perso, j'ai craqué.
après avoir testé l'assemblage .net et curl sans succès,, j'ai utilisé tunnelier en ligne de commande qui me donne entière satisfaction ( même si c'est "moche" d'un point de vue purement programmation).
25/10/2011, 10h24
jimmypage

Bonjour a tous,

Après avoir (très) longuement bataillé sur ce problème de SFTP, j'ai trouvé une solution gratuite et qui marche relativement bien en java grâce a la librairie JSch.

Bon après faut se taper un peu de Java, mais pour moi qui connaissais pas trop, ca m'a permis de découvrir ... et c'est très sympa ! :ccool:

Voila, pour ce que ca vaut.. si ca peut servir a quelqu'un