vb.net TCP/IP传送文件无法打开

2020-09-14 01:00:08 2.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.net 2005实现TCP网络通信例程(.net VS2005)源码 TCP协议是TCP/IP协议簇中的传输层中的一个协议，也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇中，有一个协议和TCP协议非常类似，这就是UDP协议，网络上进行基于UDP协议的数据传送时，发送方只需知道接收方的IP地址（或主机名）和端口号就可以发送UDP数据包。而接收方只需知道发送方发送数据对应的端口号，就能够接收UDP数据包了。传送数据的双方并不需要进行连接就能够实现数据通讯阅读详情

各位大神，请指正：
我使用VB.net 使用TCP/IP在客户端和服务端传送文件时，文件能传送过去，且大小一致，但有时却无法打开，特别是exe文件是100%打不开，请教原因？

客户端：
Sub file_trancelate_common(logon_IP As String, file_path As String)
Dim file_socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim endPoint As New IPEndPoint(Net.IPAddress.Parse(logon_IP), 9833) '
Dim file As FileStream = New FileStream(file_path, FileMode.OpenOrCreate, FileAccess.Read)
Dim byteArray(file.Length - 1) As Byte
Dim binaryRead As New BinaryReader(file)
binaryRead.Read(byteArray, 0, file.Length - 1)
file_socket.Connect(endPoint)
file_socket.Send(byteArray)
file.Close()
file_socket.Shutdown(SocketShutdown.Send)
file_socket.Close()

End Sub

服务端：
Sub file_load(IIP As String, pic_name As String, pic_counts As Int16, file_folder As String)

While isisrun
Dim fileStream As FileStream = New FileStream(Application.StartupPath & "\" & file_folder & "\" & pic_name, FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim byteArray(file_length) As Byte
Dim receiveSocket As Net.Sockets.Socket = file_socket.Accept()
Dim binary As New BinaryWriter(fileStream) '流写
receiveSocket.Receive(byteArray)
binary.Write(byteArray, 0, byteArray.Length - 1)
pic_tran = pic_tran + 1
If byteArray.Length - 1 = file_length Then
isisrun = False
fileStream.Close()
receiveSocket.Shutdown(SocketShutdown.Receive)
receiveSocket.Close()
End If
End While

End Sub

别外，想问下：怎样实现将文件的一些信息和文件封装在一个块中，如将文件的大小、格式等信息和文件一起发送给服务端？

...全文