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      //關閉串口
    Begin
      PortOpen:=False;
      DTREnable:=False;
      RTSEnable:=False;
    End;
  Close;
end;

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

procedure TMainForm.FormCreate(Sender: TObject);
begin
  With MSComm Do                 //設置MSComm的工作參數
    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       //若輸入的數據不為空則發送
    MSComm.Output:=SendedDatas.Text
  Else
    Begin
      ShowMessage('請輸入要發送的數據！');
      SendedDatas.SetFocus;
    End;
end;

end.