tcp连接到服务器传输文件,基于TCP Socket的文件传输：正确接收和保存文件

我正在尝试创建文件共享程序。到目前为止，连接和文件传输部分都被照顾到了。但我目前在如何正确接收和保存文件时遇到问题。基于TCP Socket的文件传输：正确接收和保存文件

我可以成功接收文件当且仅当我将在服务器端指定它的名称和扩展名。现在我的问题是，如何检索文件的名称和扩展名，以便我可以在服务器上成功接收文件？我的意思是，我不想每次收到文件时都指定一个名称。这可能吗？我正在考虑通过另一个网络流发送文件名，但我想有更好的方法来做到这一点。

在此先感谢！

下面是错误的屏幕截图。

服务器端代码

While True

Dim c As TcpClient = server.AcceptTcpClient

Dim s As NetworkStream = c.GetStream

FileOpen(1, filePath, OpenMode.Binary)

Dim buffer(1024 - 1) As Byte

Do While True

Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)

If bytesRead = 0 Then Exit Do

FilePut(1, buffer)

Loop

FileClose(1)

s.Close()

c.Close()

End While

客户端代码

Dim nstm As Stream = cli.GetStream()

Dim fstm As Stream = New FileStream(filePath, FileMode.Open, FileAccess.Read)

Dim buffer(1024 - 1) As Byte

Do While True

Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)

If bytesRead = 0 Then Exit Do

nstm.Write(buffer, 0, bytesRead)

Loop