Discussion :

[hugoclo]

Bonsoir,
J'essaye de créer un usercontrole sous vb2010.
Dans se usercontrole il y a entre autres un Winsock.
Quand je lance le debuger un message d'erreur me met:

Impossible de créer UserControl 'WindowsControlLibrary1.Nav'

Le message d'erreur était

'Impossible de charger le fichier ou l'assembly
'file///D:\prog\Navdll\Navdll\obj\Debug\interop.MSWonsockLib.dll' ou une de ses dépendances.
Tentative de chargement d'un programme de format incorrect

Si quelqu'un sait d'ou cela vient?

[tomlev]

Euh... WinSock est obsolète depuis pas mal de temps ! Il y a tout ce qu'il faut dans le .NET framework pour gérer les communications réseau. Va voir les namespaces System.Net et System.Net.Sockets

[hugoclo]

Effectivement le winsock est "has been"
J'utilise ce code

Code :

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

1
2
3
4
5
6
7
    Private Sub Nav_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim receivingUdpClient As New UdpClient(900)
        Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
        Dim receiveBytes As [Byte]() = receivingUdpClient.Receive(RemoteIpEndPoint)
        Dim returnData As String = Encoding.Default.GetString(receiveBytes)
        TxtEtat.Text = returnData.ToString()
    End Sub

Je recois bien mais qu'une seule fois. je m'explique sur le port 900 une machine m'envois des données toutes les secondes. Avec cette methode je ne recois que la premiere puis plus rien.
Comment faire pour que mes donnees se rafraichissent.(Pas de timer)

[tomlev]

Je recois bien mais qu'une seule fois. je m'explique sur le port 900 une machine m'envois des données toutes les secondes. Avec cette methode je ne recois que la premiere puis plus rien.

Ben oui, l'évènement Load n'est déclenché qu'une seule fois...

Comment faire pour que mes donnees se rafraichissent.(Pas de timer)

Pourquoi pas de timer ? C'est assez adéquat...

Sinon tu peux exécuter le code dans un thread, et quand tu reçois quelque chose tu mets à jour l'interface

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
    Private Sub Nav_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t As New Thread(AddressOf ReceiveLoop)
        t.Start()
    End Sub
 
    Private Sub ReceiveLoop()
 
        Dim receivingUdpClient As New UdpClient(900)
        Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
 
        Wile True
            Dim receiveBytes As [Byte]() = receivingUdpClient.Receive(RemoteIpEndPoint)
            Dim returnData As String = Encoding.Default.GetString(receiveBytes)
            Invoke(AddressOf UpdateText, returnData.ToString())
        End While
    End Sub
 
    Private Sub UpdateText(Dim txt As String)
        TxtEtat.Text = txt
    End Sub

Note l'utilisation de Invoke pour exécuter UpdateText sur le thread principal (seul ce thread peut accéder aux éléments de l'interface graphique)

L'appel à UdpClient.Receive est bloquant, donc le thread restera bloqué jusqu'à la réception d'un message. De cette façon tu n'as pas besoin d'un timer, tu reçois les données quand elles arrivent