การรับค่า จาก serial port ด้วย delphi มาแสดงผลบนคอมพิวเตอร์ อย่างง่าย

การรับค่า จาก serial port ด้วย delphi มาแสดงผลบนคอมพิวเตอร์ อย่างง่าย

โค๊ด

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, CPort;

type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
  private
    receivestr:string;   //กำหนดตัวแปรที่จะรับค่ามาแสดงผล
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
      comport1.ReadStr(receivestr,count); //อ่านค่าจาก comport เก็บไว้ใน receivestr
      panel1.Caption:=receivestr; //แสดงผล

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
      comport1.Open; //เชื่อมต่อ comport 
end;

end.