Discussion :

[toutounesan]

Bonjour,

Je voudrais utiliser une socket

Code :

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

Dim WithEvents liaison_cam As MSWinsockLib.Winsock

mais le type MSWinsockLib.Win n'est pas reconnu!
Quelle libraire faut-il ajouter?

[toutounesan]

j'ai trouvé:

Code :

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

Interop.MSWinsockLib

[tomlev]

Winsock, c'est obsolète depuis presque 10 ans
Tu ferais mieux d'utiliser les classes du .NET Framework, dans les namespaces System.Net et System.Net.Sockets

[toutounesan]

oui mais je reprends du code déjà fait :

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
'gestion des différents cas d'état de connexion camera
        Try
            'pas de liaison etablie : creation d'un winsock de connexion
            If liaison_cam Is Nothing Then
                liaison_cam = New MSWinsockLib.Winsock()
            End If
            'connexion en cours de fermeture: fermeture de la connexion
            If liaison_cam.State = MSWinsockLib.StateConstants.sckClosing Then
                liaison_cam.Close()
            End If
            'connexion fermée : ouverture de la connexion
            If liaison_cam.State = MSWinsockLib.StateConstants.sckClosed Then
                liaison_cam.Connect(Variables.C_adresse_cognex, Variables.C_port_cognex)
            End If
            'connecté: envoie de la commande d'acquisition
            If liaison_cam.State = MSWinsockLib.StateConstants.sckConnected Then
                liaison_cam.SendData("START" + vbCrLf)
            End If
 
        Catch ex As Exception
            MsgBox("erreur lors de la commande d'acquisition")
        End Try

et en plus ça ne fonctionne pas jle compilateur ne veut pas instancier un objet MSWinsockLib.Winsock()