如何利用socket完成VB.NET文件傳輸

本篇內(nèi)容主要講解“如何利用socket完成VB.NET文件傳輸”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實(shí)用性強(qiáng)。下面就讓小編來帶大家學(xué)習(xí)“如何利用socket完成VB.NET文件傳輸”吧!

VB.NET文件傳輸代碼：

發(fā)送端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)  ''實(shí)例化socket  DimipendpiontAsNewNet.IPEndPoint  (Net.IPAddress.Parse("192.168.0.1"),8888)''建立終結(jié)點(diǎn)  ''OpenFileDialog1.ShowDialog()  DimfsAsNewIO.FileStream("c:p.doc",  IO.FileMode.OpenOrCreate,IO.FileAccess.Read)''要傳輸?shù)奈募?nbsp; Dimfssize(fs.Length-1)AsByte  DimstrreadAsNewIO.BinaryReader(fs)''流處理要傳輸?shù)奈募?nbsp; ''fs.Read(fssize,0,fssize.Length-1)  strread.Read(fssize,0,fssize.Length-1)  sendsocket.Connect(ipendpiont)''連接遠(yuǎn)程計(jì)算機(jī)  sendsocket.Send(fssize)''發(fā)送文件  Label1.Text=fs.Length()  fs.Close()  sendsocket.Shutdown(Net.Sockets.SocketShutdown.Send)  ''關(guān)閉發(fā)送連接  sendsocket.Close()''關(guān)閉本機(jī)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)  ''建立遠(yuǎn)程計(jì)算機(jī)的的socket  receivesocket.Listen(2)''監(jiān)聽socket  EndSub   PrivateSubButton1_Click(ByValsenderAsObject,  ByValeAsSystem.EventArgs)HandlesButton1.Click  DimrecfsAsNewIO.FileStream("p.doc",  IO.FileMode.OpenOrCreate)  ''接收數(shù)據(jù)并將其保存到一個(gè)新的文件中  Dimrecbyte(229888)AsByte  DimhostsocketAsNet.Sockets.Socket=  receivesocket.Accept()  ''同意和發(fā)送端計(jì)算機(jī)建立連接  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文件傳輸，但是這里有一點(diǎn)要注意，此代碼只可以接受文本文件和圖片文件，對(duì)于其他文件的發(fā)送和接收將導(dǎo)致編碼錯(cuò)誤，如果你不相信你可以傳輸一個(gè)mp3文件，再在播放器中打開接收到的mp3文件，你會(huì)聽到只有開頭不到2秒的音樂可以播放。如果想解決這個(gè)問題你需要使用，net中的tcp/ip類或udp類來實(shí)現(xiàn)，當(dāng)然調(diào)用底層的socket動(dòng)態(tài)庫也可以解決這個(gè)問題。

到此，相信大家對(duì)“如何利用socket完成VB.NET文件傳輸”有了更深的了解，不妨來實(shí)際操作一番吧！這里是億速云網(wǎng)站，更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢，關(guān)注我們，繼續(xù)學(xué)習(xí)！