⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 u_sysconfig.pas

📁 这是一款DELPHI编写的电信网关平台源代码提供给大家
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
  end;
end;
procedure writevision(const vision: byte; const RetryTime: integer;const GateID:string);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteInteger('Loginparams', 'vision', vision);
    inifile.WriteInteger('time', 'retryTime', RetryTime);
    inifile.WriteString('Protocal','GateID',GateID);
  finally
    inifile.Free;
  end;
end;
procedure readRetryTime(var RetryTime: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    RetryTime := inifile.ReadInteger('time', 'retryTime', 1000);
  finally
    inifile.Free;
  end;
end;
procedure readProto(var Status_ID, Version: string; var Response: Boolean);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    Status_ID := inifile.ReadString('protocal', 'Status_ID', '');
    Version := inifile.ReadString('protocal', 'Version', '');
    Response := inifile.ReadBool('protocal', 'Response', true);
  finally
    inifile.Free;
  end;
end;
procedure readsequence(var Mtseq, Moseq, RespSeq, RepSeq, questC_ID, sendC_ID: word);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    Moseq := inifile.ReadInteger('SequenceID', 'DSequence_ID', 0);
    Mtseq := inifile.ReadInteger('SequenceID', 'SSequence_ID', 0);
    RespSeq := inifile.ReadInteger('SequenceID', 'RespSequence_ID', 0);
    RepSeq := inifile.ReadInteger('SequenceID', 'ReportSequence_ID', 0);
    questC_ID := inifile.ReadInteger('Command_ID', 'questCommand_ID', 0);
    sendC_ID := inifile.ReadInteger('Command_ID', 'sendCommand_ID', 0);
    //User_F_S_SeqID := inifile.ReadInteger('SequenceID', 'User_F_S_SeqID', 0);
    //DefSquence := inifile.ReadInteger('SequenceID', 'DefSequence_ID', 0)
  finally
    inifile.Free;
  end;
end;

procedure readDsequence(var DeliverSequence,  Command_ID: word);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    DeliverSequence := inifile.ReadInteger('SequenceID', 'DSequence_ID', 2400);
    //User_F_S_SeqID := inifile.ReadInteger('SequenceID', 'User_F_S_SeqID', 2799);
   // defsequence := inifile.ReadInteger('SequenceID', 'DefSequence_ID', 2798);
    Command_ID := inifile.ReadInteger('Command_ID', 'sendCommand_ID', 0);
  finally
    inifile.Free;
  end;
end;
procedure readSsequence(var Sequence_ID, Command_ID: word);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    Sequence_ID := inifile.ReadInteger('SequenceID', 'SSequence_ID', 0);
    Command_ID := inifile.ReadInteger('Command_ID', 'questCommand_ID', 0);
  finally
    inifile.Free;
  end;
end;
procedure readRespsequence(var Sequence_ID, Command_ID: word);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    Sequence_ID := inifile.ReadInteger('SequenceID', 'RespSequence_ID', 0);
    Command_ID := inifile.ReadInteger('Command_ID', 'sendCommand_ID', 0);
  finally
    inifile.Free;
  end;
end;

procedure readRepsequence(var Sequence_ID, Command_ID: word);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    Sequence_ID := inifile.ReadInteger('SequenceID', 'ReportSequence_ID', 0);
    Command_ID := inifile.ReadInteger('Command_ID', 'sendCommand_ID', 0);
  finally
    inifile.Free;
  end;
end;
procedure writeProto(const Status_ID, Version: string; const Response: Boolean);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteString('protocal', 'Status_ID', Status_ID);
    inifile.WriteString('protocal', 'Version', Version);
    inifile.WriteBool('protocal', 'Response', Response);
  finally
    inifile.Free;
  end;
end;
procedure writeseq(const Mtseq, Moseq, RespSeq, RepSeq, questC_ID, sendC_ID: word);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteInteger('SequenceID', 'DSequence_ID', Moseq);
    inifile.WriteInteger('SequenceID', 'SSequence_ID', Mtseq);
    inifile.WriteInteger('SequenceID', 'RespSequence_ID', RespSeq);
    inifile.WriteInteger('SequenceID', 'ReportSequence_ID', RepSeq);
    inifile.WriteInteger('Command_ID', 'questCommand_ID', questC_ID);
    inifile.WriteInteger('Command_ID', 'sendCommand_ID', sendC_ID);
  finally
    inifile.Free;
  end;
end;
procedure readSerIp(var ip: string; var timeout: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    ip := inifile.ReadString('Socket', 'IPaddress', '');
    timeout := inifile.ReadInteger('Socket', 'Timeout', 5000);
  finally
    inifile.Free;
  end;
end;
procedure readport(var MTport, Moport, Report, iGateID: string);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    Moport := inifile.ReadString('port', 'MOPort', '');
    MTport := inifile.ReadString('port', 'MTPort', '');
    Report := inifile.ReadString('port', 'RePort', '');
    iGateID := inifile.ReadString('Protocal', 'GateID', '');
  finally
    inifile.Free;
  end;
end;
{读取业务对应的登陆服务器的端口号}
procedure readMTport(var Port: string; var SubmitReqN, SReqsleep: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    Port := inifile.ReadString('port', 'MTPort', '');
    SubmitReqN := inifile.ReadInteger('ThreadNumber', 'SubmitReqN', 1);
    SReqsleep := inifile.ReadInteger('Threadsleeptime', 'SubmitReq', 1);
  finally
    inifile.Free;
  end;
end;
procedure readMoport(var Port: string; var SpdeliverN, SpDsleep: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    Port := inifile.ReadString('port', 'MOPort', '');
    SpdeliverN := inifile.ReadInteger('ThreadNumber', 'SpdeliverN', 1);
    SpDsleep := inifile.ReadInteger('Threadsleeptime', 'Spdeliver', 1);
  finally
    inifile.Free;
  end;
end;
procedure readRepport(var Port: string; var ReportN, Repsleep: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    Port := inifile.ReadString('port', 'RePort', '');
    ReportN := inifile.ReadInteger('ThreadNumber', 'ReportN', 1);
    Repsleep := inifile.ReadInteger('Threadsleeptime', 'Report', 1);
  finally
    inifile.Free;
  end;
end;
procedure readRespport(var Port: string; var ResponseN, Respsleep: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    Port := inifile.ReadString('port', 'RePort', '');
    ResponseN := inifile.ReadInteger('ThreadNumber', 'ResponseN', 1);
    Respsleep := inifile.ReadInteger('Threadsleeptime', 'Response', 1);
  finally
    inifile.Free;
  end;
end;
procedure writeServer(const ip, MTport, Moport, Report: string; const timeout: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteString('socket', 'IPaddress', ip);
    inifile.WriteInteger('socket', 'timeout', timeout);
    inifile.WriteString('port', 'MTport', MTport);
    inifile.WriteString('port', 'Moport', Moport);
    inifile.WriteString('port', 'Report', Report);
  finally
    inifile.Free;
  end;
end;
procedure readThread(var CTDeliverN, SpsubmitN, SpdeliverN, SubmitReqN, ResponseN, ReportN: integer;
  var CTDsleep, Spssleep, SpDsleep, SReqsleep, Respsleep, Repsleep: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    CTDeliverN := inifile.ReadInteger('ThreadNumber', 'CTDeliverN', 1); {接收电信上行线程数}
    SpsubmitN := inifile.ReadInteger('ThreadNumber', 'SpsubmitN', 1); {下发到电信线程数}
    SpdeliverN := inifile.ReadInteger('ThreadNumber', 'SpdeliverN', 1); {上行到中间服务器线程数}
    SubmitReqN := inifile.ReadInteger('ThreadNumber', 'SubmitReqN', 1); {请求下行短信线程数}
    ResponseN := inifile.ReadInteger('ThreadNumber', 'ResponseN', 1); {发送回馈报告到中间服务器线程数}
    ReportN := inifile.ReadInteger('ThreadNumber', 'ReportN', 1); {发送递送报告到中间服务器线程数}

    CTDsleep := inifile.ReadInteger('Threadsleeptime', 'CTDeliver', 1);
    Spssleep := inifile.ReadInteger('Threadsleeptime', 'Spsubmit', 1);
    SpDsleep := inifile.ReadInteger('Threadsleeptime', 'Spdeliver', 1);
    SReqsleep := inifile.ReadInteger('Threadsleeptime', 'SubmitReq', 1);
    Respsleep := inifile.ReadInteger('Threadsleeptime', 'Response', 1);
    Repsleep := inifile.ReadInteger('Threadsleeptime', 'Report', 1);
  finally
    inifile.Free;
  end;
end;
procedure writeThread(const CTDeliverN, SpsubmitN, SpdeliverN, SubmitReqN, ResponseN, ReportN: integer;
  const CTDsleep, Spssleep, SpDsleep, SReqsleep, Respsleep, Repsleep: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteInteger('ThreadNumber', 'CTDeliverN', CTDeliverN); {接收电信上行线程数}
    inifile.WriteInteger('ThreadNumber', 'SpsubmitN', SpsubmitN); {下发到电信线程数}
    inifile.WriteInteger('ThreadNumber', 'SpdeliverN', SpdeliverN); {上行到中间服务器线程数}
    inifile.WriteInteger('ThreadNumber', 'SubmitReqN', SubmitReqN); {请求下行短信线程数}
    inifile.WriteInteger('ThreadNumber', 'ResponseN', ResponseN); {发送回馈报告到中间服务器线程数}
    inifile.WriteInteger('ThreadNumber', 'ReportN', ReportN); {发送递送报告到中间服务器线程数}

    inifile.WriteInteger('Threadsleeptime', 'CTDeliver', CTDsleep);
    inifile.WriteInteger('Threadsleeptime', 'Spsubmit', Spssleep);
    inifile.WriteInteger('Threadsleeptime', 'Spdeliver', SpDsleep);
    inifile.WriteInteger('Threadsleeptime', 'SubmitReq', SReqsleep);
    inifile.WriteInteger('Threadsleeptime', 'Response', Respsleep);
    inifile.WriteInteger('Threadsleeptime', 'Report', Repsleep);
  finally
    inifile.Free;
  end;
end;
procedure readCTDNumber(var CTDeliverN, CTDsleep: integer); {电信上行}
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    CTDeliverN := inifile.ReadInteger('ThreadNumber', 'CTDeliverN', 1); {接收电信上行线程数}
    CTDsleep := inifile.ReadInteger('Threadsleeptime', 'CTDeliver', 1);
  finally
    inifile.Free;
  end;
end;
procedure readSPSNumber(var SpsubmitN, Spssleep: integer); {下行到电信}
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    SpsubmitN := inifile.ReadInteger('ThreadNumber', 'SpsubmitN', 1); {下发到电信线程数}
    Spssleep := inifile.ReadInteger('Threadsleeptime', 'Spsubmit', 1);
  finally
    inifile.Free;
  end;
end;
procedure readlogth(var udpsrvip: string; var Port, Threadnumber, sleeptime: integer; var autowrite: Boolean);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    udpsrvip := inifile.ReadString('UDP', 'ServerIP', '');
    Port := inifile.ReadInteger('UDP', 'port', 8117);
    Threadnumber := inifile.ReadInteger('writelog', 'threadnumber', 1);
    sleeptime := inifile.ReadInteger('writelog', 'sleeptime', 100);
    autowrite := inifile.ReadBool('writelog', 'autowrite', true);
  finally
    inifile.Free;
  end;

end;

procedure writelogth(const Threadnumber, sleeptime: integer; const autowirte: Boolean);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteInteger('writelog', 'threadnumber', Threadnumber);
    inifile.WriteInteger('writelog', 'sleeptime', sleeptime);
    inifile.WriteBool('writelog', 'autowrite', autowirte);
  finally
    inifile.Free;
  end;
end;
procedure writeudp(const udpsrvip: string; const Port: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  try
    inifile := Tinifile.Create(filename);
    inifile.WriteString('UDP', 'ServerIP', udpsrvip);
    inifile.WriteInteger('UDP', 'port', Port);
  finally
    inifile.Free;
  end;
end;
procedure readsequID(var dsequenceID, ssequenceID: integer);
var
  inifile: Tinifile;
  filename: string;
begin
  filename := extractfilepath(application.ExeName) + 'SMGPConfig.ini';
  inifile := Tinifile.Create(filename);
  try
    dsequenceID := inifile.ReadInteger('CTSequenceID', 'dsequenceID', 1);
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -