Pascal利用线程编写串口通信的完整代码

由于Pascal的具体实现可能会因使用的编译器不同而有所差异，这里给出一个基于Free Pascal或Lazarus的简单示例。假设我们使用了`sysutils`单元的`TThread`类和`SerialPort`组件：

uses
  System.Classes,
  Serialport;

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

constructor TCommThread.Create(APort: TSerialPort);
begin
  inherited Create(False); // False 表示不会立即开始执行
  FSerialPort := APort;
end;

destructor TCommThread.Destroy;
begin
  FSerialPort.Free; // 线程结束后释放串口资源
  inherited;
end;

procedure TCommThread.Execute;
var
  Buffer: array[0..255] of Byte;
begin
  repeat
    if FSerialPort.BytesAvailable > 0 then // 当有数据可读时
      begin
        FSerialPort.Read(Buffer, Length(Buffer)); // 读取数据
        // 处理接收到的数据...
      end;
  until Terminated;
end;

// 主程序部分
var
  CommThread: TCommThread;

begin
  try
    // 初始化串口
    CommThread := TCommThread.Create(nil); // 传递空值表示使用默认端口
    CommThread.Name := 'Communication Thread'; // 设置线程名称
    CommThread.Resume; // 开始线程

    // 在主线程中处理串口发送
    // ...
    
    // 等待线程结束
    CommThread.WaitFor; // 如果需要，可以添加特定条件来等待线程完成
    
  finally
    CommThread.Terminate; // 告诉线程停止执行
    CommThread.WaitFor; // 确保线程确实退出
  end;