Discussion :

[Jah73]

Bonjour à tous,

Je crée ce post suite à l'ancien : http://www.developpez.net/forums/d14...tion-date-ftp/

Pour résumer mon problème, je liste des fichiers/dossiers sur des serveurs via le protocole Ftp. Mon code fonctionne sur tous les serveurs sauf un qui me pose problème.

Voici ce que me renvoient les Ftp qui fonctionnent :

Et celui qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Function ListDirectory(ByRef pPath As String, ByRef pFtpConnection As ICredentials) As String()
 
          Dim streamReader As StreamReader = Nothing
 
          Try
               ' Création de la requête de récupération de la liste des fichiers
               Dim maRequeteListe As FtpWebRequest = CType(WebRequest.Create(pPath), FtpWebRequest)
               maRequeteListe.Method = WebRequestMethods.Ftp.ListDirectoryDetails
               maRequeteListe.Credentials = pFtpConnection
 
               ' Récupération de la liste de fichiers
               Dim maResponseListe As FtpWebResponse = CType(maRequeteListe.GetResponse, FtpWebResponse)
 
               ' Placement du flux provenant du serveur dans un streamreader
               streamReader = New StreamReader(maResponseListe.GetResponseStream, streamReader.CurrentEncoding())
 
               ' Lecture du stream reader
               Dim listeBrute As String = streamReader.ReadToEnd
 
               Dim separateur() As String = {vbLf}
 
               Return listeBrute.Split(separateur, StringSplitOptions.RemoveEmptyEntries)
 
          Catch ex As Exception
               Console.WriteLine(ex.Message)
               Return Nothing
 
          Finally
               If streamReader IsNot Nothing Then
                    streamReader.Close()
               End If
 
          End Try
End Function

Je pense pas que cela provienne de l’encodage car je demande le CurrentEncoding() au StreamReader.

Avez-vous une idée ?

Si vous avez besoin de plus d'informations, n'hésitez pas

Merci

[tomlev]

Pour résumer mon problème, je liste des fichiers/dossiers sur des serveurs via le protocole Ftp. Mon code fonctionne sur tous les serveurs sauf un qui me pose problème.

Malheureusement le format de listing FTP n'est pas du tout standardisé, du coup chaque serveur peut faire un peu ce qu'il veut... En tous cas ce format semble vraiment bizarre ; est-ce que ça s'affiche correctement avec un client FTP comme FileZilla ?

Je pense pas que cela provienne de l’encodage car je demande le CurrentEncoding() au StreamReader.

Euh, tu es sûr que c'est ton vrai code ? Parce que là ça doit planter sur une NullReferenceException quand tu fais streamReader.CurrentEncoding(), vu qu'à ce stade streamReader vaut Nothing...
De toutes façons, même si le StreamReader n'était pas Nothing, ce n'est pas pour autant qu'il aurait le bon encodage.

[Jah73]

Merci pour ta réponse tomlev

Effectivement, je me suis trompé de code lors du copier/coller. Voici le bon morceau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Function ListDirectory(ByRef pPath As String, ByRef pFtpConnection As ICredentials) As String()
 
    Dim streamReader As StreamReader = Nothing
 
    Try
        ' Création de la requête de récupération de la liste des fichiers
        Dim maRequeteListe As FtpWebRequest = CType(WebRequest.Create(pPath), FtpWebRequest)
        maRequeteListe.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        maRequeteListe.Credentials = pFtpConnection
 
        ' Récupération de la liste de fichiers
        Dim maResponseListe As FtpWebResponse = CType(maRequeteListe.GetResponse, FtpWebResponse)
 
        Dim sr = New StreamReader(maResponseListe.GetResponseStream)
 
        Dim e1 As Encoding = sr.CurrentEncoding
 
        If sr IsNot Nothing Then sr.Close()
 
        ' Placement du flux provenant du serveur dans un streamreader
        streamReader = New StreamReader(maResponseListe.GetResponseStream, e1)
 
        ' Lecture du stream reader
        Dim listeBrute As String = streamReader.ReadToEnd
 
        Dim separateur() As String = {vbLf}
 
        Return listeBrute.Split(separateur, StringSplitOptions.RemoveEmptyEntries)
 
        Catch ex
        ....
        End Try
 
End Function

J'ai bien conscience que c'est "incohérent" de récupérer l'encodage d'un StreamReader pour en recréer un autre derrière avec le même encodage mais je teste toutes les possibilités..

est-ce que ça s'affiche correctement avec un client FTP comme FileZilla ?

Oui, aucun problème avec FileZilla

De toutes façons, même si le StreamReader n'était pas Nothing, ce n'est pas pour autant qu'il aurait le bon encodage.

Je pensais que ça fonctionnerai mais non... streamReader = New StreamReader(maResponseListe.GetResponseStream, e1) me lève une exception : Le flux ne peut pas être lu.

Même si cela n'apporte pas grand chose e1 contient ceci :



Je suis un peu à court d'idées. Y a-t-il une solution ou une alternative ?

Merci !

[tomlev]

J'ai bien conscience que c'est "incohérent" de récupérer l'encodage d'un StreamReader pour en recréer un autre derrière avec le même encodage mais je teste toutes les possibilités..

Bah c'est surtout que ça n'a pas beaucoup de sens... puisque tu ne précises pas, le premier StreamReader est créé avec l'encodage UTF8, et donc le 2e aussi. Essaie de préciser un autre encodage (par exemple Encoding.Default pour ANSII)

[Jah73]

J'ai essayé tous les encodages qui me sont proposés (UTF32, UTF7, etc..) ainsi que le detectEncodingFromByteOrderMarks mais sans succès ..

[tomlev]

Tu as essayé ceux qui sont directement accessibles via une propriété de Encoding, mais il y en a plein d'autres. Regarde le résultat de Encoding.GetEncodings() pour voir la liste

[Jah73]

J'ai essayé de passer l'encodage en fonction des Pages de code associées aux Noms en me renseignant via le MSDN : http://msdn.microsoft.com/fr-fr/libr...v=vs.110).aspx

Mais comment savoir quel encodage tester ?

Merci pour ton aide

[tomlev]

Mais comment savoir quel encodage tester ?

Aucune idée...

A l'origine le protocole FTP ne supportait que l'encodage ASCII 7 bits (US-ASCII), mais la RFC 2640 introduit la possibilité de passer en UTF-8. Si le serveur en question n'est pas trop antédiluvien, ça devrait être supporté. Regarde ici pour un exemple :

http://social.msdn.microsoft.com/For...-ftp?forum=ncl

[Jah73]

Merci pour ta réponse tomlev

Le serveur qui pose problème commence à dater, il est de 1995. Je vais regarder la solution que tu me proposes. Ca n'a pas l'air simple