Delphi中的串口通信

Delphi中的串口通信可以通过TComPort组件实现。以下是使用TComPort组件进行串口通信的步骤：

1. 在Delphi中新建一个项目，然后在工具箱中找到TComPort组件并将其放置在窗体上。

2. 双击TComPort组件，打开其属性窗口。在属性窗口中设置串口号、波特率、数据位、奇偶校验位、停止位等参数。

3. 编写串口数据发送和接收的代码。可以使用TComPort组件的WriteStr方法发送数据，使用OnRxChar事件接收数据。代码示例如下：

发送数据：

ComPort1.WriteStr('Hello world!');

接收数据：

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
Memo1.Lines.Add(ComPort1.ReadStr);
end;

4. 在程序启动时打开串口，可以使用TComPort组件的Open方法实现。在程序关闭时关闭串口，可以使用TComPort组件的Close方法实现。

完整的代码示例：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls, ComPort;

type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
ComboBox2: TComboBox;
Label3: TLabel;
ComboBox3: TComboBox;
Label4: TLabel;
ComboBox4: TComboBox;
Label5: TLabel;
ComboBox5: TComboBox;
ComPort1: TComPort;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ComPort1RxChar(Sender: TObject; Count: Integer);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// 打开串口
ComPort1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// 关闭串口
ComPort1.Close;
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
// 接收数据
Memo1.Lines.Add(ComPort1.ReadStr);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// 初始化设置
ComboBox1.ItemIndex := 0;
ComboBox2.ItemIndex := 3;
ComboBox3.ItemIndex := 0;
ComboBox4.ItemIndex := 0;
ComboBox5.ItemIndex := 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 关闭串口
ComPort1.Close;
end;

end.