当数据应该存在时，不要从套接字获取任何数据，并且没有引发异常，连接已打开。使用DataAvailable等待数据

Question

我在从 RFID 读取器读取数据时遇到问题。我通过 tcp 连接到读取器并等待 DataAvailable 为 true，然后读取数据，直到获得数据字符结束。然后我就回去等待新的 DataAvailable。这是在该函数自己的线程中完成的。

似乎存在某种超时，如果我在几分钟内没有收到任何数据，那么它只是坐在 do/loop 中等待 DataAvailable。我将卡靠近 RFID 读取器，它发出蜂鸣声，但没有可用数据。我没有收到任何异常，并且信息表明客户端套接字仍然处于连接状态。还有什么我可以检查的吗？

如果我以一分钟的间隔将卡放入读卡器，似乎这种情况永远不会发生。所以 2-3 分钟空闲：ing 似乎可以做到这一点。

这是我从套接字读取数据的代码，我去掉了一些不相关的代码：

Sub test(ByVal ip As String, ByVal port As Integer)
    ' this sub is meant to run forever
    Try
        Dim clientSocket As New System.Net.Sockets.TcpClient()
        clientSocket.Connect(ip, port)
        Using serverStream As NetworkStream = clientSocket.GetStream()
            Do 'loop forever or until error occur

                'Every new dataentry starts here
                Dim inStream(0) As Byte
                Dim returndata As String = ""

                Do 'loop forever 
                    Do Until serverStream.DataAvailable 'loop until data exists to read
                        If clientSocket.Connected = False Then

                            'this will never happen.
                            'but if there are more than 5 minutes between data then
                            'it never got data again as if no data was sent.

                            Exit Sub
                        End If
                        Application.DoEvents()
                    Loop

                    'there is data to read, read first byte and 
                    serverStream.Read(inStream, 0, 1)
                    If inStream(0) = 13 Then

                        'got end of data
                        'exit loop if reading chr 13.
                        returndata &= System.Text.Encoding.ASCII.GetString(inStream)
                        Exit Do

                    End If
                Loop

                GotData(returndata)

            Loop
        End Using
    Catch ex As Exception
        ' handle error
    Finally
        'close connection if open
    End Try
End Sub

Answer 1

我发现 socket.Connected 仅报告在连接上运行最后一个命令时的状态。
因此，在 Do Until serverStream.DataAvailable 循环中，我使用此技巧来检查连接是否已关闭：

Dim test As Boolean = clientSocket.Client.Poll(10, System.Net.Sockets.SelectMode.SelectRead)
If test = True And serverStream.DataAvailable = False Then
   'restart connection
End If

现在终于可以控制正在发生的事情，并知道这是因为客户端连接已关闭我没有任何数据。

所以，然后我想，现在我知道连接已关闭，我该如何阻止它呢？这更容易，只需每 10 秒向 tcpip 服务器发送一次数据，它就会保持打开状态。

对我有用的结果（这不是生产代码，只是解决方案的示例）：

    Dim s As Date = Now
    Do Until serverStream.DataAvailable
        Dim r As Boolean = clientSocket.Client.Poll(10, System.Net.Sockets.SelectMode.SelectRead)
        If DateDiff(DateInterval.Second, s, Now) > 10 Then
           Dim dta(0) As Byte
           dta(0) = 0
           clientSocket.Client.Send(dta)
           s = Now
        End If
        If r = True And serverStream.DataAvailable = False Then
             'restart sub
             Exit Sub
        End If
   loop

所以现在它甚至不会关闭，需要每 x 分钟重新启动一次。

我的问题得到了解决，我是一个快乐的程序员。 ;)