如何在TComPort组件中设置自定义波特率？

问题原因 #

你遇到的未声明的标识符: 'SetCustomBaudRate'错误，核心原因是未正确引用包含该过程的单元，或是使用的Cport组件版本中该函数的定义位置不在接口可见区域。

解决步骤 #

1. 确保单元引用正确

打开Cport.pas文件，查找SetCustomBaudRate的定义：

• 如果该过程在interface段中，只需在你的窗体/单元的uses中添加Cport：

  uses
    ..., Cport;
  

• 如果该过程仅在implementation段中，你需要将其移到interface段（注意组件兼容性，或确认是否有配套辅助单元需要引用）。

2. 正确调用自定义波特率流程

设置230400这类非标准波特率，必须遵循以下顺序：

// 1. 先将波特率模式设为自定义
ComPort1.BaudRate := brCustom;
// 2. 传入组件实例和目标波特率
SetCustomBaudRate(ComPort1, 230400);
// 3. 打开串口（若未打开）
ComPort1.Open;

备选方案：直接调用Windows API #

如果你的Cport版本缺失SetCustomBaudRate，可以跳过组件封装，直接操作串口DCB结构：

var
  DCB: TDCB;
begin
  // 先打开串口以获取句柄
  if not ComPort1.Active then
    ComPort1.Open;
  // 获取当前串口状态
  GetCommState(ComPort1.Handle, DCB);
  // 设置自定义波特率
  DCB.BaudRate := 230400;
  // 应用新设置
  SetCommState(ComPort1.Handle, DCB);
end;

这种方法兼容性更强，不受组件版本限制。

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