VB.NET环境下的Socket编程举例

概述原文地址：http://track.cnblogs.com/archive/2005/09/26/244673.aspx         一直以来很想学习Socket编程方面的应用，比如怎样通过Socket编程实现单片机与PC的TCP连接通信。在单片机嵌入网卡芯片与PC进行连接通信，实现PC的web方式对单片机所控制的设备的状态管理，例如智能家居方面的应用。         下面通过例子来学习VB

原文地址：http://track.cnblogs.com/archive/2005/09/26/244673.aspx

一直以来很想学习Socket编程方面的应用，比如怎样通过Socket编程实现单片机与PC的TCP连接通信。在单片机嵌入网卡芯片与PC进行连接通信，实现PC的web方式对单片机所控制的设备的状态管理，例如智能家居方面的应用。
下面通过例子来学习VB.NET中Net.sockets类的应用，下面的程序分别分服务器和客户端两部分:

Visual Basic ---tcpserver imports Systemimports System.Netimports System.Net.socketsimports System.Textimports System.Threadingimports Microsoft.VisualBasic' State object for reading clIEnt data asynchronouslyPublic Class StateObject ' ClIEnt socket. Public workSocket As Socket = nothing ' Size of receive buffer. Public Const BufferSize As Integer = 1024 ' Receive buffer. Public buffer(BufferSize) As Byte ' Received data string. Public sb As New StringBuilderEnd Class 'StateObjectPublic Class AsynchronousSocketListener ' Thread signal. Public Shared allDone As New ManualresetEvent(False) ' This server waits for a connection and then uses asychronous operations to ' accept the connection,get data from the connected clIEnt,' echo that data back to the connected clIEnt. ' It then disconnects from the clIEnt and waits for another clIEnt. Public Shared Sub Main() ' Data buffer for incoming data. Dim bytes() As Byte = New [Byte](1023) {} ' Establish the local endpoint for the socket. Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostname()) Dim ipAddress As IPAddress = ipHostInfo.AddressList(0) Dim localEndPoint As New IPEndPoint(ipAddress,11000) ' Create a TCP/IP socket. Dim Listener As New Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp) ' Bind the socket to the local endpoint and Listen for incoming connections. Listener.Bind(localEndPoint) Listener.Listen(100) While True ' Set the event to nonsignaled state. allDone.reset() ' Start an asynchronous socket to Listen for connections. Console.Writeline("Waiting for a connection...") Listener.BeginAccept(New AsyncCallback(AddressOf AcceptCallback),Listener) ' Wait until a connection is made and processed before continuing. allDone.WaitOne() End While End Sub 'Main Public Shared Sub AcceptCallback(ByVal ar As IAsyncResult) ' Get the socket that handles the clIEnt request. Dim Listener As Socket = CType(ar.AsyncState,Socket) ' End the operation. Dim handler As Socket = Listener.EndAccept(ar) ' Create the state object for the async receive. Dim state As New StateObject state.workSocket = handler handler.BeginReceive(state.buffer,StateObject.BufferSize,New AsyncCallback(AddressOf ReadCallback),state) End Sub 'AcceptCallback Public Shared Sub ReadCallback(ByVal ar As IAsyncResult) Dim content As String = String.Empty ' RetrIEve the state object and the handler socket ' from the asynchronous state object. Dim state As StateObject = CType(ar.AsyncState,StateObject) Dim handler As Socket = state.workSocket ' Read data from the clIEnt socket. Dim bytesRead As Integer = handler.EndReceive(ar) If bytesRead > 0 Then ' There might be more data,so store the data received so far. state.sb.Append(EnCoding.ASCII.GetString(state.buffer,bytesRead)) ' Check for end-of-file tag. If it is not there,read ' more data. content = state.sb.ToString() If content.IndexOf("<EOF>") > -1 Then ' All the data has been read from the ' clIEnt. display it on the console. Console.Writeline("Read {0} bytes from socket. " + vbLf + " Data : {1}",content.Length,content) ' Echo the data back to the clIEnt. Send(handler,content) Else ' Not all data received. Get more. handler.BeginReceive(state.buffer,state) End If End If End Sub 'ReadCallback Private Shared Sub Send(ByVal handler As Socket,ByVal data As String) ' Convert the string data to byte data using ASCII enCoding. Dim byteData As Byte() = EnCoding.ASCII.GetBytes(data) ' Begin sending the data to the remote device. handler.BeginSend(byteData,byteData.Length,New AsyncCallback(AddressOf SendCallback),handler) End Sub 'Send Private Shared Sub SendCallback(ByVal ar As IAsyncResult) ' RetrIEve the socket from the state object. Dim handler As Socket = CType(ar.AsyncState,Socket) ' Complete sending the data to the remote device. Dim bytesSent As Integer = handler.EndSend(ar) Console.Writeline("Sent {0} bytes to clIEnt.",bytesSent) handler.Shutdown(SocketShutdown.Both) handler.Close() ' Signal the main thread to continue. allDone.Set() End Sub 'SendCallbackEnd Class 'AsynchronousSocketListener Visual Basic ---tcpclIEnt imports Systemimports System.Netimports System.Net.socketsimports System.Threadingimports System.Text' State object for receiving data from remote device.Public Class StateObject ' ClIEnt socket. Public workSocket As Socket = nothing ' Size of receive buffer. Public Const BufferSize As Integer = 256 ' Receive buffer. Public buffer(BufferSize) As Byte ' Received data string. Public sb As New StringBuilderEnd Class 'StateObjectPublic Class AsynchronousClIEnt ' The port number for the remote device. Private Const port As Integer = 11000 ' ManualresetEvent instances signal completion. Private Shared connectDone As New ManualresetEvent(False) Private Shared sendDone As New ManualresetEvent(False) Private Shared receiveDone As New ManualresetEvent(False) ' The response from the remote device. Private Shared response As String = String.Empty Public Shared Sub Main() ' Establish the remote endpoint for the socket. ' For this example use local machine. Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostname()) Dim ipAddress As IPAddress = ipHostInfo.AddressList(0) Dim remoteEP As New IPEndPoint(ipAddress,port) ' Create a TCP/IP socket. Dim clIEnt As New Socket(AddressFamily.InterNetwork,ProtocolType.Tcp) ' Connect to the remote endpoint. clIEnt.BeginConnect(remoteEP,New AsyncCallback(AddressOf ConnectCallback),clIEnt) ' Wait for connect. connectDone.WaitOne() ' Send test data to the remote device. Send(clIEnt,"This is a test<EOF>") sendDone.WaitOne() ' Receive the response from the remote device. Receive(clIEnt) receiveDone.WaitOne() ' Write the response to the console. Console.Writeline("Response received : {0}",response) ' Release the socket. clIEnt.Shutdown(SocketShutdown.Both) clIEnt.Close() End Sub 'Main Private Shared Sub ConnectCallback(ByVal ar As IAsyncResult) ' RetrIEve the socket from the state object. Dim clIEnt As Socket = CType(ar.AsyncState,Socket) ' Complete the connection. clIEnt.EndConnect(ar) Console.Writeline("Socket connected to {0}",clIEnt.RemoteEndPoint.ToString()) ' Signal that the connection has been made. connectDone.Set() End Sub 'ConnectCallback Private Shared Sub Receive(ByVal clIEnt As Socket) ' Create the state object. Dim state As New StateObject state.workSocket = clIEnt ' Begin receiving the data from the remote device. clIEnt.BeginReceive(state.buffer,New AsyncCallback(AddressOf ReceiveCallback),state) End Sub 'Receive Private Shared Sub ReceiveCallback(ByVal ar As IAsyncResult) ' RetrIEve the state object and the clIEnt socket ' from the asynchronous state object. Dim state As StateObject = CType(ar.AsyncState,StateObject) Dim clIEnt As Socket = state.workSocket ' Read data from the remote device. Dim bytesRead As Integer = clIEnt.EndReceive(ar) If bytesRead > 0 Then ' There might be more data,bytesRead)) ' Get the rest of the data. clIEnt.BeginReceive(state.buffer,state) Else ' All the data has arrived; put it in response. If state.sb.Length > 1 Then response = state.sb.ToString() End If ' Signal that all bytes have been received. receiveDone.Set() End If End Sub 'ReceiveCallback Private Shared Sub Send(ByVal clIEnt As Socket,ByVal data As String) ' Convert the string data to byte data using ASCII enCoding. Dim byteData As Byte() = EnCoding.ASCII.GetBytes(data) ' Begin sending the data to the remote device. clIEnt.BeginSend(byteData,clIEnt) End Sub 'Send Private Shared Sub SendCallback(ByVal ar As IAsyncResult) ' RetrIEve the socket from the state object. Dim clIEnt As Socket = CType(ar.AsyncState,Socket) ' Complete sending the data to the remote device. Dim bytesSent As Integer = clIEnt.EndSend(ar) Console.Writeline("Sent {0} bytes to server.",bytesSent) ' Signal that all bytes have been sent. sendDone.Set() End Sub 'SendCallbackEnd Class 'AsynchronousClIEnt

例程创建了客户端到服务器端的连接，客户端的连接是通过异步socket方式实现。 通过上面的程序相信大家对VB.NET中Net.sockets类有了基本的了解。

总结

以上是内存溢出为你收集整理的VB.NET环境下的Socket编程举例全部内容，希望文章能够帮你解决VB.NET环境下的Socket编程举例所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。