sp_sverset.pas

SPServer.rar一个基于TCP/IP监听发送代码

unit SP_SverSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Spin, ComCtrls, Buttons, SM_SP_Server, Mask;

type
  Tfrm_Set = class(TForm)
    GroupBox1: TGroupBox;
    lHostPort: TLabeledEdit;
    sAnswerTime: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    sInterval: TSpinEdit;
    Label3: TLabel;
    sExpireTime: TSpinEdit;
    Label4: TLabel;
    sREC_UPT: TSpinEdit;
    GroupBox2: TGroupBox;
    cSecurity: TCheckBox;
    eMangPhone: TLabeledEdit;
    cWarning: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox4: TGroupBox;
    lNPassWord: TLabeledEdit;
    lCPassWord: TLabeledEdit;
    CheckBox1: TCheckBox;
    lPassWord: TLabeledEdit;
    Label5: TLabel;
    sSenAnswTime: TSpinEdit;
    cFailLog: TCheckBox;
    cReSend: TCheckBox;
    Label8: TLabel;
    sSND_UPT: TSpinEdit;
    Panel1: TPanel;
    GroupBox5: TGroupBox;
    eSvcType: TComboBox;
    rChargeNO: TRadioGroup;
    sReSend: TSpinEdit;
    Label6: TLabel;
    Label7: TLabel;
    eSPSvcType: TEdit;
    Panel2: TPanel;
    pkTime: TDateTimePicker;
    Chk2: TCheckBox;
    Label10: TLabel;
    pkTranTime: TDateTimePicker;
    spDate: TSpinEdit;
    eSPNumber: TLabeledEdit;
    Label9: TLabel;
    spTimeCycle: TSpinEdit;
    Label11: TLabel;
    Label12: TLabel;
    procedure CheckBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Chk2Click(Sender: TObject);
  private
    procedure VerifySecurity;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Set: Tfrm_Set;

implementation

{$R *.dfm}

uses SP_DLLs, DataBaseOperat, SP_DLL;

procedure Tfrm_Set.VerifySecurity;
begin
 if lPassWord.Text = '' then
  begin
   ErrorMsg(1,'请输入登陆认证码！');
   lPassWord.SetFocus;
   CheckBox1.Checked := False;
   Abort;
  end;
 if lNPassWord.Text = '' then
  begin
   ErrorMsg(1,'请输入登陆认证码！');
   lNPassWord.SetFocus;
   Abort;
  end;
 if lCPassWord.Text = '' then
  begin
   ErrorMsg(1,'请输入登陆认证码！');
   lCPassWord.SetFocus;
   Abort;
  end;
 if lNPassWord.Text <> lCPassWord.Text then
  begin
   lNPassWord.Clear;
   lCPassWord.Clear;
   ErrorMsg(1,'认证码确定输入错误！');
   lNPassWord.SetFocus;
   Abort;
  end;
end;

procedure Tfrm_Set.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
 begin
  GroupBox4.Enabled := CheckBox1.Checked;
  lNPassWord.Color := clWindow;
  lCPassWord.Color := clWindow;
  VerifySecurity;
 end else
 begin
  GroupBox4.Enabled := CheckBox1.Checked;
  lNPassWord.Color := clBtnFace;
  lCPassWord.Color := clBtnFace;
 end;
end;

procedure Tfrm_Set.FormShow(Sender: TObject);
begin
 try
  cSecurity.Checked := GetSeurity;
  cWarning.Checked  := GetWarning;
  eMangPhone.Text := GetMangPhone;
  lHostPort.Text := IntToStr(GetHostPort);
  sAnswerTime.Value := GetAnswerTime;
  sSenAnswTime.Value := GetSenAnswTime;
  sInterval.Value := GetInterval;
  sExpireTime.Value := GetExpireTime;
  sREC_UPT.Value := GetREC_UPT;
  sSND_UPT.Value := GetSND_UPT;
  pkTranTime.DateTime:=StrToTime(Get_Time);
  cFailLog.Checked := GetCurLogChk;
  cReSend.Checked  := GetReSend;
  ResultCharegNo   := GetCharge;
  eSPSvcType.Text  := GetSPSvcType;
  eSvcType.Text    := GetSvcTypeTran;
  sReSend.Value    := GetSendTry;
  spTimeCycle.Value:= GetTimeCycle;
  rChargeNO.ItemIndex:=GetCharge;
  spDate.Value:=GetFeeDate;
  pkTime.Time:=StrToTime(GetFeeTime);
  eSPNumber.Text:=GetSPNumber;
 except
  on Exception do
   raise exception.Create('请设定参数值！');
 end;
end;

procedure Tfrm_Set.BitBtn1Click(Sender: TObject);
var
 i:integer;
begin
ModalResult := mrNone;
try
    i:=StrToInt(lHostPort.Text);
  except
    ErrorMsg(1,'无效的端口！');
    lHostPort.SetFocus;
    Exit;
  end;
  if (i<0) or (i>65535)
    then begin
      ErrorMsg(1,'无效的端口！');
      lHostPort.SetFocus;
      Exit;
    end;
if cWarning.Checked then
  if eMangPhone.Text <> '' then
   if CheckPhone(11,eMangPhone.Text) then SetMangPhone(eMangPhone.Text) else
    begin
     ErrorMsg(1,'手机号码错误！');
     eMangPhone.SetFocus;
     Exit;
    end;
  if eMangPhone.Text = '' then
   begin
     ErrorMsg(1,'请输入管理员手机号码！');
     eMangPhone.SetFocus;
     Exit;
   end;
if CheckBox1.Checked then VerifySecurity;
  SetHostPort(i);
  SetAnswerTime(sAnswerTime.Value);
  SetSenAnswTime(sSenAnswTime.Value);
  SetInterval(sInterval.Value);
  SetExpireTime(sExpireTime.Value);
  SetREC_UPT(sREC_UPT.Value);
  SetSND_UPT(sSND_UPT.Value);
  SetCurLogChk(cFailLog.Checked);
  SetReSend(cReSend.Checked);
  SetSeurity(cSecurity.Checked);
  SetWarning(cWarning.Checked);
  SetTime(FormatDateTime('hh:mm',(pkTranTime.Time)));
  SetCharge(rChargeNO.ItemIndex);
  SetSPSvcType(eSPSvcType.Text);
  SetSvcTypeTran(eSvcType.Text);
  SetSendTry(sReSend.Value);
  SetFeeDate(spDate.Value);
  SetFeeTime(FormatDateTime('hh:mm',(pkTime.Time)));
  SetTimeCycle(spTimeCycle.Value);
  SetSPNumber(eSPNumber.Text);
  Security := GetSeurity;
  Warning  := GetWarning;
  MangPhone := GetMangPhone;
  HostPort := GetHostPort;
  Interval := GetInterval;
  ExpireTime := GetExpireTime;
  REC_UPT := GetREC_UPT;
  SND_UPT := GetSND_UPT;
  CurLogChk := GetCurLogChk;
  SendTime  := Get_Time;
  ReSend    := GetReSend;
  ResultCharegNo := GetCharge;
  SP_SvcType     := GetSPSvcType;
  SvcTypeTran    := GetSvcTypeTran;
  ReSendTry      := GetSendTry;
  FeeDate        := spDate.Value;
  FeeTime        := FormatDateTime('hh:mm',pkTime.Time);
  SPNumber       := eSPNumber.Text;
  frm_smServer.Timer_Rec.Interval  := GetAnswerTime;
  frm_smServer.Timer_Send.Interval := GetSenAnswTime;
  frm_smServer.tTimeCycle.Interval := GetTimeCycle;
  frm_smServer.ServerReceiveSend.Active:=False;
  frm_smServer.ServerReceiveSend.Port:=HostPort;
  frm_smServer.ServerReceiveSend.Active:=True;
  frm_smServer.sgr3.RowCount:=2;
  frm_smServer.sgr3.Rows[1].Clear;
  ClearLink;
  ModalResult := mrOk;
end;

procedure Tfrm_Set.Chk2Click(Sender: TObject);
begin
spDate.Enabled:=Chk2.Checked;
pkTime.Enabled:=Chk2.Checked;
end;

end.