probleme de socket sous vb.netRésolu

Question

Bonjour,

j'essaye d 'envoyer un message  par un socket mais j'ai le message "une requete d'envoi ou de r&#233;ception n'a pas &#233;t&#233; autoris&#233;e car le socket n'est pas connect&#233; et (lors de l'envoi sur un socket datagramme en utilisant un appel sendto) aucune adresse n'a &#233;t&#233; fournie" alors que la connexion se fait (je la controle par le mode d&#233;bogage).
j'ai la proc&#233;dure socketreception qui se lance au lancement de l'application ( par l'interm&#233;diaire d'un thread) :
  
     t =   New Thread(AddressOf socketReception)
    t.Start
    
    
... et socketenvoi au click d'un bouton.

voici les proc&#233;dures :

 Sub socketReception() 
        
        Try
        dim s as    New Socket ( AddressFamily.InterNetwork ,SocketType.Stream, ProtocolType.Tcp)
         Dim ipAdressServer As IPAddress =IPAddress.Parse(dns.GetHostAddresses(Dns.GetHostName())(0).ToString)
         s.Bind(New IPEndPoint(ipAdressServer,ipPort))
         s.Listen(1)
         s.Accept()
    
            Dim ret As Integer=1
            Dim rbuf(1024)  As Byte
            Dim chaine As New system.Text.StringBuilder
          
            While (  ret= s.Receive( rbuf,0,1024,SocketFlags.None))>0
            chaine.Append(system.Text.Encoding.ASCII.GetString(rbuf,0,ret))

            End While
            msgbox(chaine)             

          
            Catch ex As Exception
            msgbox(ex.Message) 

        End Try

Sub socketEnvoi()
        Try
            
            dim s as New Socket ( AddressFamily.InterNetwork ,SocketType.Stream, ProtocolType.Tcp)
            Dim ep As New IPEndPoint(IPAddress.Parse(ipAdresse.text),ipPort)  
            s.Connect(ep)
            
           'envoi
            Dim donnees As String="salut ca va tu vas bien"  
            Dim buffer1  As  Byte() = System.Text.Encoding.ASCII.GetBytes(donnees)
 
            s.Send(  buffer1  ,0, buffer1.Length    , SocketFlags.None)  
     
           Catch ex As Exception
            
            msgbox(ex.Message.ToString)
        End Try
       
 j'ai par ailleurs les d&#233;clarations suivantes dans un module: 

Public ipPort as Integer  = 4000

Merci de vos r&#233;ponses.

NHenry · Accepted Answer

Bonjour

s.Accept() te retourne un nouveau socket, c'est lui que tu doit utiliser.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_Yossi · Answer

j'ai essay&#233;. ca ne fonctionne toujours pas... 
ya pas autre chose &#224; faire selon toi.  ???

NHenry · Answer

Bonjour

&#231;a donne quoi ton code ? c'est &#233;tonnant.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_Yossi · Answer

Sub socketReception() 
        
        Try
        dim s as    New Socket ( AddressFamily.InterNetwork ,SocketType.Stream, ProtocolType.Tcp)
         Dim ipAdressServer As IPAddress =IPAddress.Parse(dns.GetHostAddresses(Dns.GetHostName())(0).ToString)
         s.Bind(New IPEndPoint(ipAdressServer,ipPort))
         s.Listen(1)
        dim s2 as Socket= s.Accept()
    
            Dim ret As Integer
            Dim rbuf(1024)  As Byte
            Dim chaine As New system.Text.StringBuilder
            
            
                   ret=          s2.Receive(rbuf,0,1024,SocketFlags.None)
                   'msgbox(ret)
            chaine.Append(system.Text.Encoding.ASCII.GetString(rbuf,0,ret)) 
            
                msgbox(system.Text.Encoding.ASCII.GetString(rbuf,0,ret))
        
           

        Catch ex As Exception
            msgbox(ex.Message) 

        End Try
        
 
    End Sub
    
    Sub socketEnvoi()
        Try
            
            dim s as New Socket ( AddressFamily.InterNetwork ,SocketType.Stream, ProtocolType.Tcp)
            Dim ep As New IPEndPoint(IPAddress.Parse(ipAdresse.text),ipPort)
            s.Connect(ep)
            
           'envoi
            Dim donnees As String="salut monde"  
            Dim buffer1  As  Byte() = System.Text.Encoding.ASCII.GetBytes(donnees)
             s.Send(  buffer1  ,0, buffer1.Length    , SocketFlags.None)
            
            
               s.Shutdown(SocketShutdown.Send)
           Catch ex As Exception
            
            msgbox(ex.Message.ToString)
        End Try

cs_Yossi · Answer

finalement ca marche avec ce code. Je sais pas pourquoi ca marchait pas avant.peut etre le fait que je change de r&#233;seau....

Probleme de socket sous vb.net

5 réponses

Discussions similaires