в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:53Z

1 версия

Новая страница

==Create Udp Connection using UdpClient==

<source lang="vbnet">Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main

Dim myUdpClient As UdpClient
Try
Dim myEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 12345)
myUdpClient = New UdpClient()
myUdpClient.Connect(myEndPoint)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class</source>

==Use UdpClient to receive a file==

<source lang="vbnet">Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Net
Public Class Tester
Public Shared Sub Main
Try
Dim bteDataAccept() As Byte
Dim strdataAccept As String = ""
Dim myEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 12345)
Dim myByte(36000) As Byte
Dim myUdpClient As UdpClient = New UdpClient(12345)
myByte = myUdpClient.Receive(Nothing)
Dim myFileStream As FileStream = New FileStream("test.txt", FileMode.Create, FileAccess
.Write)
myFileStream.Write(myByte, 0, myByte.Length)
myFileStream.Close()
myUdpClient.Close()
Catch e As Exception
Console.WriteLine(e.ToString )
End Try
End Sub
End Class</source>

==Use UdpClient to receive data==

<source lang="vbnet">Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Tester
Public Shared Sub Main
Try
Dim bteDataAccept() As Byte
Dim strdataAccept As String = ""
Dim myEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 12345)
Dim myByte(36000) As Byte
Dim myUdpClient As UdpClient = New UdpClient(12345)
myByte = myUdpClient.Receive(myEndPoint)

"" strdataAccept = Encoding.ASCII.GetString(myByte)
strdataAccept = Encoding.Unicode.GetString(myByte)
Console.WriteLine(strdataAccept)
myUdpClient.Close()
Catch e As Exception
Console.WriteLine(e.Message)
End Try
End Sub
End Class</source>

==Use UdpClient to send a file==

<source lang="vbnet">Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Public Class Tester
Public Shared Sub Main
Try
Dim dataSend() As Byte
Dim myUdpClient As UdpClient = New UdpClient("127.0.0.1", 12345)
Dim myFilestream As FileStream
myFilestream = New FileStream("test.txt", FileMode.Open, FileAccess.Read)
ReDim dataSend(myFilestream.Length)
myFilestream.Read(dataSend, 0, myFilestream.Length)
myUdpClient.Send(dataSend, dataSend.Length)
myFilestream.Close()
myUdpClient.Close()
Catch e As Exception
Console.WriteLine(e.Message)
End Try

End Sub
End Class</source>

==Use UdpClient to send message==

<source lang="vbnet">Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Tester
Public Shared Sub Main
Try
Dim dataSend() As Byte
Dim myUdpClient As UdpClient
myUdpClient = New UdpClient("127.0.0.1", 12345)
""dataSend = Encoding.ASCII.GetBytes(SendMessage)
dataSend = Encoding.Unicode.GetBytes("SendMessage")
myUdpClient.Send(dataSend, dataSend.Length)
myUdpClient.Close()
Catch e As Exception
Console.WriteLine(e.Message)
End Try
End Sub
End Class</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Socket Network/UdpClient - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия