运用.net中的socket实现文件传输

socket是套接字，使用它我们可以很方便的实现网络的数据传输。在.net中提供了socket类来帮助开发者调用socket的使用，从而避免了调用socket的动态库来实现socket的麻烦。下面我们就来看一个简单的例子，从这个简单的例子来看看.net中的socket类实现socket是多么的方便。
　　
　　编程思路：在这个简单的例子中我们将通过socket来实现文件的网络传输和接收功能。要实现这两个功能我们需要通过vs.net建立两个实例来完成。一个发送端，一个接收端。由于文中已经给出了详细的注释这里就不罗嗦了。
　　
　　发送端
　　
　　Public Class Form1
　　　　Inherits System.Windows.Forms.Form
　　　　Private Sub Button1_Click(ByVal sender As System.Object,
　　　　　　ByVal e As System.EventArgs) Handles Button1.Click
　　　　　　Dim sendsocket As New Net.Sockets.Socket
　　　　(Net.Sockets.AddressFamily.InterNetwork,
　　　　Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
　　　　’实例化socket
　　　　　　Dim ipendpiont As New Net.IPEndPoint
　　　　(Net.IPAddress.Parse("192.168.0.1"), 8888)’建立终结点
　　　　　　’OpenFileDialog1.ShowDialog()
　　　　　　Dim fs As New IO.FileStream("c:\p.doc",
　　　　IO.FileMode.OpenOrCreate, IO.FileAccess.Read)’要传输的文件
　　　　　　Dim fssize(fs.Length - 1) As Byte
　　　　　　Dim strread As New IO.BinaryReader(fs)’流处理要传输的文件
　　　　　　’fs.Read(fssize, 0, fssize.Length - 1)
　　　　　　strread.Read(fssize, 0, fssize.Length - 1)
　　　　　　sendsocket.Connect(ipendpiont)’连接远程计算机
　　　　　　sendsocket.Send(fssize)’发送文件
　　　　　　Label1.Text = fs.Length()
　　　　　　fs.Close()
　　　　　　sendsocket.Shutdown(Net.Sockets.SocketShutdown.Send)
　　　　’关闭发送连接
　　　　　　sendsocket.Close()’关闭本机socket
　　　　End Sub
　　End Class