unit1.~pas

RS232串口通讯随书源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    txtCode: TEdit;
    Label2: TLabel;
    Comm1: TComm;
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Buf : String;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Comm1.PortOpen := True;
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject);
var
  Pos1:Integer;
begin
  //取得输入的数据
  Buf := Buf + Comm1.Input ;
  //检查是否有Chr(13)进来
  Pos1 := Pos(chr(13),Buf);
  //若检测到Chr(13)，则进行以下的动作
  if Pos1>0 then
  begin
    txtCode.Text := Buf; //显示
    ListBox1.Items.Add(Buf); //加到ListBox
    //将ListBox拉到列下面
    ListBox1.ItemIndex := ListBox1.Items.Count -1;
    Buf := '';  
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //关闭程序
  Close;
end;

end.