setmode.~pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit setmode;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls,gvas, ComCtrls,recethr, Buttons;

type
  TsetmodeForm = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    RB_s: TRadioButton;
    rb_t: TRadioButton;
    Panel2: TPanel;
    commbtn: TBitBtn;
    exitbtn: TBitBtn;
    commsb: TStatusBar;
    procedure commbtnClick(Sender: TObject);
    procedure exitbtnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
    procedure threaddone(SENDER:TOBJECT);
    procedure echomess(var  x1:tmessage); message WM_MESSAGE1;
  public

    { Public declarations }
  end;

var
  setmodeForm: TsetmodeForm;


implementation
uses menu;
{$R *.DFM}
procedure TsetmodeForm.commbtnClick(Sender: TObject);
var
  p1:pchar;
  comname,INIFile:string;
  wasconnect:boolean;
  mode1:byte;
begin
  CommSB.panels[0].text:='';
  CommSB.panels[1].text:='';
  CommSB.panels[2].text:='';
  try
    getmem(p1,16);
    comname:='';
    //INIFile:=ExtractFileDir(APPLICATION.EXENAME)+'\HdXGXT.INI';
    inifile:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);//+'\hdxgxt.ini';
   if not fileexists(inifile) then
   inifile:=ExtractFileDir(APPLICATION.EXENAME)+'hdxgxt.ini'
   else inifile:=extractfiledir(application.exename)+'\hdxgxt.ini';
   if not fileexists(INIFile) then
    begin
      Application.MessageBox('需要设定串行通讯口','消息',MB_ICONINFORMATION);
      exit;
    end  else
    begin
      getprivateprofilestring('comports','comportsnumber','01',p1,16,pchar(INIFile));
      comname:=p1;
      if strtoint(comname)<0 then
      begin
        Application.MessageBox('串口设置信息丢失,请重新设置串行口','消息',MB_ICONINFORMATION);
        exit;
      end;
      if rb_s.checked then mode1:=1
      else mode1:=2;
      try
        with TSetPenMode.Create(self.handle,strtoint(comname)+1,commsb,mode1)  do
        BEGIN
          OnTerminate := ThreadDone;
        END;
        CommBtn.enabled:=FALSE;
        EXITBtn.Enabled:=FALSE;
      except
        Application.MessageBox('非法时间格式！','消息',MB_ICONINFORMATION);
      end;
    end;
  finally
    freemem(p1,16);
  end;
end;

procedure TSetModeFORM.echomess(var  x1:tmessage);
BEGIN
    case ord(x1.WParam) of
    Msg_Comm:
      begin
        case ord(x1.lparam) of
          Msg_Comm_InitSuccess:CommSB.Panels[0].TEXT:='串口初始化成功';
          Msg_Comm_InitFale:Application.MessageBox('串口初始化出错','消息',MB_ICONINFORMATION);
          Msg_Comm_DeviceErr:Application.MessageBox('通讯设备不正常,请检查通讯器、连接线和电源','消息',MB_ICONINFORMATION);
          Msg_Comm_comerror:Application.MessageBox('通讯失败！可能是您没有正确地选择串行口，请检查！','消息',MB_ICONINFORMATION);
        end;
      end;
    Msg_Pen:
      begin
        case ord(x1.lparam) of
          Msg_Pen_detecting:CommSB.Panels[1].text:='正在联接巡检笔..';
          Msg_Pen_present:CommSB.Panels[1].text:='联接到巡检笔';
          Msg_Pen_absent:CommSB.Panels[1].text:='联接巡检笔失败!';
          Msg_Pen_WritePenMode:CommSB.Panels[2].text:='正在设置模式...';
          Msg_Pen_WritePenModeSucc:CommSB.Panels[2].text:='设置模式正确';
          Msg_Pen_WritePenModefale:CommSB.Panels[2].text:='设置模式错误';
        end;
      end;
    Msg_PCode:
      begin
        CommSB.Panels[1].Text:='笔号：'+IntTohex(x1.lparam,2);
      end;
  else ;
  end;

END;

procedure Tsetmodeform.threaddone(SENDER:TOBJECT);
BEGIN
  CommBtn.enabled:=true;
  EXITBtn.Enabled:=true;
END;

procedure TsetmodeForm.exitbtnClick(Sender: TObject);
begin
  close;
end;

procedure TsetmodeForm.FormActivate(Sender: TObject);
begin
self.Height:=193;
self.Width:=259;
self.Top:=90;
self.Left:=round((mainform.Width-self.Width)/2);
end;

procedure TsetmodeForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
setmodeForm :=nil ;
end;

procedure TsetmodeForm.FormPaint(Sender: TObject);
begin
self.Height:=193;
self.Width:=259;
self.Top:=90;
self.Left:=round((mainform.Width-self.Width)/2);

end;

procedure TsetmodeForm.FormResize(Sender: TObject);
begin
self.Height:=193;
self.Width:=259;
self.Top:=90;
self.Left:=round((mainform.Width-self.Width)/2);

end;

end.