Discussion :

[toutounesan]

Bonjour
J'ai un souci pour créer un socket au niveau de New IPEndPoint(...)

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
     Try
            'pas de liaison etablie : creation d'un winsock de connexion
            If liaison_cam Is Nothing Then
                liaison_cam = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
                liaison_cam.Bind(New IPEndPoint(Variables.C_adresse_cognex, Variables.C_port_cognex))
                liaison_cam.Listen(1)
 
            End If
 
            'connecté: envoie de la commande d'acquisition
            If liaison_cam.Connected = True Then
                Dim Message As [Byte]() = System.Text.Encoding.ASCII.GetBytes("START")
                Dim OctetsEnvoyes As Integer = liaison_cam.Send(Message, 0, Message.Length, SocketFlags.None)
                ' liaison_cam.Send("START" + vbCrLf)
            End If
 
        Catch ex As Exception
            MsgBox("erreur lors de la commande d'acquisition")
        End Try

Mes adresse sont bonnes, je fais une exception au niveau de

Code :

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

  liaison_cam.Bind(New IPEndPoint(Variables.C_adresse_cognex, Variables.C_port_cognex))

Merci de m'aider

[mactwist69]

Bonjour,

Quel exception ?