[Visual Basic TCP]长度不能小于零。参数名称：长度 [英] [Visual Basic TCP] Length cannot be less than zero. Parameter name: length

问题描述

Dim serverSocket As New TcpListener(1200)
        Dim clientSocket As TcpClient
        Dim counter As Integer

        serverSocket.Start()
        msg("Chat Server Started.")
        counter = 0

        While (True)
            counter += 1
            clientSocket = serverSocket.AcceptTcpClient()

            Dim bytesFrom(10024) As Byte
            Dim dataFromClient As String
            Dim networkStream As NetworkStream = _
            clientSocket.GetStream()
            networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
            dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)
            dataFromClient = dataFromClient.IndexOf("$")

            clientsList(dataFromClient) = clientSocket

            broadcast(dataFromClient + " Joined ", dataFromClient, False)

            msg(dataFromClient + " Joined chat room ")
            Dim client As New handleClinet
            client.startClient(clientSocket, dataFromClient, clientsList)
        End While

说：

长度不能小于零。

参数名称：长度

请帮忙！

Says:
Length cannot be less than zero.
Parameter name: length
Please Help!

推荐答案

）

clientsList（dataFromClient）= clientSocket

broadcast（dataFromClient + < span class =code-string> 已加入，dataFromClient，错误）

msg（dataFromClient + 已加入聊天室）
Dim client As 新 handleClinet
client.startClient（clientSocket，dataFromClient，clientsList）
结束 虽然

") clientsList(dataFromClient) = clientSocket broadcast(dataFromClient + " Joined ", dataFromClient, False) msg(dataFromClient + " Joined chat room ") Dim client As New handleClinet client.startClient(clientSocket, dataFromClient, clientsList) End While

说：

长度不能小于零。

参数名称：长度

请帮忙！

Says:
Length cannot be less than zero.
Parameter name: length
Please Help!

似乎dataFromClient不包含

It seems like that dataFromClient does not contains "

这就是为什么

" and that's why

dataFromClient.IndexOf("

这篇关于[Visual Basic TCP]长度不能小于零。参数名称：长度的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！