读取SerialPort vb.net中的字节值26(Reading byte value 26 in SerialPort vb.net)

 我有一个vb.net winforms应用程序，它可以读取/写入连接到USB-RS485设备的多个设备的串行数据。 该应用程序是用Visual Basic .NET 2008编写的，尽管我也尝试过.NET 2015。 
 
 几乎一切都运行良好，除非其中一个设备发送一个字节值为26的消息。然后我不确定究竟发生了什么但是在字节值26之后，读数似乎停止了。 之后的所有数据都会在下一个DataReceived事件中读取。 
 
 我做了一个简短的程序来测试serialport。 它显示完全相同。 此外，我只有一个设备连接测试。 设备发送的数据由10个字节组成。 值为251,20，（6个数据字节），校验和，校验和。 
 
 前两个和后两个字节永远不会达到26的值，它只是可以做到这一点的数据字节。 
 
 进口： 
 
Imports System.IO.Ports
Imports System.Text
 
 变量： 
 
Dim WithEvents SP_TestCom As SerialPort
Public DataArray() As Byte
 
 替补： 
 
Public Sub OpenCom()
    If SP_TestCom.IsOpen Then
        Exit Sub
    End If
    SP_TestCom.Open()
End Sub

Public Sub CloseCom()
    If Not SP_TestCom.IsOpen Then
        Exit Sub
    End If
    SP_TestCom.Close()
End Sub

Public Sub SendData(ByVal Data() As Byte)
    Try
        If SP_TestCom.IsOpen Then
            SP_TestCom.Write(Data, 0, Data.Length)
        End If
    Catch ex As Exception

    End Try
End Sub


Private Sub SP_TestCom_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP_TestCom.DataReceived
    Try
        If SP_TestCom.BytesToRead > 0 Then
            Dim DataArray_Temp(SP_TestCom.BytesToRead + 1) As Byte
            SP_TestCom.Read(DataArray_Temp, 0, SP_TestCom.BytesToRead)

            Array.Copy(DataArray_Temp, DataArray, DataArray_Temp.Length)
        End If
    Catch ex As Exception

    End Try
End Sub
 
 我有一个带有两个按钮和一个计时器的主窗体。 按钮用于打开和关闭端口。 计时器读取数据阵列 
 
 我尝试了几种阅读方式。 
 
 
 
 直接读入数组 
 
 
 分别读取每个字节 
 
 
 读入一个字符串，然后将其转换为字节数组 
 
 
 我也试过不同的编码。 虽然我不确定它是否会产生任何影响。 
 
 
 
 ASCII 
 
 
 UNICODE 
 
 
 UTF 
 
 
 All都给出了同样的错误。 
 
 我可以通过忽略包含字节值26的任何消息来绕过错误。这至少不会在我的应用程序的其余部分给出奇怪的结果，但它不是完美的解决方案。 
 
 有谁知道问题可能是什么？ 
 
 编辑： 
 
Public Sub InitSerial()
    SP_TestCom = New SerialPort
    SP_TestCom.PortName = "COM26"
    SP_TestCom.ReadTimeout = 20
    SP_TestCom.BaudRate = 19200
    SP_TestCom.DataBits = 8
    SP_TestCom.StopBits = StopBits.One
    SP_TestCom.Parity = Parity.None
    SP_TestCom.ReceivedBytesThreshold = 10
End Sub

I have an vb.net winforms application that reads/writes serial data to several devices connected to a USB-RS485 device. The application is written in visual basic .NET 2008, altough i tried .NET 2015 as well.
 
Almost everything is working well except when one of the devices sends a message with a byte value of 26. Then im not sure what exactly happens but after the byte value of 26 the reading seems to stop. And all data after that is read in the next DataReceived event.
 
I have made a short program to only test the serialport. And it shows exactly the same. Also i have only one device connected with the test. The data the device is sending consists of 10 bytes. The values are 251,20,(6 data bytes),checksum lo, checksum hi.
 
The first two and last two bytes can never reach a value of 26, it is just the data bytes that can do that.
 
Imports:
 
Imports System.IO.Ports
Imports System.Text
 
Variables:
 
Dim WithEvents SP_TestCom As SerialPort
Public DataArray() As Byte
 
subs:
 
Public Sub OpenCom()
    If SP_TestCom.IsOpen Then
        Exit Sub
    End If
    SP_TestCom.Open()
End Sub

Public Sub CloseCom()
    If Not SP_TestCom.IsOpen Then
        Exit Sub
    End If
    SP_TestCom.Close()
End Sub

Public Sub SendData(ByVal Data() As Byte)
    Try
        If SP_TestCom.IsOpen Then
            SP_TestCom.Write(Data, 0, Data.Length)
        End If
    Catch ex As Exception

    End Try
End Sub


Private Sub SP_TestCom_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP_TestCom.DataReceived
    Try
        If SP_TestCom.BytesToRead > 0 Then
            Dim DataArray_Temp(SP_TestCom.BytesToRead + 1) As Byte
            SP_TestCom.Read(DataArray_Temp, 0, SP_TestCom.BytesToRead)

            Array.Copy(DataArray_Temp, DataArray, DataArray_Temp.Length)
        End If
    Catch ex As Exception

    End Try
End Sub
 
I have a main form with two buttons and a timer. The buttons are for opening and closing the port. The timer reads the dataarray
 
I have tried several ways of reading.
 
 
 
Reading directly into an array
 
 
Reading each byte seperatly
 
 
Reading into a string and then converting it into a byte array
 
 
I also tried different encodings. Although i am not sure if it would have any effect.
 
 
 
ASCII
 
 
UNICODE
 
 
UTF
 
 
All gives the same error.
 
I could bypass the error by ignoring any message containing a byte value of 26. This at least does not give me strange results in the rest of my application but it is not the perfect solution.
 
Does anyone have an idea of what the issue might be?
 
Edit:
 
Public Sub InitSerial()
    SP_TestCom = New SerialPort
    SP_TestCom.PortName = "COM26"
    SP_TestCom.ReadTimeout = 20
    SP_TestCom.BaudRate = 19200
    SP_TestCom.DataBits = 8
    SP_TestCom.StopBits = StopBits.One
    SP_TestCom.Parity = Parity.None
    SP_TestCom.ReceivedBytesThreshold = 10
End Sub

原文：https://stackoverflow.com/questions/36423786