如何利用socket完成VB.NET文件传输
本篇内容主要讲解“如何利用socket完成VB.NET文件传输”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“如何利用socket完成VB.NET文件传输”吧!
成都创新互联公司-云计算及IDC服务提供商，涵盖公有云、IDC机房租用、四川雅安电信机房、等保安全、私有云建设等企业级互联网基础服务，咨询电话：18980820575
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文件传输”有了更深的了解，不妨来实际操作一番吧！这里是创新互联网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！
网站栏目：如何利用socket完成VB.NET文件传输
文章源于：http://6mz.cn/article/jposdj.html