VB TCP客户端调用sockReader.ReadLine()时冻结，求原因及解决方法

看起来你的VB.NET TCP客户端代码在接收树莓派返回时卡住了，我帮你分析下核心原因和解决办法：

冻结的核心原因 #

1. ReadLine()的阻塞特性 #

sockReader.ReadLine()是一个阻塞方法——它会一直停在那里，直到从流中读取到完整的一行（也就是结尾带有\r\n，对应VB里的vbCrLf），或者连接被关闭。如果树莓派的服务器没有发送换行符，或者数据还没完全发送过来，你的代码就会一直卡在这个调用上，看起来像“冻结”了。

2. DataAvailable判断的局限性 #

你在Receive()里先检查netStream.DataAvailable，但这个属性只能告诉你当前流里有没有可读取的字节，不能保证这些字节刚好是完整的一行。比如服务器只发了半行数据，DataAvailable是True，但ReadLine()还是会等着剩下的内容和换行符，照样卡住。

3. 多余的TcpListener逻辑 #

你的TCPControl是作为客户端连接树莓派的，但里面初始化了DataGet这个TcpListener（监听本地6969端口），这完全没必要，反而可能占用端口、混淆逻辑，甚至引发意外问题。

解决办法 #

1. 确保服务器返回带换行符 #

首先要确认树莓派的服务器程序，在发送响应的时候，结尾一定要加上\r\n（和你发送命令时用的vbCrLf对应）。如果服务器没加这个换行符，ReadLine()永远不会返回，这是最常见的原因。

2. 改用异步读取（推荐，避免UI冻结） #

如果你的代码是在UI线程里调用Receive()，同步读取会直接卡住界面。改用异步方法ReadLineAsync()可以避免阻塞，同时保持逻辑清晰：

修改你的TCPControl类：

Imports System.Net 
Imports System.Net.Sockets 
Imports System.IO 
Imports System.Threading.Tasks ' 需要添加这个引用

Public Class TCPControl 
    Public sock As TcpClient 
    Public DataStream As StreamWriter 
    Private netStream As NetworkStream 
    Private sockReader As StreamReader 

    Public Sub New(Host As String, Port As Integer) 
        ' 客户端初始化逻辑
        sock = New TcpClient(Host, Port) 
        netStream = sock.GetStream() 
        sockReader = New StreamReader(netStream) 
        DataStream = New StreamWriter(sock.GetStream) 
        ' 删掉多余的TcpListener代码
    End Sub 

    Public Sub Send(Data As String) 
        DataStream.Write(Data & vbCrLf) 
        DataStream.Flush() 
    End Sub 

    Public Async Function ReceiveAsync() As Task(Of String)
        Try
            ' 异步读取一行，不会阻塞线程
            Dim fullLine As String = Await sockReader.ReadLineAsync()
            Return fullLine
        Catch ex As IOException
            ' 处理连接断开的情况
            Return "连接已断开"
        Catch ex As Exception
            Return $"读取错误: {ex.Message}"
        End Try
    End Function
End Class

调用的时候要使用Await（必须在Async方法里调用），比如在UI按钮点击事件中：

Private Async Sub btnGetResponse_Click(sender As Object, e As EventArgs) Handles btnGetResponse.Click
    Dim tcpControl As New TCPControl("树莓派IP", 你的端口号)
    tcpControl.Send("你的命令")
    Dim response As String = Await tcpControl.ReceiveAsync()
    MessageBox.Show("收到返回: " & response)
End Sub

3. 同步读取的优化方案（不推荐，容易阻塞） #

如果一定要用同步读取，可以先读取所有可用字节，缓存未完成的内容，直到拿到完整的一行：

Public Class TCPControl 
    ' ... 保留其他已有变量 ...
    Private bufferText As String = "" ' 用来缓存未完成的行数据

    ' ... 保留New和Send方法 ...

    Public Function Receive() As String
        If netStream.DataAvailable Then
            Dim buffer(1023) As Byte
            Dim bytesRead As Integer = netStream.Read(buffer, 0, buffer.Length)
            Dim receivedText As String = System.Text.Encoding.ASCII.GetString(buffer, 0, bytesRead)
            
            ' 把新收到的内容加到缓存里
            bufferText &= receivedText
            
            ' 检查缓存里有没有完整的行
            If bufferText.Contains(vbCrLf) Then
                ' 拆分出第一行，剩下的内容留在缓存里
                Dim lines() As String = bufferText.Split({vbCrLf}, StringSplitOptions.None)
                bufferText = lines(1) ' 把未完成的部分存回去
                Return lines(0)
            Else
                ' 还没有完整的行，返回提示
                Return "正在等待完整数据..."
            End If
        End If
        Return "无可用数据"
    End Function
End Class

最后要做的事 #

删掉New方法里的TcpListener相关代码，你是客户端，不需要监听本地端口，这部分逻辑完全多余。

内容的提问来源于stack exchange，提问作者chmielo13