VB6串口API转.NET SerialPort遇问题：如何对比apiBuildCommDCB与SerialPort设置？

一、先调整基础配置（最可能解决问题的点） #

1. 修正超时设置
   VB6串口读取默认是阻塞等待数据，而.NET SerialPort默认ReadTimeout=500ms，超时会直接抛出异常导致看起来没收到数据。修改为无限超时：

_Port.ReadTimeout = Timeout.Infinite
_Port.WriteTimeout = Timeout.Infinite

2. 设置正确的编码
   VB6的apiBuildCommDCB默认是二进制传输模式，而.NET SerialPort默认用ASCIIEncoding，会过滤部分非ASCII字节。改为字节无丢失的编码：

_Port.Encoding = Encoding.GetEncoding(28591) ' ISO-8859-1，每个字节对应一个字符

3. 确认数据接收逻辑
   如果用事件驱动接收，必须先绑定DataReceived事件：

AddHandler _Port.DataReceived, AddressOf SerialPort_DataReceived

' 对应的事件处理方法
Private Sub SerialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs)
    Dim sp As SerialPort = CType(sender, SerialPort)
    Dim receivedData As String = sp.ReadExisting()
    ' 处理接收的数据
End Sub

如果用阻塞读取，避免用ReadLine()（除非设备明确发送换行符），改用ReadExisting()或Read()读取字节。

二、对比VB6与.NET的DCB配置细节 #

VB6的apiBuildCommDCB会自动设置很多隐藏的DCB参数，.NET SerialPort的公开属性可能没覆盖全部。可以通过P/Invoke获取.NET串口的DCB结构体，和VB6的对比：

.NET中获取DCB的代码

Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)>
Private Structure DCB
    Public DCBlength As Integer
    Public BaudRate As Integer
    Public fBinary As Integer
    Public fParity As Integer
    Public fOutxCtsFlow As Integer
    Public fOutxDsrFlow As Integer
    Public fDtrControl As Integer
    Public fDsrSensitivity As Integer
    Public fTXContinueOnXoff As Integer
    Public fOutX As Integer
    Public fInX As Integer
    Public fErrorChar As Integer
    Public fNull As Integer
    Public fRtsControl As Integer
    Public fAbortOnError As Integer
    Public fDummy2 As Integer
    Public wReserved As Integer
    Public XonLim As Integer
    Public XoffLim As Integer
    Public ByteSize As Byte
    Public Parity As Byte
    Public StopBits As Byte
    Public XonChar As Byte
    Public XoffChar As Byte
    Public ErrorChar As Byte
    Public EofChar As Byte
    Public EvtChar As Byte
    Public wReserved1 As Integer
End Structure

<DllImport("kernel32.dll", SetLastError:=True)>
Private Shared Function GetCommState(ByVal hFile As IntPtr, ByRef lpDCB As DCB) As Boolean
End Function

' 在串口打开后调用获取DCB
Dim dcb As DCB = New DCB()
dcb.DCBlength = Marshal.SizeOf(dcb)
If GetCommState(_Port.BaseStream.SafeFileHandle.DangerousGetHandle(), dcb) Then
    Debug.WriteLine($"BaudRate: {dcb.BaudRate}")
    Debug.WriteLine($"ByteSize: {dcb.ByteSize}")
    Debug.WriteLine($"Parity: {dcb.Parity}")
    Debug.WriteLine($"StopBits: {dcb.StopBits}")
    Debug.WriteLine($"fDtrControl: {dcb.fDtrControl}")
    Debug.WriteLine($"fRtsControl: {dcb.fRtsControl}")
    Debug.WriteLine($"fBinary: {dcb.fBinary}")
    Debug.WriteLine($"fOutxCtsFlow: {dcb.fOutxCtsFlow}")
End If

VB6中获取DCB的代码

在VB6里同样调用GetCommState获取DCB，对比两个DCB的所有字段，重点看：

• fOutxCtsFlow/fOutxDsrFlow：硬件流控制开关
• fOutX/fInX：软件流控制开关
• fRtsControl：RTS控制线的模式（VB6默认是RTS_CONTROL_ENABLE，和.NET的RtsEnable=True一致，但如果设备需要握手模式则需调整）

三、其他排查点 #

• 确认串口名称完全一致（比如VB6用COM3，.NET不要写成\\.\COM3，除非是虚拟串口）
• 检查串口是否被其他程序占用（设备管理器里查看串口状态）
• 测试发送数据，确认串口能正常发送，排除硬件连接问题

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