利用socket完成VB.NET文件傳輸案例剖析
提到文件傳輸不知道的人會問怎么傳輸啊?可是這個問題對于我們程序員來說就不是一個很陌生的話題,大家都知道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動態庫也可以解決這個問題。
【編輯推薦】

















