delphi 串口通信

Delphi 串口通信可以使用 TComPort 组件来实现。首先需要在 Delphi 中安装 TComPort 组件，然后在需要使用串口通信的窗体中添加 TComPort 组件，设置好串口的参数（如波特率、数据位、停止位等），然后就可以使用 TComPort 组件提供的方法来进行串口通信了。

例如，可以使用 TComPort 组件的 Open 方法打开串口，使用 WriteStr 方法向串口发送数据，使用 OnRxChar 事件来接收串口数据。具体的代码实现可以参考以下示例：

uses ComPort;

var
  ComPort: TComPort;
  
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComPort := TComPort.Create(Self);
  ComPort.Port := 'COM1'; // 设置串口号
  ComPort.BaudRate := br9600; // 设置波特率
  ComPort.DataBits := db8; // 设置数据位
  ComPort.StopBits := sb1; // 设置停止位
  ComPort.Parity.Bits := prNone; // 设置校验位
  ComPort.Open; // 打开串口
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComPort.WriteStr('Hello, world!'); // 向串口发送数据
end;

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: string;
begin
  SetLength(Str, Count);
  ComPort.Read(Str[1], Count); // 从串口读取数据
  Memo1.Lines.Add(Str); // 显示接收到的数据
end;