unit1.pas

指导你如何通过串口发送数据和ASC码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, TComm1;

type
  TForm1 = class(TForm)
    Comm1: TComm;
    txtInput: TEdit;
    mReceive: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //打开通讯端口
  Comm1.PortOpen := True;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Buf: String;
begin
  //指定传送的字符串
  Buf := txtInput.Text + Chr(13);
  //送出指令
  Comm1.OutputString(Buf);
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject);
begin
  //将接收的数据显示到Memo元件中
  mReceive.Text := mReceive.Text + Comm1.Input ;
  //设定Memo的游标至最下方
  mReceive.SelStart := Length(mReceive.Text);
  mReceive.SelLength := 0;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  mReceive.Text := ''; //清除Memo元件的内容
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Close; //结束程序的执行
end;

end.