www.pudn.com > UpdReceive_UdpSend.rar > UdpDataReceive.vb

Imports System.Net 
Imports System.Net.Sockets 
Imports System.Text 
 
Public Class UdpDataReceive 
    Private myUdpClient As UdpClient 
    Private intPort As Integer 
    Private ReceiveMessage As String = "" 
    Private ErrMessage As String = "" 
 
    Public Sub New(ByVal intPort As Integer) 
        Me.intPort = intPort 
    End Sub 
 
    Public Sub AcceptData() 
        Try 
            Dim bteDataAccept() As Byte 
            Dim strdataAccept As String = "" 
            Dim myEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), intPort) 
            Dim myByte(36000) As Byte 
 
            myUdpClient = New UdpClient(intPort) 
            ''±µ¦¬¸ê®Æ 
            myByte = myUdpClient.Receive(myEndPoint) 
         
            ''  strdataAccept = Encoding.ASCII.GetString(myByte) 
            strdataAccept = Encoding.Unicode.GetString(myByte) 
            ReceiveMessage = strdataAccept 
            myUdpClient.Close() 
 
        Catch e As Exception 
            ErrMessage = e.Message 
        End Try 
 
    End Sub 
 
    Public ReadOnly Property GetMessage() As String 
        Get 
            Return ErrMessage 
        End Get 
    End Property 
 
    Public ReadOnly Property GetReceiveData() As String 
        Get 
            Return ReceiveMessage 
        End Get 
    End Property 
 
End Class