Accéder à un server FTP via mon application

Version imprimable

23/07/2010, 09h38
SonnyFab

Accéder à un server FTP via mon application

Bonjour,
J'ai mon application web montée en asp.net (vb.net) et j'aimerais envoier des fichiers que je créé (depuis cette application) sur un server FTP dont j'ai des passes.
Mais j'ai aucunes idées (alors là aucunes) des codes de connexions et requetes à impléménter.

Si quelqu'un connait de bons tutos ou peut me les envoiés sa m'aiderait beaucoup.
Merci de bien vouloir m'aider...:P
23/07/2010, 09h50
Jean-Michel Ormes

Salut,

Peut-être que ceci devrait t'aider.

@+

Salut Jean-Michel Ormes, merci pour ton lien il super claire;)
Comme je compile avec asp.net j'ai essayé de l'adapter avec mes besoins tout en fesant un copier/coller afin de réaliser un test. Voila la page ne me renvoie pas d'erreurs mais lorsque je vais vérifier sur le server, le fichier n'y s'y trouve pas!

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
71
72
73
74
75
76
77
78
 Protected sub Page_load(ByVal cheminSource As String, ByVal urlDestination As String, ByVal identifiant As String, ByVal motDePasse As String)
 
	 cheminSource ="C:\Inetpub\wwwroot\Newsite.xml"    'Uri du fichier sur le disque dur'
     urlDestination = "***.***.***.***"                     'Uri du fichier de destination sur le serveur FTP'
     identifiant = "blabla"                     'login du compte FTP utilisé'
     motDePasse = "toto"                         'mot de passe du compte FTP utilisé'
 
	 Dim monUriFichierLocal As System.Uri = Nothing
     Dim monUriFichierDistant As System.Uri = Nothing
 
	 ' Vérification de la validité de l Uri de l emplacement du fichier source'
	 If Not (monUriFichierLocal.Scheme = Uri.UriSchemeFile) Then
            err1.Text="Le chemin du fichier local n'est pas valide ! Une erreur est survenue"
            Exit Sub
        End If
 
      ' Vérification de la validité de l Uri de l emplacement du fichier de destination'
     If Not (monUriFichierDistant.Scheme = Uri.UriSchemeFtp) Then
            err2.text="Le chemin du fichier sur le serveur FTP n'est pas valide ! Une erreur est surevnue"
            Exit Sub
        End If
 
		' Création des 2 flux et du reader nécessaire pour l envoi du fichier'
        Dim monRequestStream As Stream = Nothing
        Dim fileStream As FileStream = Nothing
        Dim uploadResponse As FtpWebResponse = Nothing
        Try
            ' Requête d upload d un fichier vers le serveur'
            Dim uploadRequest As FtpWebRequest = CType(WebRequest.Create(urlDestination), FtpWebRequest)
            ' Vérification de la présence des identifiants d un compte, si aucun alors'
            ' la connexion se fait en mode anonyme'
            If Not identifiant.Length = 0 Then
                Dim monCompte As New NetworkCredential(identifiant, motDePasse)
                uploadRequest.Credentials = monCompte
            End If
 
            uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
            ' Désactivation du proxy http incompatible avec cette requête'
            uploadRequest.Proxy = Nothing
            monRequestStream = uploadRequest.GetRequestStream()
            fileStream = File.Open(cheminSource, FileMode.Open)
            ' Tableau d octets qui va contenir les données issues du fichier'
            Dim buffer(1024) As Byte
            Dim bytesRead As Integer
            ' Lecture des données et envoi de celle-ci dans le flux'
            While True
                bytesRead = fileStream.Read(buffer, 0, buffer.Length)
                If bytesRead = 0 Then
                    Exit While
                End If
                ' Ecriture des données dans le flux d upload vers le serveur FTP'
                monRequestStream.Write(buffer, 0, bytesRead)
            End While
            'L objet requestStream dot être fermé avant de récupérer la réponse'
            monRequestStream.Close()
            uploadResponse = CType(uploadRequest.GetResponse(), FtpWebResponse)
            err3.Text = "Upload terminé."
            ' Gestion des exceptions'
        Catch ex As UriFormatException
           err3.Text= ex.ToString
        Catch ex As WebException
           err3.Text= ex.ToString
        Catch ex As IOException
            err3.Text= ex.ToString
        Finally
            ' Fermeture des différents flux utilisés'
            If uploadResponse IsNot Nothing Then
                uploadResponse.Close()
            End If
            If fileStream IsNot Nothing Then
                fileStream.Close()
            End If
            If monRequestStream IsNot Nothing Then
                monRequestStream.Close()
            End If
        End Try
 
    End sub

Ai-je fais une erreur ou ai-je oublié de mentionner quelque chose?
Merci encore

23/07/2010, 11h29
SonnyFab
Je viens de me rendre compte en fesant un petit test(Il m'afficherait "bonjour" avant de continuer d'executer la fonction page_load() ) que ma page ne rentrais meme pas dans la fonction.

Et là je comprend pas pourquoi, lorsque je change les arguments:
Code:

1 2 3 Protected sub Page_load(ByVal sender As Object, ByVal e As System.EventArgs) Dim cheminSource, urlDestination, identifiant, motDePasse As String
J'obtiens cette fois-ci une erreur:

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

Quelqu'un pourrait m'aider s'il vous plait?:cry:
23/07/2010, 11h38
Jean-Michel Ormes

Pourquoi t'as tout mis dans le Page_Load ?

Tu pouvais copier le code tel quel et appeler la fonction à partir du Page_Load tout en passant tes paramètres à ta fonction.

Ouais je l'ai fais:
Code:

1 2 3 4 5 6 7 Protected sub uploadFichier(ByVal cheminSource As String, ByVal urlDestination As String, ByVal identifiant As String, ByVal motDePasse As String) '----------------------' sub page_load () uploadFichier("C:\Inetpub\wwwroot\Newsite.xml" ,"*.*.*.*" ,"bla" , "toto" ) end sub
Mais là il y'a toujours une erreur

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

23/07/2010, 12h11
SonnyFab

J'ai repris la fonction que j'ai utilisé dans mon 2ème message (au moins lui il ne renvoie aucune erreur) . Mais je voudrais savoir, pourquoi il ne rentre pas dans la fonction s'il vous plait?
23/07/2010, 16h24
SonnyFab

J'y arrive toujours pas les ami(e)s! J'ai beau tourné mon code dans tous les sens soit j'obtiends aucunes erreurs mais la la page n'execute pas la fonction

Code:

Sub Page_load (ByVal cheminSource As String, ByVal urlDestination As String, ByVal identifiant As String, ByVal motDePasse As String)

Soit j'obtiends cette erreur :

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

avec la fonction

Code:

Page_load(ByVal sender As Object, ByVal e As System.EventArgs),

Lorsque je declare et initialise les variables passés en paramères précédemment, globales :cry:
Je sais plus
23/07/2010, 16h31
lutecefalco

Tu fais n'importe quoi ... :roll:
Tu dois pas modifier la signature de la fonction Page_Load
23/07/2010, 16h40
SonnyFab

D'accord si tu le dis, j'ai trop confiance en toi :zoubi:
je vais encore essayé tout en gardanr la tete froide et voir ce que sa donne:roll:

Heu exuse moi Lucetefalco, mais c'est la même chose, or lorsque j'enleve cette partie du code:

Code:

1
2
3
4
5
6
7
8
9
10
11
' Vérification de la validité de l Uri de l emplacement du fichier source'
        If Not (monUriFichierLocal.Scheme = Uri.UriSchemeFile) Then
            err1.Text="Le chemin du fichier local n'est pas valide !Une erreur est survenue"
            Exit Sub
        End If
 
        ' Vérification de la validité de l Uri de l emplacement du fichier de destination'
        If Not (monUriFichierDistant.Scheme = Uri.UriSchemeFtp) Then
            err2.Text="Le chemin du fichier sur le serveur FTP n'est pas valide !Une erreur est surevnue"
            Exit Sub
        End If

La page entre dans la fonction mais s'arrete au niveau du cast

Code:

1
2
 ' Requête d upload d un fichier vers le serveur'
            Dim uploadRequest As FtpWebRequest = CType(WebRequest.Create(urlDestination), FtpWebRequest)

Esque l'erreur ne vient pas au niveau des URI selon toi?

23/07/2010, 17h28
Immobilis

Salut,

En C# y'a ça: http://dotnet.developpez.com/faq/asp...e=transfertftp

C'est truc que j'ai fait pour récupérer/envoyer des fichiers sur la freebox.

A+
24/07/2010, 13h05
SonnyFab
Merci Immobilis sa passe super bien, le fichier est déposé sur le server, ton tutoriel est wahouuu! Félicitation pour ce travail et à toute l'équipe aussi :D
Code:

1 2 3 while (1){ mess.Text="Vous êtes les meilleurs!!! <br/>" }
:P

Explication

:)Juste pour approfondir mes connaissances, si t'as du temps, essaies s'il te plait de m'expliquer un de pourquoi le code en vb.net ne passait pas?
Je me heurtais sur cette partie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim monUriFichierLocal As System.Uri = Nothing
        Dim monUriFichierDistant As System.Uri = Nothing
 
        ' Vérification de la validité de l Uri de l emplacement du fichier source'
        If Not (monUriFichierLocal.Scheme = Uri.UriSchemeFile) Then
            err2.text="Le chemin du fichier local n'est pas valide ! Une erreur est survenue"
            Exit Sub
        End If
 
        ' Vérification de la validité de l Uri de l emplacement du fichier de destination'
        If Not (monUriFichierDistant.Scheme = Uri.UriSchemeFtp) Then
            err1.Text="Le chemin du fichier sur le serveur FTP n'est pas valide !Une erreur est surevnue"
            Exit Sub
        End If

Merci encore pour tous ce que vous faites!