如何利用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://scyanting.com/article/jposdj.html