upu.pas.~8~

用串口发送手机短信 需要GSM Mode设备

unit uPU;

interface

uses
  SysUtils, Classes;

procedure puSubQJBL();  //初始化全局变量
function split_2(str,subStr:string;flag:boolean=true):string;

//声明全局变量
var
  LogSevr, LogBase, LogUser, LogPasd, LogBaseCur: string;
  dbPath, dbPathSql, aspPath : string;  //数据库路径

  iComPort, iComBaud :Word;      //串口, 波特率
  lstPhone :TStrings;   //电话号码

const
  cstLogPasd:string='LuYi16.com$763';
  mdbPsd : string='OnlyLove';

implementation

procedure puSubQJBL();
//初始化全局变量
begin
  LogSevr   := '(local)\gsql';     //SQL服务器  (local)\gsql
  LogBase   := 'kjRY_seei';    //命令字节间的等待时间    最小值为5
  LogUser   := 'sa';   //发送命令的等待时间      最小值为350
  LogPasd   := cstLogPasd;

  iComPort :=1;         //串口
  iComBaud :=9600;      //波特率
  lstPhone :=TStringList.Create;  //电话号码
  lstPhone.Add('13552443072');
end;

function split_2(str,subStr:string;flag:boolean=true):string;
{根据 字符串subStr拆分字符串str为两部分
没有分隔时返回全串, 当flag=true时返回左边
}
var
  rtn : string;
  nPos, Len : integer;   //Len记录subStr的长度
begin
  nPos := AnsiPos(subStr,str);
  Len := length(subStr);
  if nPos<>0 then begin
      if flag then
          rtn:=copy(str,1,nPos-1)
      else
          rtn:=copy(str,nPos+len,length(str));
  end else begin
      rtn:=str;
  end;
  Result := rtn;
end;

end.