Problème avec la propriété EndOfStream

Version imprimable

Bonjour,
Dans le cadre d'un projet pour ma société, je dois créer un petit exécutable qui récupère des e-mails sur un serveur pop, les écrire dans différents fichiers puis rediriger les fichiers dans certains dossiers. Jusque là, ça paraît plutôt simple.
Afin de réaliser ce projet, j'ai effectué des recherches sur Google et il m'a semblé que l'utilisation d'un streamreader pour l'envoi, en binaire, des commandes POP était le plus simple à mettre en oeuvre.
L'aboutissement de mes recherches donne ce petit bout de code :

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
 
'//////////////////// Déclarations qui vont bien
	'Initialisation du flux
        Strm = Sckt.GetStream
        'Initialisation du StreamReader
        StrmRdr = New StreamReader(Strm)
        Dim line As String = StrmRdr.ReadLine()
        If line.Substring(0, 3) = "+OK" Then
            CommandeUser = "USER " & strLogin & vbCr & vbLf
            'Envoi du login au serveur
            bCommande = System.Text.Encoding.UTF8.GetBytes(CommandeUser)
            Strm.Write(bCommande, 0, bCommande.Length)
 
            line = StrmRdr.ReadLine
            If line.Substring(0, 3) = "+OK" Then
                CommandePass = "PASS " & strPass & vbCr & vbLf
                'Envoi du mdp au serveur
                bCommande = System.Text.Encoding.UTF8.GetBytes(CommandePass)
                Strm.Write(bCommande, 0, bCommande.Length)
 
                line = StrmRdr.ReadLine
                If line.Substring(0, 3) = "+OK" Then
                    CommandeList = "RETR " & NumMessage & vbCr & vbLf
                    'Envoi de la commande de récupération du mail
                    bCommande = System.Text.Encoding.UTF8.GetBytes(CommandeList)
                    Strm.Write(bCommande, 0, bCommande.Length)
                    'Création d'un fichier texte
                    Dim SW As New StreamWriter(CheminBAL & "\cmessage" & NumMessage & ".txt")
                    line = StrmRdr.ReadLine
                    txtDEBUG.Text = line
                    If line <> Nothing Then
                        If line.Substring(0, 4) = "-ERR" Then
                            SW.WriteLine(line)
                        Else
                            'Parcourt et enregistrement de l'email dans le fichier
			    '/////////////////////////////////////////// Lorsqu'il arrive à la dernière ligne d'un email, la lecture de la propriété EndOfStream est trés trés longue.
                            Do Until StrmRdr.EndOfStream
                                SW.WriteLine(line)
                                line = StrmRdr.ReadLine
                            Loop
                        End If
                    End If
                    SW.Dispose()
                    txtPatience.Text = "Reception terminée"
                End If
            End If
        End If
        StrmRdr.Dispose()
        Strm.Dispose()
        Sckt.Close()

Ce code fonctionne, c'est à dire qu'il me récupère bien le mail de numéro NumMessage mais par contre il est trés long, trés trés long (parfois plus de 2 mins).
En debug, je me suis rendu compte que c'était la lecture de la propriété EndOfStream qui, lorsqu'il arrive à la dernière ligne du mail, est trés trés longue.

Quelqu'un aurait une explication, une piste pour une méthode plus rapide ?

Merci d'avance.

10/06/2011, 14h56
mactwist69
Soit je te dis une grosse bêtise (parce que je n'utilise jamais de do until), soit ça va régler ton problème:

Ton Do Until, va exécuter ton code et faire le test après, d'où ton problème sur la dernière ligne....

Remplace par un Do While, et dis nous si ça marche mieux :
Code:

1 2 3 4 While not StrmRdr.EndOfStream SW.WriteLine(line) line = StrmRdr.ReadLine End While
13/06/2011, 09h22
Misterdx

Tout d'abord, merci de ta réponse.:ccool:

Malheureusement la modification du

Code:

Do ... Loop

en

Code:

While Not ... End While

ne change pas la donne.
Je n'arrive pas à comprendre d'où vient le problème car j'utilise en parallèle ThunderBird pour accéder à la même boite mail et pourtant ThunderBird me récupère mes mails sans problème et beaucoup plus vite.:(

Quelqu'un aurait une idée?:calim2:

Finalement mon ami google m'a donnée une réponse qui me satisfait a moitié, j'ai remplacé ça :

Code:

1
2
3
4
5
 
                            Do Until StrmRdr.EndOfStream
                                SW.WriteLine(line)
                                line = StrmRdr.ReadLine
                            Loop

par ça :

Code:

1
2
3
4
5
 
                            While line <> "."
                                SW.WriteLine(line)
                                line = StrmRdr.ReadLine
                            End while

Il semblerait en effet que les e-mails se terminent par une ligne ne contenant qu'un point.

Malgré tout, je n'arrive pas à trouver de confirmation de cela.
Quelqu'un pourrait me fournir plus d'information ?
Merci d'avance.

17/06/2011, 11h24
BenoitM

Un ReadToEnd()

Ca ne marche pas? :)
17/06/2011, 12h11
Misterdx

Malheureusement le ReadToEnd se comporte exactement comme le ReadLine autrement dit il est long, trés long...

Merci quand même :)
17/06/2011, 12h19
BenoitM

humm

C'est quoi ton streamReader? fichier? Communication réseau?

Si c'est une commincation réseau c'est peut-etre parce qu'elle ne se termine jamais

Si je me souvient bien,il y avait un Reader avec un maxtime

Tu essayes de lire des caracteres et si après X secondes tu n'as tjs rien su lire tu sors de la fonction et tu considere l'échange comme terminer
17/06/2011, 15h36
Misterdx

Effectivement, ton idée correspond au comportement de mon bout de code.

Mon StreamReader correspond à une communication réseau avec un serveur POP, on peut imaginer effectivement que la fin de la réponse correspond en fait à l'attente pendant un temps x et si rien est reçu on considère la fin de la réponse.

Merci pour cette piste.