usercontrol avec winsock

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:

Citation:

---

Impossible de créer UserControl 'WindowsControlLibrary1.Nav'

---

Le message d'erreur était

Citation:

---

'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?

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

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

Code:

---

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)

Citation:

---

Envoyé par hugoclo

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...

Citation:

---

Envoyé par hugoclo

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:

---

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