delphi xe comport 16进制

要在 Delphi XE 中使用 COM 端口进行 16 进制通讯，可以使用 TComPort 组件，并在其 OnRxChar 事件中实现相应的处理。

以下是一个简单的示例代码，演示了如何使用 TComPort 组件从 COM1 端口读取 16 进制数据：

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Data: AnsiString;
  i: Integer;
begin
  // 读取数据
  Data := ComPort1.Read(Count);
  // 将 16 进制数据转换为字符串
  for i := 1 to Length(Data) do
    Memo1.Lines.Add(IntToHex(Ord(Data[i]), 2));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 设置 COM 端口参数
  ComPort1.Device := 'COM1';
  ComPort1.BaudRate := br9600;
  ComPort1.Parity.Bits := prNone;
  ComPort1.DataBits := db8;
  ComPort1.StopBits := sb1;
  // 打开 COM 端口
  ComPort1.Open;
end;

在上面的示例代码中，当收到数据时，会将其转换为 16 进制格式，并在 Memo1 控件中显示。要使用此功能，请在窗体上放置一个 TComPort 组件和一个 TMemo 组件，并将 TComPort 的 OnRxChar 事件和 Button1 的 OnClick 事件与上面的代码关联。