在RAD studio 11中用Pascal编写线程串口通信的代码

在 RAD Studio 11（Delphi或Free Pascal版本）中，使用Pascal语言编写线程串口通信的代码通常涉及FPC库（Free Pascal Compiler）和TThread组件，以及TSerialPort或相关类。这里是一个简单的示例，展示了如何创建一个新的线程处理串口通信：

uses
  System.Classes, System.SysUtils, System.Threading, SerialPort;

type
  TSerialThread = class(TThread)
  private
    FSerialPort: TSerialPort;
  public
    constructor Create(APort: TSerialPort); override;
    procedure Execute; override;
  end;

constructor TSerialThread.Create(APort: TSerialPort);
begin
  inherited Create(False);
  FSerialPort := APort;
end;

procedure TSerialThread.Execute;
var
  Buffer: array[0..1] of Char;
begin
  while not Terminated do
  begin
    if FSerialPort.Read(Buffer, SizeOf(Buffer)) > 0 then
      // 处理接收到的数据，例如打印到控制台
      Writeln('Received: ', Buffer);
    
    // 等待一段时间后再尝试读取
    Sleep(100); // 每隔100毫秒检查一次
  end;
end;

// 主程序部分
var
  SPort: TSerialPort;
begin
  try
    SPort := TSerialPort.Create;
    SPort.IOHandler := @SerialThread.Create; // 将TSerialThread的构造函数绑定到IOHandler
    SPort.PortName := 'COM1'; // 修改为你需要的串口号
    SPort.BaudRate := 9600; // 设置波特率

    SPort.Open; // 打开串口
    SPort.Write('Hello from Server!'); // 发送数据

    // 启动线程并进入主循环
    SPort.IOHandler.Start;
    Application.Run; // 这里会阻塞直到线程结束
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  finally
    SPort.Close; // 关闭串口
  end;
end.