receiver.pas

dephi实现RS232串口通信,包括发送端和接收段代码

unit Receiver;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    MSComm: TMSComm;
    GroupBox1: TGroupBox;
    ReceivedDatas: TMemo;
    ClearDatas: TBitBtn;
    GoodBye: TBitBtn;
    procedure GoodByeClick(Sender: TObject);
    procedure ClearDatasClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MSCommComm(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GoodByeClick(Sender: TObject);
begin
  With MSComm Do  //关闭串口
    Begin
      PortOpen :=False;
      DTREnable :=False;
      RTSEnable :=False;
    End;
  Close;
end;

procedure TForm1.ClearDatasClick(Sender: TObject);
begin
  ReceivedDatas.Lines.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  With MSComm Do
    Begin
      CommPort:=2;    //设置接收端口为Com2
      InBufferSize:=1024;
      InBufferCount:=0;    //清空接收缓冲区
      InputMode:=0;        
      Settings:='9600,n,8,1';
      RThreshold:=1;
      InputLen:=0;
      PortOpen:=True;
      DTREnable:=True;
      RTSEnable:=True;
    End;
end;

procedure TForm1.MSCommComm(Sender: TObject);
Var
  RecStr:OleVariant;
begin
  If MSComm.CommEvent=2 Then    //接收并显示数据
    Begin
      RecStr:=MSComm.Input;
      ReceivedDatas.Text:=ReceivedDatas.Text+RecStr;
    End;
end;

end.