Hallo,

ich hab ein problem....

ich will einen einfachen udp empfänger in VB2010 haben, der ankommende texte ausgibt. so wie unten klappt das zwar, aber der code wartet halt auf dem empfang von daten.

kann ich das irgendwie auch in ein event bringen oder so? das das programm da nicht auf den empfang wartet?

wie ginge das!?

lieben dank!

Imports System

Imports System.Net

Imports System.Net.Sockets

Imports System.Text


Public Class Form1

    Private Const listenPort As Integer = 12345


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


        StartListener()


    End Sub


    Public Sub StartListener()

        Dim done As Boolean = False

        Dim listener As New UdpClient(listenPort)

        Dim groupEP As New IPEndPoint(IPAddress.Any, listenPort)

        Try

            While Not done

                TextBox1.Text = "Waiting for broadcast"

                Dim bytes As Byte() = listener.Receive(groupEP)

                TextBox1.Text = TextBox1.Text & vbCrLf & "Received broadcast from {0} :" & groupEP.ToString()

                TextBox1.Text = TextBox1.Text & vbCrLf & Encoding.ASCII.GetString(bytes, 0, bytes.Length)


            End While

        Catch e As Exception

            TextBox1.Text = e.ToString()

        Finally

            listener.Close()

        End Try

    End Sub 'StartListener



End Class

Es gibt Asynchrone Funktionen die dir das ermöglichen.

Die UdpClient Klasse verfügt über die Funktionen BeginReceive und BeginSend.

Lg

Gateway