comport4.pas

Delphi采用MSComm控件开发串口测试工具,在Windows+Delphi7编译通过

unit Comport4;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TCOM4Dlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Port: TComboBox;
    Baud: TComboBox;
    Databits: TComboBox;
    Stopbits: TComboBox;
    Parity: TComboBox;
    Flowcontrol: TComboBox;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  COM4Dlg: TCOM4Dlg;

implementation
uses MainFrm;

{$R *.dfm}

procedure TCOM4Dlg.OKBtnClick(Sender: TObject);
var
  PortName:String;
  PortNum :Integer;
  BaudRate:String;
  Databits:String;
  Stopbits:String;
  Parity:  String;
  FlowCtrl:String;
begin
  if not Com4On then
   begin
      PortName := COM4Dlg.Port.Text;
      BaudRate := COM4Dlg.Baud.Text;
      Databits := COM4Dlg.Databits.Text;
      Stopbits := COM4Dlg.Stopbits.Text;
      Parity   := COM4Dlg.Parity.Text;
      FlowCtrl := COM4Dlg.Flowcontrol.Text;
      PortNum := 1; //Init
      
  //Open COM1
      if PortName = 'COM4' then
        PortNum := 4;
        Form1.MSComm4.CommPort := PortNum;
        Form1.MSComm4.Settings := BaudRate + Parity + Databits + Stopbits;
        Form1.MSComm4.InputMode := 0;
  //HandShaking
      if FlowCtrl = 'ComNone' then
        Form1.MSComm1.Handshaking := 0
      else if FlowCtrl = 'comXOnXOff' then
        Form1.MSComm1.Handshaking := 1
      else if FlowCtrl = 'ComRTS' then
        Form1.MSComm1.Handshaking := 2
      else if FlowCtrl = 'comRtsXOnXOff' then
        Form1.MSComm1.Handshaking := 3;

      Form1.MSComm4.PortOpen := true;
      Form1.Shape4.Brush.Color := clGreen;
      Form1.SetCom4.Caption := 'CloseCom4';
      Com4On := true;
      Form1.ShowInf('Com4 is already open.');
   end
   else
    begin
      Form1.MSComm4.PortOpen := false;
      Com4On := false;
      Form1.SetCom4.Caption := 'Com4';
      Form1.Shape4.Brush.Color := clRed;
    end;
   COM4Dlg.Close;
end;

procedure TCOM4Dlg.CancelBtnClick(Sender: TObject);
begin
   COM4Dlg.Close;
end;

end.