u_sysconfig.pas

电信网关平台（V3.0）

{***************************************************
                   参数配置单元
                    Author:LUOXINXI
                     Datetime:2004/3/11
***************************************************}
unit U_SysConfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzTabs, Buttons, ComCtrls, inifiles, RzLine, mmsystem,
  ExtCtrls, RzButton, Mask, RzEdit, RzSpnEdt;

type
  TFSysConfig = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    GroupBox1: TGroupBox;
    TMTCom: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    TMTSeq: TEdit;
    TSta: TEdit;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    TSPID: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    TSC: TEdit;
    TCTIP: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    TCTPort: TEdit;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    Label17: TLabel;
    TSerIP: TEdit;
    CBTimeout: TComboBox;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Label16: TLabel;
    Label18: TLabel;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Label7: TLabel;
    ERetry: TEdit;
    Label8: TLabel;
    Label19: TLabel;
    TRespSeq: TEdit;
    TabSheet2: TRzTabSheet;
    TMOSeq: TEdit;
    Label6: TLabel;
    TVision: TEdit;
    Label33: TLabel;
    TMOCom: TEdit;
    Label34: TLabel;
    TRespCom: TEdit;
    Label35: TLabel;
    TReportSeq: TEdit;
    Label36: TLabel;
    TReCom: TEdit;
    TabSheet4: TRzTabSheet;
    GroupBox5: TGroupBox;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    RzLine1: TRzLine;
    RzLine2: TRzLine;
    RzLine3: TRzLine;
    Label41: TLabel;
    RzLine4: TRzLine;
    Label42: TLabel;
    RzLine5: TRzLine;
    Label43: TLabel;
    Label44: TLabel;
    RzLine6: TRzLine;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    RzLine7: TRzLine;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    CheckBox2: TCheckBox;
    GroupBox6: TGroupBox;
    Label51: TLabel;
    Edit3: TEdit;
    Label52: TLabel;
    Edit11: TEdit;
    UpDown2: TUpDown;
    GroupBox7: TGroupBox;
    Label58: TLabel;
    Label59: TLabel;
    CBLoginMode1: TComboBox;
    ConnectMode1: TComboBox;
    Label61: TLabel;
    EClientID: TEdit;
    Label60: TLabel;
    HVision: TEdit;
    GroupBox8: TGroupBox;
    Label5: TLabel;
    CBLoginMode: TComboBox;
    ConnectMode: TComboBox;
    Label20: TLabel;
    GroupBox9: TGroupBox;
    Label21: TLabel;
    TCTDeliverN: TEdit;
    Label27: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label30: TLabel;
    Label31: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Label32: TLabel;
    EReport: TEdit;
    TResponse: TEdit;
    TSubmitRes: TEdit;
    TSPsubmitN: TEdit;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label54: TLabel;
    EDSeq: TEdit;
    Label55: TLabel;
    ESSeq: TEdit;
    TabSheet5: TRzTabSheet;
    Label53: TLabel;
    Edit4: TEdit;
    Label56: TLabel;
    Edit12: TEdit;
    Label57: TLabel;
    Edit13: TEdit;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Label63: TLabel;
    Edit14: TEdit;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    OpenDialog3: TOpenDialog;
    GroupBox10: TGroupBox;
    Label65: TLabel;
    ERespTime: TEdit;
    Label66: TLabel;
    ESendCou: TEdit;
    Label67: TLabel;
    SpeedButton12: TSpeedButton;
    Label68: TLabel;
    Edit15: TEdit;
    GroupBox11: TGroupBox;
    CheckBox3: TCheckBox;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    EIP: TEdit;
    EPort: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    CheckBox4: TCheckBox;
    SpeedButton6: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label14: TLabel;
    TMTPort: TEdit;
    Label12: TLabel;
    TMOPort: TEdit;
    Label13: TLabel;
    TRePort: TEdit;
    Label74: TLabel;
    CheckBox5: TCheckBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    GroupBox12: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox13: TGroupBox;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit16: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    GroupBox14: TGroupBox;
    CheckBox6: TCheckBox;
    Label78: TLabel;
    RzSpinEdit1: TRzSpinEdit;
    Label79: TLabel;
    Label80: TLabel;
    RzSpinEdit2: TRzSpinEdit;
    Label81: TLabel;
    Edit17: TEdit;
    TSPDeliverN: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure IPEditKeyPress(Sender: TObject; var Key: Char);
    procedure EditKeyPress(Sender: TObject; var Key: Char);
  end;

var
  FSysConfig: TFSysConfig;
  udpsrvip: string;
  udpport: integer;


procedure readLogParam(var ServerIP, Port, clientID, sharesecret, SPID: string); {登陆电信参数}
procedure writeLogParam(const ServerIP, Port, clientID, sharesecret, SPID: string);
procedure readLogParam1(var Loginmode, ConnectMode: string); {登陆电信参数,MO}
procedure writeLogParam1(const Loginmode, ConnectMode: string);
procedure readLogParam2(var Loginmode, ConnectMode: string); {登陆电信参数,MT}
procedure writeLogParam2(const Loginmode, ConnectMode: string);
procedure writevision(const vision: byte; const RetryTime: integer;const GateID:string);
procedure readvision(var vision: byte);

procedure readRetryTime(var RetryTime: integer);
procedure readProto(var Status_ID, Version: string; var Response: Boolean);
procedure writeProto(const Status_ID, Version: string; const Response: Boolean);
procedure writeseq(const Mtseq, Moseq, RespSeq, RepSeq, questC_ID, sendC_ID: word); {写队列和命令字}
{读取业务对应的中间服务器队列命令字}
procedure readsequence(var Mtseq, Moseq, RespSeq, RepSeq, questC_ID, sendC_ID: word);
procedure readDsequence(var DeliverSequence, Command_ID: word); {发送上行短信队列和命令字}
procedure readSsequence(var Sequence_ID, Command_ID: word); {请求下行短信队列和命令字}
procedure readRespsequence(var Sequence_ID, Command_ID: word); {发送回馈报告队列和命令字}
procedure readRepsequence(var Sequence_ID, Command_ID: word); {发送递送报告}
{读取登陆服务器参数}
procedure readSerIp(var ip: string; var timeout: integer); {ip地址}
procedure readport(var MTport, Moport, Report,iGateID: string); {端口}
{读取业务对应的登陆服务器的端口号}
procedure readMTport(var Port: string; var SubmitReqN, SReqsleep: integer); {请求下行短信端口、线程数和时间}
procedure readMoport(var Port: string; var SpdeliverN, SpDsleep: integer); {发送上行短信端口、线程数和时间}
procedure readRepport(var Port: string; var ReportN, Repsleep: integer); {递送报告端口、线程数和时间}
procedure readRespport(var Port: string; var ResponseN, Respsleep: integer); {回馈报告端口、线程数和时间}
procedure writeServer(const ip, MTport, Moport, Report: string; const timeout: integer);
{线程数}
procedure readThread(var CTDeliverN, SpsubmitN, SpdeliverN, SubmitReqN, ResponseN, ReportN: integer; var CTDsleep, Spssleep, SpDsleep, SReqsleep, Respsleep, Repsleep: integer);
procedure writeThread(const CTDeliverN, SpsubmitN, SpdeliverN, SubmitReqN, ResponseN, ReportN: integer; const CTDsleep, Spssleep, SpDsleep, SReqsleep, Respsleep, Repsleep: integer);
procedure readCTDNumber(var CTDeliverN, CTDsleep: integer); {电信上行}
procedure readSPSNumber(var SpsubmitN, Spssleep: integer); {下行到电信}
procedure readlogth(var udpsrvip: string; var Port, Threadnumber, sleeptime: integer; var autowrite: Boolean);
procedure writeudp(const udpsrvip: string; const Port: integer);
procedure writelogth(const Threadnumber, sleeptime: integer; const autowirte: Boolean);
{sequenceID}
procedure readsequID(var dsequenceID, ssequenceID: integer);
procedure writesequID(const dsequenceID, ssequenceID: integer);
procedure readtime(var activetime, timeout: integer);
procedure writetime(const activetime, timeout: integer);
{warnning}
procedure readfile(var filename1, filename2, filename3: string; var n: integer);
procedure writefile(const filename1, filename2, filename3: string; const n: integer);

procedure readtimes(var resptime, sendcou: integer);
procedure writetimes(const resptime, sendcou: integer);

procedure ReadAppTitle(var Title: string);
implementation
uses NetDisconnect, u_main;
{$R *.dfm}
procedure ReadAppTitle(var Title: string);
var
  inifile: Tinifile;
  Inifilename: string;
begin
  Inifilename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(Inifilename);
    Title := inifile.ReadString('ApplicationTitle', 'TitleStr', '');
  finally
    inifile.Free;
  end;
end;
procedure readLogParam(var ServerIP, Port, clientID, sharesecret, SPID: string);
var
  inifile: Tinifile;
  Inifilename: string;
begin
  Inifilename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(Inifilename);
    clientID := inifile.ReadString('Loginparams', 'ClientID', '');
    ServerIP := inifile.ReadString('loginparams', 'ServerIP', '');
    Port := inifile.ReadString('loginparams', 'ServerPort', '');
    sharesecret := inifile.ReadString('loginparams', 'sharesecret', '');
    SPID := inifile.ReadString('loginparams', 'SPID', '');
  finally
    inifile.Free;
  end;
end;
procedure writeLogParam(const ServerIP, Port, clientID, sharesecret, SPID: string);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteString('Loginparams', 'ServerIP', ServerIP);
    inifile.WriteString('Loginparams', 'ServerPort', Port);
    inifile.WriteString('Loginparams', 'ClientID', clientID);
    inifile.WriteString('Loginparams', 'sharesecret', sharesecret);
    inifile.WriteString('Loginparams', 'SPID', SPID);
  finally
    inifile.Free;
  end;
end;
procedure readLogParam1(var Loginmode, ConnectMode: string);
var
  inifile: Tinifile;
  Inifilename: string;
begin
  Inifilename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(Inifilename);
    Loginmode := inifile.ReadString('loginparams1', 'Loginmode', '');
    ConnectMode := inifile.ReadString('loginparams1', 'connectmode', '');
  finally
    inifile.Free;
  end;
end;
procedure writeLogParam1(const Loginmode, ConnectMode: string);
var
  inifile: Tinifile;
  Inifilename: string;
begin
  Inifilename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(Inifilename);
    inifile.WriteString('loginparams1', 'Loginmode', Loginmode);
    inifile.WriteString('loginparams1', 'connectmode', ConnectMode);
  finally
    inifile.Free;
  end;
end;
procedure readLogParam2(var Loginmode, ConnectMode: string); {登陆电信参数}
var
  inifile: Tinifile;
  Inifilename: string;
begin
  Inifilename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(Inifilename);
    Loginmode := inifile.ReadString('loginparams2', 'Loginmode', '');
    ConnectMode := inifile.ReadString('loginparams2', 'connectmode', '');
  finally
    inifile.Free;
  end;
end;
procedure writeLogParam2(const Loginmode, ConnectMode: string);
var
  inifile: Tinifile;
  Inifilename: string;
begin
  Inifilename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(Inifilename);
    inifile.WriteString('loginparams2', 'Loginmode', Loginmode);
    inifile.WriteString('loginparams2', 'connectmode', ConnectMode);
  finally
    inifile.Free;
  end;
end;
procedure readvision(var vision: byte);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    vision := inifile.ReadInteger('Loginparams', 'vision', vision);
  finally
    inifile.Free;