untinit.pas

1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库

unit UntInit;

interface
uses Windows,  SysUtils, math, StrUtils, Forms, IniFiles;

type
  TLocalINI=Record
     sIniFileName:string;
     ActAsSMSSender:Boolean;
     ComNo:integer;                   //
     Mode:string;                     //串口通讯模式
     SCA:string;
     DBLinkMode:integer;              //数据库连接方式,0:Access单机方式；1:SQLServer网络方式；2:Oracle网络方式； 缺省为0
     DBMochineName:string;            //数据库机器名,若为SQLServer网络方式需设置此参数
     DBServerName:string;             //数据库服务名,若为Oracle网络方式需设置此参数
     DBUserName:string;               //连接用户名
     DBPassword:string;               //连接密码
     SMSValidTimeToSend:integer;      //提取短信的有效时间
     RSStep:integer;                  //提取短信的频率
     PcRSStep:integer;                //提取内网消息的频率
     VoiceTimesWhenRecvingMsg:integer;//收到内网消息时语音提示次数
     VoiceTimerWhenRecvingSMS:integer;//收到短信时语音提示次数
  end;
  TLocalHostMsg=record
    HostName:string;
    HostIP:string;
    HostID:string;
  end;
  TLocalProgramMsg=record
    pathfilename: string;
    filepath: string;
    filename: string;
    inipathfilename: string;
  end;

  TSYSConfigData=record
    NetMsgMustBeRecordCryptly:Boolean;
    SMSMustBeRecordCryptly:Boolean;
    UserPasswordMustBeRecordCryptly:Boolean;
  end;

//********************************************************************************
//类    别：内部函数
//功    能：读取INI文件内容
//*******************************************************************************
function ReadLocalINI:boolean;
//********************************************************************************
//类    别：内部函数
//功    能：读取本机信息
//*******************************************************************************
procedure ReadLocalMsg;

var
  myLocalIni:TLocalINI;
  myLocalHostMsg:TLocalHostMsg;
  myProgram: TLocalProgramMsg;  
  myInifile: TInifile;
  SysConfigData:TSYSConfigData;
  
implementation
uses NetFun;

procedure ReadLocalMsg;
var
  sIP,sErr:string;
begin
  sIP := '';
  sErr := '';
  myLocalHostMsg.HostName := GetMyHostName;
  if GetMyHostIP(sIP,sErr) then myLocalHostMsg.HostIP := sIP
  else myLocalHostMsg.HostIP := '';
end;

function ReadLocalINI:Boolean;
var
  TmpStr,sTmp:string;
begin
  Result := True;
  {
  TmpStr := GetCommandLine();
  if TmpStr[1]='"' then TmpStr := RightStr(TmpStr,Length(TmpStr)-1);
  sExtName := ExtractFileExt(TmpStr);
  sFileName := LeftStr(TmpStr,Pos(sExtName,TmpStr)-1) + '.ini';
  }
  myProgram.pathfilename := Application.ExeName;
  myProgram.filepath := ExtractFilePath(myProgram.pathfilename);
  myProgram.filename := ExtractFileName(myProgram.pathfilename);
  sTmp := Copy(myProgram.filename, 1, Length(myProgram.filename)-4);
  myProgram.inipathfilename := myProgram.filepath + sTmp + '.ini';

  if not FileExists(myProgram.inipathfilename) then
  begin
    TmpStr := '初始化文件' + myProgram.inipathfilename + '不存在！';
    Application.MessageBox(PChar(TmpStr),'警告');
  end;
  myLocalIni.sIniFileName := myProgram.inipathfilename;
  //Reg := TRegistry.Create;

  myInifile :=TInifile.create(myProgram.inipathfilename);
  try
    myLocalIni.ComNo := myInifile.ReadInteger('短信通讯', '串口号', 1);
    myLocalIni.Mode := myInifile.ReadString('短信通讯', '通讯模式', '57600,n,8,1');
    myLocalIni.SCA := myInifile.ReadString('短信通讯', '短信中心号码', '13800100500');
    myLocalIni.SMSValidTimeToSend := myInifile.ReadInteger('短信通讯', '提取短信的有效时间', 7);
  finally
    myInifile.Free;
  end;
end;

end.