UDP bidirektionle Kommunikation

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    UDP bidirektionle Kommunikation

    Bin neu in VB.NET nach langen VB6.0 Jahren. Ich versuche gerade eine UDP peer-to-peer Kommunikation zwischen zwei lokalen Rechner aufzubauen. Leider klappt es nur in eine Richtung und ich befürchte meine Unkenntnis hat einige Fhler verursacht. Ich wäre sehr froh, wenn jemand auf die Sourcodes schauen und Rückmeldung geben könnte.
    Besten Dank

    VB.NET-Quellcode

    1. GB
    2. 'SENDER
    3. Imports System.Net.Sockets
    5. Public Class Form1
    6. Dim IP As String = "192.168.0.1" 'Beispiel IP
    7. Dim LocalPort As Integer = 8800 'Empfaenger-Port
    8. Dim Port As Integer = 8801 'Sender-Port
    10. Dim RemoteEndPoint As New Net.IPEndPoint(Net.IPAddress.Parse(IP), LocalPort)
    11. Dim Client As New UdpClient()
    13. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    14. 'Client.Connect(IP, Port)
    16. Dim ReceiveThread As New System.Threading.Thread(AddressOf ReceiveData)
    17. ReceiveThread.IsBackground = True
    18. ReceiveThread.Start()
    20. End Sub
    21. Private Sub ReceiveData()
    22. Dim Client As New UdpClient(LocalPort)
    24. Do
    25. Try
    26. Dim Data() As Byte = Client.Receive(Nothing)
    27. Dim Text As String = System.Text.Encoding.UTF8.GetString(Data)
    29. 'Die Variable Text enthält nun den Nachrichtentext
    30. ' MessageBox.Show(Text, "Umfrage")
    31. UpdateTextBox(Text)
    33. Catch Err As Exception
    34. 'Es ist ein Fehler aufgetreten
    35. End Try
    36. Loop
    37. End Sub
    38. Private Sub SendData()
    39. Dim Client As New UdpClient(LocalPort)
    40. Dim Text As String = TextBox2.Text
    41. Try
    42. Dim Data() As Byte = System.Text.Encoding.UTF8.GetBytes(Text)
    43. Client.Send(Data, Data.Length, RemoteEndPoint)
    45. Catch Err As Exception
    46. 'Es ist ein Fehler aufgetreten
    47. End Try
    48. End Sub
    49. Private Sub UpdateTextBox(ByVal number As String)
    50. If Me.InvokeRequired Then
    51. Dim args() As String = {number}
    52. Me.Invoke(New Action(Of String)(AddressOf UpdateTextBox), args)
    53. Return
    54. End If
    55. TextBox1.Text = TextBox1.Text & Chr(13) & Chr(10) & number
    56. End Sub
    58. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    60. End Sub
    61. End Class
    63. RECEIVER
    65. Imports System.Net.Sockets
    67. Public Class Form1
    68. Dim IP As String = "192.168.0.1" 'Beispiel IP
    69. Dim LocalPort As Integer = 8800 'Empfaenger-Port
    70. Dim Port As Integer = 8801 'Sender-Port
    72. Dim RemoteEndPoint As New Net.IPEndPoint(Net.IPAddress.Parse(IP), LocalPort)
    73. Dim Client As New UdpClient()
    75. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    76. 'Client.Connect(IP, Port)
    78. Dim ReceiveThread As New System.Threading.Thread(AddressOf ReceiveData)
    79. ReceiveThread.IsBackground = True
    80. ReceiveThread.Start()
    82. End Sub
    83. Private Sub ReceiveData()
    84. Dim Client As New UdpClient(LocalPort)
    86. Do
    87. Try
    88. Dim Data() As Byte = Client.Receive(Nothing)
    89. Dim Text As String = System.Text.Encoding.UTF8.GetString(Data)
    91. 'Die Variable Text enthält nun den Nachrichtentext
    92. ' MessageBox.Show(Text, "Umfrage")
    93. UpdateTextBox(Text)
    95. Catch Err As Exception
    96. 'Es ist ein Fehler aufgetreten
    97. End Try
    98. Loop
    99. End Sub
    100. Private Sub SendData()
    101. Dim Client As New UdpClient(LocalPort)
    102. Dim Text As String = TextBox2.Text
    103. Try
    104. Dim Data() As Byte = System.Text.Encoding.UTF8.GetBytes(Text)
    105. Client.Send(Data, Data.Length, RemoteEndPoint)
    107. Catch Err As Exception
    108. 'Es ist ein Fehler aufgetreten
    109. End Try
    110. End Sub
    111. Private Sub UpdateTextBox(ByVal number As String)
    112. If Me.InvokeRequired Then
    113. Dim args() As String = {number}
    114. Me.Invoke(New Action(Of String)(AddressOf UpdateTextBox), args)
    115. Return
    116. End If
    117. TextBox1.Text = TextBox1.Text & Chr(13) & Chr(10) & number
    118. End Sub
    120. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    122. End Sub
    123. End Class


    Edit by ~blaze~:
    *Codetag eingefügt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

    @gabente Willkommen im Forum. :thumbup:
    Zu UDP gugst Du hier.
    Asynchrone Clientsockets gugst Du hier.
    Asynchrone Serversocket gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi
    so wie ich das sehe, verwendest du hole punching, oder? Die Ports müssen einander ergänzen: LocalPort sollte auf Port und umgekehrt senden/empfangen. Du solltest eigentlich nicht zweimal den gleichen Port auf der gleichen IP-Adresse belegen können.

    Macht sich sonst ein Fehler bemerkbar?
    Die äußere Client-Variable scheint unnötig zu sein, bzw. eine der inneren. Eigentlich sollten wohl beide UdpClient-Instanzen auf Ebene der enthaltenden Klasse existieren.

    Kleine Anmerkungen:
    Verwende außerhalb von Methoden stets Public, Private, Protected, Friend oder Protected Friend statt Dim.
    Außerdem sollten nur für die UI-Funktionalität nötige Dinge in der Form sein.
    Alle Steuerelemente sollten Benennungen haben, die auf ihren Zweck rückschließen lassen.
    Räume Objekte, die IDisposable implementieren durch einen Aufruf von Dispose auf, sobald sie nicht mehr benötigt werden. UdpClient implementiert bspw. IDisposable.
    Statt Chr(13) & Chr(10) kannst du vbLfCr verwenden, statt Chr(10) vbLf.

    Viele Grüße
    ~blaze~

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

    ~blaze~ schrieb:

    außerhalb von Variablen
    ?(

    Meinstest du nicht eher außerhalb von Subs?
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

Facebook
Telefonspende