提到文件传输不知道的人会问怎么传输啊?可是这个问题对于我们程序员来说就不是一个很陌生的话题,大家都知道socket.socket是网络套接字,使用它我们可以很方便的实现网络的数据传输。在.net中提供了socket类来帮助开发者调用socket的使用,从而避免了调用socket的动态库来实现socket的麻烦。下面我们就来看一个简单的例子,从这个简单的例子来看看.net中的socket类实现socket是多么的方便。
VB.NET文件传输编程思路:在这个简单的例子中我们将通过socket来实现文件的网络传输和接收功能。要实现这两个功能我们需要通过vs.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动态库也可以解决这个问题。
【编辑推荐】