fdiedler http://www.tutoworld.com | Dsl je ne suis mal exprimer.. Je sais créer un Thread et tout.. mais je vois pas enquoi mettre ma fonction listen dans un thread va regler momn pb ??
Code :
- Public Sub Listen(ByVal PortEcoute As Integer, ByVal IpEcoute As IPAddress)
- Try
- 'Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
- 'Dim ipAddress As IPAddress = IpEcoute 'ipHostInfo.AddressList(2)
- Dim remoteEP As New IPEndPoint(IpEcoute, PortEcoute) '(ipHostInfo.AddressList(2), PortEcoute)
- sckserver = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
- RaiseEvent IPConnect(IpEcoute.ToString, sckserver)
- With sckserver
- .Bind(remoteEP)
- .Listen(m_NumberListen)
- .BeginAccept(New AsyncCallback(AddressOf AcceptCallback), sckserver)
- ListSocket.Add(sckserver) 'ajoute a un tableau les sockets client
- mySL.Add("Serveur", sckserver)
- End With
- m_ConnectState = True
- RaiseEvent ConnectStatut(m_ConnectState)
- Catch ex As Exception
- MsgBox(ex.ToString)
- MsgBox("Adresse IP ou port de connection manquant", MsgBoxStyle.Critical, "Erreur de connexion" )
- RaiseEvent MessageError(1000, "Erreur adressage IP ou/et Port manquant(s) ou érroné(s)" )
- m_ConnectState = False
- RaiseEvent ConnectStatut(m_ConnectState)
- End Try
- End Sub
|
Voila ma procedure Listen... Maintenant comment je pourais mettre ca dans un thread ?? et est ce que ca va resoudre mon pb ??
merci |