u_sysconfig.pas

电信网关平台（V3.0）

    ssequenceID := inifile.ReadInteger('CTSequenceID', 'ssequenceID', 1);
  finally
    inifile.Free;
  end;
end;
procedure writesequID(const dsequenceID, ssequenceID: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    inifile.WriteInteger('CTSequenceID', 'dsequenceID', dsequenceID);
    inifile.WriteInteger('CTSequenceID', 'ssequenceID', ssequenceID);
  finally
    inifile.Free;
  end;
end;
procedure writetime(const activetime, timeout: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteInteger('time', 'activetime', activetime);
    inifile.WriteInteger('time', 'timeout', timeout);
  finally
    inifile.Free;
  end;
end;

procedure readtime(var activetime, timeout: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    activetime := inifile.ReadInteger('time', 'activetime', 3000);
    timeout := inifile.ReadInteger('time', 'timeout', 3000);
  finally
    inifile.Free;
  end;
end;
procedure readfile(var filename1, filename2, filename3: string; var n: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    filename1 := inifile.ReadString('warn', 'filename1', '');
    filename2 := inifile.ReadString('warn', 'filename2', '');
    filename3 := inifile.ReadString('warn', 'filename3', '');
    n := inifile.ReadInteger('warn', 'n', 10);
  finally
    inifile.Free;
  end;
end;
procedure writefile(const filename1, filename2, filename3: string; const n: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteString('warn', 'filename1', filename1);
    inifile.WriteString('warn', 'filename2', filename2);
    inifile.WriteString('warn', 'filename3', filename3);
    inifile.WriteInteger('warn', 'n', n);
  finally
    inifile.Free;
  end;
end;
procedure readtimes(var resptime, sendcou: integer);
var
  filename: string;
  inifile: Tinifile;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    resptime := inifile.ReadInteger('submit', 'resptime', 10);
    sendcou := inifile.ReadInteger('submit', 'sendtimes', 4);
  finally
    inifile.Free;
  end;
end;
procedure writetimes(const resptime, sendcou: integer);
var
  filename: string;
  inifile: Tinifile;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    inifile.WriteInteger('submit', 'resptime', resptime);
    inifile.WriteInteger('submit', 'sendtimes', sendcou);
  finally
    inifile.Free;
  end;
end;

procedure TFSysConfig.FormCreate(Sender: TObject);
var
  Loginmode, xconnectmode: string;
  Status_ID, Version: string;
  questC_ID, sendC_ID: word;
  Response: Boolean;
  MTport, Moport, Report: string;
  Mtseq, Moseq, RespSeq, RepSeq: word;
  ip: string;
  timeout: integer;
  CTDeliverN, SpsubmitN, SpdeliverN, SubmitReqN, ResponseN, ReportN: integer;
  CTDsleep, Spssleep, SpDsleep, SReqsleep, Respsleep, Repsleep: integer;
  Threadnumber, sleeptime: integer;
  autowrite: Boolean;
  dsequenceID, ssequenceID: integer;
  str: string;
  activetime, CTtimeout, RetryTime: integer;
  vision: byte;
  filename1, filename2, filename3: string;
  n, resptime, sendtimes: integer;
begin
  //设置文本框允许输入字符
  //IP地址
  Edit15.Text := AppTitle;
  TCTIP.OnKeyPress := IPEditKeyPress;
  TSerIP.OnKeyPress := IPEditKeyPress;
  EIP.OnKeyPress := IPEditKeyPress;
  TCTPort.OnKeyPress := EditKeyPress;
  TMTPort.OnKeyPress := EditKeyPress;
  TMOPort.OnKeyPress := EditKeyPress;
  TRePort.OnKeyPress := EditKeyPress;
  EPort.OnKeyPress := EditKeyPress;
  Edit1.OnKeyPress := EditKeyPress;
  Edit2.OnKeyPress := EditKeyPress;
  ERetry.OnKeyPress := EditKeyPress;
  TVision.OnKeyPress := EditKeyPress;
  TMTSeq.OnKeyPress := EditKeyPress;
  TMOPort.OnKeyPress := EditKeyPress;
  TRespSeq.OnKeyPress := EditKeyPress;
  TReportSeq.OnKeyPress := EditKeyPress;
  TMOSeq.OnKeyPress := EditKeyPress;
//  EdefSeq.OnKeyPress := EditKeyPress;
  TSta.OnKeyPress := EditKeyPress;
  TMTCom.OnKeyPress := EditKeyPress;
  TMOCom.OnKeyPress := EditKeyPress;
  TRespCom.OnKeyPress := EditKeyPress;
  TReCom.OnKeyPress := EditKeyPress;
  Edit5.OnKeyPress := EditKeyPress;
  Edit6.OnKeyPress := EditKeyPress;
  Edit7.OnKeyPress := EditKeyPress;
  Edit8.OnKeyPress := EditKeyPress;
  Edit9.OnKeyPress := EditKeyPress;
  Edit10.OnKeyPress := EditKeyPress;
  ERespTime.OnKeyPress := EditKeyPress;
  ESendCou.OnKeyPress := EditKeyPress;
  TSPsubmitN.OnKeyPress := EditKeyPress;
  TSPDeliverN.OnKeyPress := EditKeyPress;
  TSubmitRes.OnKeyPress := EditKeyPress;
  TResponse.OnKeyPress := EditKeyPress;
  EReport.OnKeyPress := EditKeyPress;
  Edit13.OnKeyPress := EditKeyPress;
  Edit17.OnKeyPress := EditKeyPress;
  readLogParam(ServerIP, Port, clientID, sharesecret, SPID);
  readLogParam1(Loginmode, xconnectmode);
  readfile(filename1, filename2, filename3, n);
  readsequence(Mtseq, Moseq, RespSeq, RepSeq, questC_ID, sendC_ID);
  readport(MTport, Moport, Report,GateID);
  readSerIp(ip, timeout);
  readProto(Status_ID, Version, Response);
  readThread(CTDeliverN, SpsubmitN, SpdeliverN, SubmitReqN, ResponseN, ReportN, CTDsleep, Spssleep, SpDsleep, SReqsleep, Respsleep, Repsleep);
  readlogth(udpsrvip, udpport, Threadnumber, sleeptime, autowrite);
  readsequID(dsequenceID, ssequenceID);
  readtime(activetime, CTtimeout);
  readtimes(resptime, sendtimes);
  TSC.Text := sharesecret;
  TCTIP.Text := ServerIP;
  TCTPort.Text := Port;
  EClientID.Text := clientID;
  TSPID.Text := SPID;
  str := CBLoginMode.Items[strtointdef(Loginmode, 2)];
  CBLoginMode.Text := str;
  str := ConnectMode.Items[strtointdef(xconnectmode, 1) - 1];
  ConnectMode.Text := str;
  {登陆中间层参数}
  TSerIP.Text := ip;
  CBTimeout.Text := inttostr(timeout);
  if Response then CheckBox1.Checked := true;
  TMTSeq.Text := inttostr(Mtseq); TMTCom.Text := inttostr(questC_ID);
  TMOSeq.Text := inttostr(Moseq); TMOCom.Text := inttostr(sendC_ID);
  TRespSeq.Text := inttostr(RespSeq); TRespCom.Text := inttostr(sendC_ID);
  TReportSeq.Text := inttostr(RepSeq); TReCom.Text := inttostr(sendC_ID);
//  EUser_FS.Text := inttostr(User_F_S_SeqID);
  TMTPort.Text := MTport;
  TMOPort.Text := Moport;
  TRePort.Text := Report;
  TSta.Text := Status_ID;
  TVision.Text := Version;
  Edit1.Text := inttostr(CTtimeout);
  Edit2.Text := inttostr(activetime);
  TCTDeliverN.Text := inttostr(CTDeliverN); Edit5.Text := inttostr(CTDsleep);
  TSPsubmitN.Text := inttostr(SpsubmitN); Edit6.Text := inttostr(Spssleep);
  TSPDeliverN.Text := inttostr(SpdeliverN); Edit7.Text := inttostr(SpDsleep);
  TSubmitRes.Text := inttostr(SubmitReqN); Edit8.Text := inttostr(SReqsleep);
  TResponse.Text := inttostr(ResponseN); Edit9.Text := inttostr(Respsleep);
  EReport.Text := inttostr(ReportN); Edit10.Text := inttostr(Repsleep);
  Edit3.Text := inttostr(Threadnumber); Edit11.Text := inttostr(sleeptime);
  if autowrite then CheckBox2.Checked := true;
  EDSeq.Text := inttostr(dsequenceID);
  ESSeq.Text := inttostr(ssequenceID);
  readLogParam2(Loginmode, xconnectmode);
  str := CBLoginMode1.Items[strtointdef(Loginmode, 2)];
  CBLoginMode1.Text := str;
  str := ConnectMode1.Items[strtointdef(xconnectmode, 1) - 1];
  ConnectMode1.Text := str;
  readvision(vision);
  HVision.Text := inttostr(vision);
  readRetryTime(RetryTime);
  ERetry.Text := inttostr(RetryTime);
  Edit4.Text := filename1;
  Edit12.Text := filename2;
  Edit14.Text := filename3;
  Edit13.Text := inttostr(n);
//  EdefSeq.Text := inttostr(DefSequence_ID);
  ERespTime.Text := inttostr(resptime);
  ESendCou.Text := inttostr(sendtimes);
  EIP.Text := udpsrvip;
  EPort.Text := inttostr(udpport);
  OpenDialog1.DefaultExt := application.ExeName;
  OpenDialog2.DefaultExt := application.ExeName;
  OpenDialog3.DefaultExt := application.ExeName;
  Edit16.Text := inttostr(sSequence);
  Edit17.Text := GateID;
  ActiveTestTime := StrToInt(Edit2.Text);
end;

procedure TFSysConfig.FormShow(Sender: TObject);
begin
  RzPageControl1.ActivePageIndex := 0;
end;

procedure TFSysConfig.SpeedButton8Click(Sender: TObject);
var
  xFullWarnning: FullWarnning;
begin
  xFullWarnning := FullWarnning.Create;
end;

procedure TFSysConfig.SpeedButton10Click(Sender: TObject);
begin
  if OpenDialog3.Execute then
    Edit14.Text := OpenDialog3.filename;
end;
procedure TFSysConfig.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #13, #8]) then
    Key := #0;
end;

procedure TFSysConfig.IPEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #13, #8, #46]) then
    Key := #0;
end;
procedure TFSysConfig.SpeedButton6Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit4.Text := OpenDialog1.filename;
end;

procedure TFSysConfig.SpeedButton13Click(Sender: TObject);
begin
  if OpenDialog2.Execute then
    Edit12.Text := OpenDialog2.filename;
end;

procedure TFSysConfig.RzBitBtn1Click(Sender: TObject);
var
  Loginmode: string;
  xconnectmode: string;
begin
  ActiveTestTime := StrToInt(Edit2.Text);
  if CBLoginMode.Text = '0发送短消息' then Loginmode := '0'
  else if CBLoginMode.Text = '1接收短消息' then Loginmode := '1'
  else if CBLoginMode.Text = '2收发短消息' then Loginmode := '2'
  else Loginmode := '3';
  if ConnectMode.Text = '1长连接' then xconnectmode := '1'
  else xconnectmode := '2';
  writeLogParam1(Loginmode, xconnectmode);
  if CBLoginMode1.Text = '0发送短消息' then Loginmode := '0'
  else if CBLoginMode1.Text = '1接收短消息' then Loginmode := '1'
  else if CBLoginMode1.Text = '2收发短消息' then Loginmode := '2'
  else Loginmode := '3';
  if ConnectMode1.Text = '1长连接' then xconnectmode := '1'
  else xconnectmode := '2';
  writeLogParam(TCTIP.Text, TCTPort.Text, EClientID.Text, TSC.Text, Trim(TSPID.Text));
  writeLogParam2(Loginmode, xconnectmode);
  writetime(StrToInt(Trim(Edit2.Text)), StrToInt(Trim(Edit1.Text)));
  GateID:=edit17.Text;
  writevision(StrToInt(Trim(HVision.Text)), StrToInt(Trim(ERetry.Text)),GateID);

  readLogParam(ServerIP, Port, clientID, sharesecret, SPID);
  RetryTime := StrToInt(Trim(ERetry.Text));
  if messagebox(handle, '系统参数配置完成,现在要退出配置模块吗?', '成功', mb_okCancel + MB_ICONinformation) = 1 then
    close;
end;

procedure TFSysConfig.RzBitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFSysConfig.RzBitBtn3Click(Sender: TObject);
begin
  writeseq(StrToInt(TMTSeq.Text), StrToInt(TMOSeq.Text), StrToInt(TRespSeq.Text), StrToInt(TReportSeq.Text), StrToInt(TMTCom.Text), StrToInt(TMOCom.Text));
  writeProto(TSta.Text, TVision.Text, CheckBox1.Checked);
  writeServer(TSerIP.Text, TMTPort.Text, TMOPort.Text, TRePort.Text, StrToInt(CBTimeout.Text));
  if messagebox(handle, '系统参数配置完成,现在要退出配置模块吗?', '成功', mb_okCancel + MB_ICONinformation) = 1 then
    close;
end;

procedure TFSysConfig.RzBitBtn4Click(Sender: TObject);
begin
  writeThread(StrToInt(TCTDeliverN.Text), StrToInt(TSPsubmitN.Text), StrToInt(TSPDeliverN.Text), StrToInt(TSubmitRes.Text), StrToInt(TResponse.Text), StrToInt(EReport.Text),
    StrToInt(Edit5.Text), StrToInt(Edit6.Text), StrToInt(Edit7.Text), StrToInt(Edit8.Text), StrToInt(Edit9.Text), StrToInt(Edit10.Text));
  writetimes(StrToInt(ERespTime.Text), StrToInt(ESendCou.Text));
  if messagebox(handle, '系统参数配置完成,现在要退出配置模块吗?', '成功', mb_okCancel + MB_ICONinformation) = 1 then
    close;
end;

procedure TFSysConfig.RzBitBtn5Click(Sender: TObject);
begin
  writelogth(StrToInt(Edit3.Text), StrToInt(Edit11.Text), CheckBox2.Checked);
  if messagebox(handle, '系统参数配置完成,现在要退出配置模块吗?', '成功', mb_okCancel + MB_ICONinformation) = 1 then
    close;
end;

procedure TFSysConfig.RzBitBtn6Click(Sender: TObject);
var
  s: string;
begin
  writefile(Trim(Edit4.Text), Trim(Edit12.Text), Trim(Edit14.Text), StrToInt(Trim(Edit13.Text)));
  if (udpsrvip <> EIP.Text) or (udpport <> StrToInt(EPort.Text)) then
  begin
    writeudp(EIP.Text, StrToInt(EPort.Text));
    SMGPGateWay.Toolbutton16.Enabled := true;
    s := '修改监控消息配置参数,请重启日志处理线程！';
  end;
  s := '系统参数配置完成,现在要退出配置模块吗?' + #13#10 + s;
  SendWarn := CheckBox6.Checked;
  NoReceiveDeliver := StrToInt(RzSpinEdit1.Text);
  SendCount := StrToInt(RzSpinEdit2.Text);
  if messagebox(handle, PAnsiChar(s), '成功', mb_okCancel + MB_ICONinformation) = 1 then
    close;
end;

procedure TFSysConfig.RadioButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    SMGPGateWay.N15.Enabled := False;
    SMGPGateWay.N17.Enabled := False;
    SMGPGateWay.AllLogin1.Enabled := true;
    SMGPGateWay.MTLogin1.Enabled := true;
    SMGPGateWay.MOLogin1.Enabled := true;
    SMGPGateWay.AllExit1.Enabled := true;
    SMGPGateWay.MTExit1.Enabled := true;
    SMGPGateWay.MOExit1.Enabled := true;
    GroupBox13.Visible := False;
    GroupBox7.Visible := true;
    GroupBox8.Visible := true;
  end
end;

procedure TFSysConfig.RadioButton2Click(Sender: TObject);
begin
  if RadioButton2.Checked then
  begin
    SMGPGateWay.N15.Enabled := true;
    SMGPGateWay.N17.Enabled := true;
    SMGPGateWay.AllLogin1.Enabled := False;
    SMGPGateWay.MTLogin1.Enabled := False;
    SMGPGateWay.MOLogin1.Enabled := False;
    SMGPGateWay.AllExit1.Enabled := False;
    SMGPGateWay.MTExit1.Enabled := False;
    SMGPGateWay.MOExit1.Enabled := False;  
    GroupBox13.Visible := true;
    GroupBox7.Visible := False;
    GroupBox8.Visible := False;
  end;
end;

end.