Question

我尝试使用TCP Socket发送字符串。但字符串完全搞砸了。

我的字符串：

Dim strMessage(10) As String
        strMessage(0) = "Lorem ipsum dolor sit amet, consectetur adipiscing elit."
        strMessage(1) = "Etiam imperdiet erat vitae elit faucibus, et accumsan est facilisis."
        strMessage(2) = "Duis elementum ante et quam sagittis molestie at ac nulla."
        strMessage(3) = "Pellentesque a metus eget metus aliquam pharetra in sed nibh."
        strMessage(4) = "Ut ut eros sit amet nisi consequat vulputate."
        strMessage(5) = "Fusce vel dui at purus laoreet consequat."
        strMessage(6) = "Donec sed erat lacinia, aliquam ante eu, pulvinar ligula."
        strMessage(7) = "Vestibulum posuere elit facilisis orci sagittis, id feugiat mi aliquam."
        strMessage(8) = "Donec sit amet lectus ut nibh pharetra dapibus ut vitae nulla."
        strMessage(9) = "Maecenas quis nunc scelerisque, cursus nibh tristique, pulvinar ipsum."

TCP客户端代码：

 Dim stm As Stream
        Dim counter As Integer = 0
        Do
            stm = tcpClient.GetStream() 'getting the stream of the client
            Dim ascenc As New ASCIIEncoding
            Dim byteData() As Byte = ascenc.GetBytes(strMessage(counter))
            Thread.Sleep(2000)
            Console.WriteLine("Transmitted ")
            stm.Write(byteData, 0, byteData.Length())

            counter += 1

        Loop While counter < 10

TCP服务器代码：

 Do
        Try
            Dim size As Integer = TcpSocket.Receive(bitData)
            Console.WriteLine(size.ToString)
            Dim newString As String
            'Dim chars(size) As Char

            'chars(i) = Convert.ToChar(bitData(i))
            newString = Encoding.ASCII.GetString(bitData)

            'Dim newString As New String(chars)
            Console.WriteLine(newString)
            strMessage(counter) = newString


            counter += 1

            If counter = 10 Then
                state = 2
            End If

        Catch ex As Exception
            Console.Write(ex.ToString())
        End Try
    Loop While state = 1

结果是：
这是你收到的信息：Lorem ipsum dolor sit amet，consectetur adipiscing elit。
这是您收到的消息：Etiam imperdiet erat vitae elit faucibus，et accumsan est facilisis。
这是您收到的消息：在n nulla.facilisis上的Duis elementum ante et quam sagittis molestie。
这是您收到的消息：Pellentesque a metus eget metus aliquam pharetra in sed nibh.ilisis。
这是你收到的信息：在ed nisph.ilisis中，你可以坐下来看看。这是您收到的消息：在sed nibh.ilisis的purus laoreet consequat.ate.tra中的Fusce vel dui。
这是您收到的信息：Donec sed erat lacinia，aliquam ante eu，pulvinar ligula.ibh.ilisis。
这是你收到的信息：Vestibulum posuere elit facilisis orci sagittis，id feugiat mi aliquam。
这是你收到的消息：Donec sit amet lectus ut nibh pharetra dapibus ut vitae nulla。 aliquam。

Answer 1

我会在发送之前尝试使用Join命令，然后在接收它之后使用Split将其重新放入数组中。

这样你只发送纯文本 - 这会更简单。

VB.NET套接字编程，如何正确发送字符串数组？

1 个答案: