Discussion :

[walid kh]

Bonjour à tous,

Voilà j'ai un code de messagerie peer to peer. Il fonctionne bien mais seulement dés la deuxième utilisation c a d lors de la premiére exécution il m'affiche une erreur mais lorsque je réexecute l'application il fonctionne

Bon voilà le code dont il m'affiche l'exception :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Listener.Pending = True Then
            Message = ""
            Client = Listener.AcceptTcpClient()
            Dim Reader As New StreamReader(Client.GetStream())
            While Reader.Peek > -1
                Message = Message + Convert.ToChar(Reader.Read()).ToString
            End While
            RichTextBox1.AppendText((Label1.Text) + " dit : " + vbCrLf + Message + vbCrLf + vbCrLf)
        End If
    End Sub

L'exception se trouve dans la ligne en rouge et l'exception est :

Pas à l'écoute. Vous devez appeler la méthode Start() avant d appeler cette méthode.

Merci d'avance

[blade159]

bonjour,

as-tu fais un Listener.Start()? si oui, pourrais-tu me montrer la déclaration de ton objet Listener?

[walid kh]

oui je l'ai fait voilà le code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ListThread As New Thread(New ThreadStart(AddressOf Listening)) 
        ListThread.Start() 
    End Sub
 
 Private Sub Listening()
        Listener.Start()
    End Sub

ces 2 fonction sont juste avant le code que j'ai mis en premier

[blade159]

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
 
Public Class Form1
 
    Private Listener As TcpListener
    Private ListThread As Thread
 
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' démarrage du thread
        ListThread = New Thread(New ThreadStart(AddressOf Listening))
        Listener = New TcpListener(IPAddress.Any, 5354)
        ListThread.Start()
    End Sub
 
    Private Sub Listening()
 
        Listener.Start()
 
    End Sub
End Class

[walid kh]

Merci pour le code je pense qu'il m'aidera beaucoup merci encore