如何利用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文件傳輸”有了更深的了解，不妨來實際操作一番吧！這里是億速云網站，更多相關內容可以進入相關頻道進行查詢，關注我們，繼續學習！