VB.Net Tutorial/Socket Network/UdpClient — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:55, 26 мая 2010
Содержание
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>