未接收所有数据包 - Visual Basic 套接字 - 异步

Question

这是我的套接字发送端的代码：

    Private Sub Send(ByRef Buffer() As Byte)
        Dim obj_StateObject As New StateObject
        obj_StateObject.WorkSocket = m_tmpSocket
        m_tmpSocket.BeginSend(Buffer, 0, Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf OnClientSendComplete), obj_StateObject)
    End Sub

    Private Sub OnClientSendComplete(ByVal ar As IAsyncResult)
        Dim obj_SocketState As StateObject = CType(ar.AsyncState, StateObject)
        Dim obj_Socket As Socket = obj_SocketState.WorkSocket
    End Sub

这是接收代码：

    Private Sub OnServerDataArrival(ByVal ar As IAsyncResult)
        Dim obj_SocketState As StateObject = CType(ar.AsyncState, StateObject)
        Dim obj_Socket As Socket = obj_SocketState.WorkSocket
        Dim BytesRead As Integer = obj_Socket.EndReceive(ar)

        If (BytesRead > 0) Then
            Dim TempLength As Integer = BitConverter.ToInt32(obj_SocketState.Buffer, 0) - 4
            Dim TempBuffer(TempLength - 1) As Byte
            Array.Copy(obj_SocketState.Buffer, 4, TempBuffer, 0, TempLength)
            RaiseEvent ServerDataArrival(TMP_ID, TempBuffer)
        End If

        obj_Socket.BeginReceive(obj_SocketState.Buffer, 0, obj_SocketState.BufferSize, 0, New AsyncCallback(AddressOf OnServerDataArrival), obj_SocketState)
    End Sub

我通常可以很好地发送和接收数据。例如，我可以通过单击按钮发送 10 字节缓冲区，并且没有任何问题。

但是，如果我设置该按钮来调用一个函数，该函数将循环发送 10 字节缓冲区 10 次，那么我平均不会收到大约 8 个缓冲区。

是什么原因造成的？发送代码执行了10次，但是OnServerDataArrival函数只执行了2次。

Answer 1

从您提供的代码中尚不清楚，但我的猜测是您正在使用 TCP（而不是 UDP）传输数据。如果这是真的，您不应期望发送计数与接收计数相匹配。如果您想要这种行为，请使用 UDP 而不是 TCP。

使用 TCP 时，数据通常在发送端进行缓冲，直到准备好发送“足够”的数据量。这通常有助于提高传输的整体效率，特别是在一次发送小至 10 个字节的消息时。在接收端，每次读取 TCP 套接字都会从套接字的接收缓冲区读取全部数据，最多可达您提供的缓冲区大小。因此，如果已收到 10 字节“消息”中的 8 个，则下次从套接字读取时会将所有数据拉入缓冲区（前提是缓冲区足够大）。您将需要解析缓冲区以从字节流中提取每条消息。正如您所做的那样，发送消息的大小将帮助您做到这一点。