vb.net使用socket传送文件

发布时间：2020-12-17 08:18:56 所属栏目：百科来源：网络整理

导读：服务端： Imports System.Text ' Imports System.Net.Sockets Imports System.Net Imports System.IO Public Class Form1 Dim socket As Socket Delegate Sub setText(ByVal text As String) Private Sub Button1_Click(ByVal sender As System.Object,ByVal

服务端：
Imports System.Text '
Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Public Class Form1
Dim socket As Socket
Delegate Sub setText(ByVal text As String)
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
socket = New Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)
Dim localEndPoint As New IPEndPoint(Net.IPAddress.Parse("172.17.53.90"),9999)
socket.Bind(localEndPoint)
socket.Listen(3)
SetLableText("~~~~~~~~~~~~服务已开始启动~~~~~~~~~~~~~~")
While True
Dim fileStream As FileStream = New FileStream("mytest.doc",FileMode.OpenOrCreate,FileAccess.ReadWrite)
Dim byteArray(6553500) As Byte
Dim binary As New BinaryWriter(fileStream)
Dim receiveSocket As Socket = socket.Accept()
receiveSocket.Receive(byteArray)
binary.Write(byteArray,byteArray.Length - 1)
receiveSocket.Shutdown(SocketShutdown.Receive)
FileStream.Close()
receiveSocket.Close()
End While

End Sub
Private Sub SetLableText(ByVal txt As String)
If Label1.InvokeRequired Then
Dim st As setText = New setText(AddressOf SetLableText)
Me.Invoke(st,New Object() {txt})
Else
Label1.Text = txt
End If
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "淡淡的"
End Class
客户端：
Imports System.Text
Dim fileName = ""
OpenFileDialog1.Filter = "All Documents(*.*)|*.*|Word Documents|*.doc"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.InitialDirectory = "c:"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
fileName = OpenFileDialog1.FileName
TextBox1.Text = fileName
Dim sendSocket As New Socket(AddressFamily.InterNetwork,137)">Dim endPoint As New IPEndPoint(Net.IPAddress.Parse("172.17.53.90"),137)">sendSocket.Connect(endPoint)
Dim file As FileStream = New FileStream(TextBox1.Text,FileMode.Open)
Dim binaryRead As New BinaryReader(file)
Dim byteArray(file.Length - 1) As Byte
binaryRead.Read(byteArray,file.Length - 1)
sendSocket.Send(byteArray)
file.Close()
sendSocket.Shutdown(SocketShutdown.Send)
sendSocket.Close()
Label2.Text = "文档已经创送完毕！"
End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!