如何利用socket完成VB.NET文件传输

本篇内容主要讲解"如何利用socket完成VB.NET文件传输"，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习"如何利用socket完成VB.NET文件传输"吧!

VB.NET文件传输代码：

发送端PublicClassForm1  InheritsSystem.Windows.Forms.Form  PrivateSubButton1_Click(ByValsenderAsSystem.Object,  ByValeAsSystem.EventArgs)HandlesButton1.Click  DimsendsocketAsNewNet.Sockets.Socket  (Net.Sockets.AddressFamily.InterNetwork,  Net.Sockets.SocketType.Stream,Net.Sockets.ProtocolType.Tcp)  ''实例化socket  DimipendpiontAsNewNet.IPEndPoint  (Net.IPAddress.Parse("192.168.0.1"),8888)''建立终结点  ''OpenFileDialog1.ShowDialog()  DimfsAsNewIO.FileStream("c:p.doc",  IO.FileMode.OpenOrCreate,IO.FileAccess.Read)''要传输的文件  Dimfssize(fs.Length-1)AsByte  DimstrreadAsNewIO.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  EndSub  EndClass  接收端PublicClassForm1  InheritsSystem.Windows.Forms.Form  DimreceivesocketAsNewNet.Sockets.Socket  (Net.Sockets.AddressFamily.InterNetwork,  Net.Sockets.SocketType.Stream,  Net.Sockets.ProtocolType.Tcp)  PrivateSubForm1_Load(ByValsenderAsSystem.Object,  ByValeAsSystem.EventArgs)HandlesMyBase.Load  DimhostipendpiontAsNewNet.IPEndPoint  (Net.IPAddress.Parse("192.168.0.1"),8888)  receivesocket.Bind(hostipendpiont)  ''建立远程计算机的的socket  receivesocket.Listen(2)''监听socket  EndSub   PrivateSubButton1_Click(ByValsenderAsObject,  ByValeAsSystem.EventArgs)HandlesButton1.Click  DimrecfsAsNewIO.FileStream("p.doc",  IO.FileMode.OpenOrCreate)  ''接收数据并将其保存到一个新的文件中  Dimrecbyte(229888)AsByte  DimhostsocketAsNet.Sockets.Socket=  receivesocket.Accept()  ''同意和发送端计算机建立连接  DimnewfilestrAsNewIO.BinaryWriter(recfs)''流写  hostsocket.Receive(recbyte)  ''recfs.Write(recbyte,0,recbyte.Length-1)  newfilestr.Write(recbyte,0,recbyte.Length-1)  recfs.Close()  hostsocket.Shutdown(Net.Sockets.SocketShutdown.Receive)  hostsocket.Close()  EndSub  EndClass

通过上面的简单语句我们就完成VB.NET文件传输，但是这里有一点要注意，此代码只可以接受文本文件和图片文件，对于其他文件的发送和接收将导致编码错误，如果你不相信你可以传输一个mp3文件，再在播放器中打开接收到的mp3文件，你会听到只有开头不到2秒的音乐可以播放。如果想解决这个问题你需要使用，net中的tcp/ip类或udp类来实现，当然调用底层的socket动态库也可以解决这个问题。

到此，相信大家对"如何利用socket完成VB.NET文件传输"有了更深的了解，不妨来实际操作一番吧！这里是网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！