Problème avec méthode start() en vb 2008

Version imprimable

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:

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 :

Citation:

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

Merci d'avance ;)

05/04/2010, 12h21
blade159

bonjour,

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

oui je l'ai fait voilà le code :

Code:

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

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

05/04/2010, 14h08
walid kh

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