将网络流中的第一个字节存储为字符串

Question

我需要将从网络流读取的数据的第一个字节存储为字符串，以便稍后调用它。

prinf("     While 1
        Dim tcpListener As New TcpListener(IPAddress.Any, 80) ' Listen to port given
        Console.WriteLine("Waiting for connection...")
        tcpListener.Start()
        'Accept the pending client connection and return  'a TcpClient initialized for communication. 
        Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
        Console.WriteLine("Connection accepted.")
        ' Get the stream
        Dim networkStream As NetworkStream = tcpClient.GetStream()
        ' Read the stream into a byte array
        Dim bytes(tcpClient.ReceiveBufferSize) As Byte
        networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
        ' Return the data received from the client to the console.
        Dim clientdata As String = Encoding.ASCII.GetString(bytes)
        Console.WriteLine(("Client Sent: " + clientdata))
        ' Return the data received from the client to the console.
        Dim responseString As String = "Hello"
        'Dim chat_name As String = "Name"
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        Console.WriteLine(("Response: " + responseString))
        tcpClient.Close() 'Close TcpListener and TcpClient
        tcpListener.Stop()
    End While");

这就是我的服务器^一切正常，但我需要存储读取的第一条数据，例如如果我得到 Name ​，它应该存储在数组中

Answer 1

您需要准确定义“第一个数据”的含义 - 该数据是否以某种形式分隔（例如 HTTP 标头 - 键/值对由回车换行符分隔）？ 长度前缀（如指定 Content-Length 标头时的 HTTP 主体）？ 您几乎肯定不只想要第一个字节。

如果您希望只发送名称，然后发送其他内容，而没有任何迹象表明它们是不同的数据位，那么您将会失望。 流只是字节序列 - 没有任何内容（内置）可以说“读取客户端在第一个 API 调用中发送的内容”。

Answer 2

这应该有效：

Dim strFirstByte as string = vbNullString
While 1
   ' ... Your code ...

    Dim bytes(tcpClient.ReceiveBufferSize) As Byte
    networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
    If strFirstByte = vbNullString Then strFirstByte = bytes(0).ToString("X2")

    ' ... The rest of your code ...
End While