idshow.~pas

使用Delphi 6.0开发用于控制空调的程序

unit IDShow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TfrmIDShow = class(TForm)
    lbl1: TLabel;
    grpLogin: TGroupBox;
    lbl2: TLabel;
    edtIDID: TEdit;
    btn1IDID: TButton;
    lbl3: TLabel;
    edtPWID: TEdit;
    btnPWID: TButton;
    grpIDID: TGroupBox;
    lbl4: TLabel;
    edtTELNO: TEdit;
    btnReadTELNO: TButton;
    lbl5: TLabel;
    edtID: TEdit;
    btnReadID: TButton;
    lbl7: TLabel;
    lbl9: TLabel;
    lbl15: TLabel;
    lbl16: TLabel;
    lbl17: TLabel;
    lbl18: TLabel;
    lbl19: TLabel;
    edtNowTime: TEdit;
    edtTSPT: TEdit;
    edtDialingNum: TEdit;
    edtReDialingNum: TEdit;
    edtAutoMachine: TEdit;
    edtAutoRT: TEdit;
    edtMinRGNum: TEdit;
    btnNowTime: TButton;
    btnTSPT: TButton;
    btnDialNum: TButton;
    btnReDialNum: TButton;
    btnAutoMachine: TButton;
    btnAutoRT: TButton;
    btnMinRGNum: TButton;
    grp1: TGroupBox;
    lbl6: TLabel;
    lbl8: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    shpRunState: TShape;
    shpHJ: TShape;
    shpCommAbal: TShape;
    shpFilter: TShape;
    shpAbal: TShape;
    shpTSPT: TShape;
    btn1: TButton;
    statIDShow: TStatusBar;
    edt1: TEdit;
    edt2: TEdit;
    btn2: TButton;
    procedure btn1IDIDClick(Sender: TObject);
    procedure btnPWIDClick(Sender: TObject);
    procedure btnReadTELNOClick(Sender: TObject);
    procedure btnReadIDClick(Sender: TObject);
    procedure btnNowTimeClick(Sender: TObject);
    procedure btnTSPTClick(Sender: TObject);
    procedure btnDialNumClick(Sender: TObject);
    procedure btnReDialNumClick(Sender: TObject);
    procedure btnAutoMachineClick(Sender: TObject);
    procedure btnAutoRTClick(Sender: TObject);
    procedure btnMinRGNumClick(Sender: TObject);
    procedure btnDialingClick(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIDShow: TfrmIDShow;

implementation

{$R *.dfm}

uses
  SU,Main;
procedure TfrmIDShow.btn1IDIDClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDId;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;
end;

procedure TfrmIDShow.btnPWIDClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  if Length(edtPWID.Text) <> 8 then
  begin
      ShowMessage('请输入8位密码！');
      Exit;
  end;   
  try
        SUSend.PassWordID(edtPWID.Text);
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnReadTELNOClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadCenterTELNO;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnReadIDClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadID;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnNowTimeClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadNowTime;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnTSPTClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadTimingSendPaperTime;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnDialNumClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadDialingNum;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnReDialNumClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadReDialingNum;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnAutoMachineClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadAutoMachine;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;
end;

procedure TfrmIDShow.btnAutoRTClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadAutoRunTime;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnMinRGNumClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadMinRunGurNum;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

procedure TfrmIDShow.btnDialingClick(Sender: TObject);
var
  SUSend:TSU;
  strSendComm:string;
begin
  SUSend := TSU.Create;
  try
        SUSend.IDReadDiagling;
        strSendComm := SUSend.GetCOmmand;
        try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strSendComm),Length(strSendComm));
        except
          ShowMessage('命令发送失败！');
        end;
  finally
        SUSend.Free;
  end;

end;

function BCC(strBCC: string): string;
var
  i,strSum:Integer;
  strResult:string;
begin
   strSum := 0;
   for i := 1 to Length(strBCC) do
   begin
     strSum := strSum + Ord(strBCC[i]);
   end;
   strResult := IntToHex((strSum and $0F),1);
   Result := strResult;
end;
procedure TfrmIDShow.btn2Click(Sender: TObject);
var
  strTemp:string;
begin
   strTemp := #02 +edt1.Text + edt2.Text + #03;
   strTemp := strTemp + BCC(strTemp);
   try
          if not main.frmain.Spcomm1.PortOpen  then
              main.frmain.Spcomm1.StartComm;
          main.frmain.Spcomm1.WriteCommData( PChar(strTemp),Length(strTemp));
        except
          ShowMessage('命令发送失败！');
        end;
end;

end.