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;
    Label2: TLabel;
    mReceive: TMemo;
    btnOpenPort: TButton;
    btnSend: TButton;
    btnEnd: TButton;
    btnReceive: TButton;
    Comm1: TComm;
    mSend: TMemo;
    procedure btnSendClick(Sender: TObject);
    procedure btnOpenPortClick(Sender: TObject);
    procedure btnEndClick(Sender: TObject);
    procedure btnReceiveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.btnSendClick(Sender: TObject);
begin
  //将传送Memo中的文字送出
  Comm1.OutputString(mSend.Text);
end;

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.btnReceiveClick(Sender: TObject);
begin
  //接收文字数据，并显示到接收区的Memo组件中
  mReceive.Text:=Comm1.Input;
end;


end.