Problem bei UDP Kommunikation

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Uran.

    Problem bei UDP Kommunikation

    Hallo zusammen!
    Ich versuche seit Tagen mit einem Gerät zu kommunizieren bekomme es aber einfach nicht hin :(
    Im Wireshark sehe ich aber wie es brav antwortet, auch auf den richtigen Port auf dem ich lausche.
    Es antwortet immer auf die Ip & Port von der die Anfrage kam.

    Wenn ich mit einem anderen Programm (UDP TestTool) Daten an meines sende kommen diese ohne Probleme an.
    Habe 2 Methoden versucht. Vielleicht sieht wer gleich auf den ersten Blick wo mein Fehler liegt...

    Hier die erste:

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Imports System.IO
    4. Imports System.Net
    5. Imports System.Threading
    7. Public Class TestClass
    9. Public shared udpClient As New Socket(sockets.AddressFamily.InterNetwork,sockets.SocketType.Dgram,sockets.ProtocolType.Udp)
    10. Public shared EP As New IPEndPoint(IPAddress.Parse("192.168.23.10"),5555)
    11. public shared EEP As New IPEndPoint(IPAddress.Any,0)
    13. Public shared Sub Main()
    14. Dim ListenThread As Thread
    15. ListenThread = New Thread(AddressOf BeginListen)
    16. ListenThread.Start()
    17. End Sub
    19. Public shared Sub Send()
    20. Dim b() As Byte = Encoding.ASCII.GetBytes("!gai1#")
    22. Debug.WriteLine("Send to " & EP.Address.ToString & " [" & EP.Port.ToString & "] : " & Encoding.ASCII.getstring(b))
    24. udpClient.SendTo(b,EP)
    26. End Sub
    28. Public shared Sub BeginListen()
    29. Dim i As Integer = 0
    30. Dim Bytes(255) As Byte
    32. EEP.Address = IPAddress.parse("192.168.23.5")
    34. udpClient.SetSocketOption(SocketOptionLevel.Socket,SocketOptionName.ReuseAddress,true)
    36. udpClient.Connect(EEP)
    37. Debug.WriteLine("EEP-Port = " & EEP.Port.ToString)
    39. Dim LPort As Integer = DirectCast(DirectCast(udpClient.LocalEndPoint, System.Net.EndPoint), System.Net.IPEndPoint).Port
    40. Debug.WriteLine("ProC Port = " & lport.ToString)
    42. While True
    43. i = udpClient.Receive(Bytes ,SocketFlags.None)
    44. Debug.WriteLine("NewIncomingData: " & Encoding.ASCII.GetString(Bytes))
    45. End While
    47. End Sub
    49. End Class


    und hier die 2.

    Quellcode

    1. Imports System
    2. Imports System.Text
    3. Imports System.Net
    4. Imports System.Net.Sockets
    7. Public Class MainClass
    9. Private Shared buf(40) As Byte
    10. Private Shared ar As IAsyncResult
    11. Private Shared Bytes As Integer
    12. Public shared sck As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
    14. Public Shared Sub Main()
    16. Dim LocalEP As New IPEndPoint(IPAddress.Parse("192.168.23.5"),0)
    18. sck.SetSocketOption(SocketOptionLevel.Socket,SocketOptionName.ReuseAddress,true)
    19. sck.Connect(LocalEP)
    21. Dim LPort As Integer = DirectCast(DirectCast(sck.LocalEndPoint, System.Net.EndPoint), System.Net.IPEndPoint).Port
    22. Debug.Print("LPort = " & LPort.ToString)'Listen Port
    24. debug.WriteLine("Warte auf Daten...")
    25. ar = sck.BeginReceive(buf, 0, buf.Length, SocketFlags.None, New AsyncCallback(AddressOf ReceiveCallBack), sck)
    27. End Sub
    29. Public Shared Sub Send()
    31. Dim b() As Byte = Encoding.ASCII.GetBytes("!gai1#")
    32. Dim EP As New IPEndPoint(IPAddress.Parse("192.168.23.10"),5555) 'ADRESSE VOM PROC.
    34. Debug.WriteLine("Send to " & EP.Address.ToString & " [" & EP.Port.ToString & "] : " & Encoding.ASCII.getstring(b))
    37. sck.SendTo(b,EP)
    38. End Sub
    41. Private Shared Sub ReceiveCallBack(ByVal ar As IAsyncResult)
    43. Dim sck As Socket = CType(ar.AsyncState, Socket)
    44. Bytes = sck.EndReceive(ar)
    46. Dim msg As String = System.Text.Encoding.ASCII.GetString(buf, 0, Bytes)
    48. debug.WriteLine(msg)
    50. sck.BeginReceive(buf, 0, buf.Length, SocketFlags.None, New _
    51. AsyncCallback(AddressOf ReceiveCallBack), sck)
    53. End Sub
    54. End Class


    Würd mich freuen wenn mir da wer helfen kann.