0

我正在尝试创建一个文件共享程序。至此，连接和文件传输部分已经处理完毕。但我目前在如何正确接收和保存文件方面遇到问题。

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

提前致谢！

这是错误的屏幕截图。

http://i.stack.imgur.com/XkpZ2.png

服务器端代码

            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
4

1 回答 1

0

你不能直接保存文件到桌面，你必须创建新文件夹并将文件分配到新文件夹。我尝试创建示例，此图像结果 http://diaryanakku.files.wordpress.com/2013/01/clientsocket.png

这个发送文件的代码参考，对不起印度尼西亚语言的教程，但代码仍然是英文，我希望能有所帮助。 http://diaryanakku.wordpress.com/2013/01/21/mengirim-file-melalui-socket-vb-net/

于 2013-01-21T02:16:52.707 回答