unit Sender;

interface

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

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

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.GoodByeClick(Sender: TObject);
begin
  With MSComm Do      //關(guān)閉串口
    Begin
      PortOpen:=False;
      DTREnable:=False;
      RTSEnable:=False;
    End;
  Close;
end;

procedure TMainForm.ClearDatasClick(Sender: TObject);
begin
  SendedDatas.Lines.Clear;  //清空Memo的內(nèi)容
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  With MSComm Do                 //設(shè)置MSComm的工作參數(shù)
    Begin
      CommPort:=1;
      Settings:='9600,n,8,1';
      OutBufferSize:=1024;
      OutBufferCount:=0;
      PortOpen:=True;
    End;
end;

procedure TMainForm.SendDatasClick(Sender: TObject);
begin
  With MSComm Do             //允許MSComm工作
    Begin
      DTREnable:=True;
      RTSEnable:=True;
    End;
  If Not (SendedDatas.Text='') Then       //若輸入的數(shù)據(jù)不為空則發(fā)送
    MSComm.Output:=SendedDatas.Text
  Else
    Begin
      ShowMessage('請輸入要發(fā)送的數(shù)據(jù)！');
      SendedDatas.SetFocus;
    End;
end;

end.