Discussion :

[Misterdx]

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 :

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
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.

[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 :

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

1
2
3
4
 While not StrmRdr.EndOfStream
                                SW.WriteLine(line)
                                line = StrmRdr.ReadLine
 End While

[Misterdx]

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

Malheureusement la modification du

Code :

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

Do ... Loop

en

Code :

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

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?

[Misterdx]

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

Code :

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

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

par ça :

Code :

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

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.

[BenoitM]

Un ReadToEnd()

Ca ne marche pas?

[Misterdx]

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

Merci quand même