unit1.pas

RS232串口通讯随书源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    rdCOM: TRadioGroup;
    Label1: TLabel;
    mSend: TMemo;
    Label2: TLabel;
    mReceive: TMemo;
    btnOpenPort: TButton;
    btnEnd: TButton;
    Comm1: TComm;
    procedure btnOpenPortClick(Sender: TObject);
    procedure btnEndClick(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject);
    procedure mSendKeyPress(Sender: TObject; var Key: Char);
 private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.DFM}


//以下是打开通信端口的程序
procedure TForm1.btnOpenPortClick(Sender: TObject);
begin
 //确定通信端口号码
 case rdcom.ItemIndex of
  0: Comm1.CommPort:=pnCOM1;
  1: Comm1.CommPort:=pnCOM2;
 end;
 //打开通信端口
 Comm1.PortOpen :=True;
end;


//以下是结束按钮的动作
procedure TForm1.btnEndClick(Sender: TObject);
begin
   //关闭通信端口
   Comm1.PortOpen:=False;
   //结束程序
   close;
end;




procedure TForm1.Comm1ReceiveData(Sender: TObject);
begin
  //接收文字数据，并显示到接收区的Memo元件中
  mReceive.Text:=mReceive.Text + Comm1.Input;
end;

procedure TForm1.mSendKeyPress(Sender: TObject; var Key: Char);
begin
  //将传送Memo中的文字送出
  if ord(Key)=13 then
  Comm1.OutputString(mSend.Text);
end;


end.