apg989.pas

连接利用SPCOMM和SOCKET写的短信服务器

   S2:='00000000';
   S1:='00000000';
   strInitial:='$GPRMC,';
   strUTCTime:=Copy(BasicPositionData,1,6)+'.00'+',';
   strState:=Copy(BasicPositionData,31,1)+',';
   strLat:=Copy(BasicPositionData,7,4)+'.'+Copy(BasicPositionData,11,4)+',';
   strN:=Copy(BasicPositionData,32,1)+',';
   strLongitude:=Copy(BasicPositionData,15,5)+'.'+Copy(BasicPositionData,20,4)+',';
   strW:=Copy(BasicPositionData,33,1)+',';
   strSpeed:=Copy(BasicPositionData,27,3)+',';
   strCourse:=Copy(BasicPositionData,30,3)+',';
   strUTCDate:=Copy(BasicPositionData,39,6)+',';
   strAngel:='0.0,';
   strDegree:='0.0,';
   strCC:='00';
   Result:=S8+S7+S6+S5+S4+S2+S1+S3+StrInitial+strUTCTime+strState+
           strLat+strN+strLongitude+strW+strSpeed+strCourse+strUTCDate+
           strAngel+strDegree+strCC;            
  end;
  function ParseCarUnitCarryData.ParseSingleData(SingleData:string):string;
  var
   S8,S7,S6,S5,S4,S3,S2,S1:string;
   strInitial:string;
   strUTCTime:string;
   strState:string;
   strLat:string;
   strLongitude:string;
   strSpeed:string;
   strCourse:string;
   strN:string;
   strW:string;
   strUTCDate:string;
   strAngel:string;
   strDegree:string;
   strCC:string;
   BasicPositionData:string;
  begin
   S8:='00000000';
   S7:='00000000';
   S6:='00000000';
   S5:='00000000';
   S4:='00000000';
   S3:='00000000';
   S2:='00000000';
   S1:='00000000';
   strInitial:='$GPRMC,';
   BasicPositionData:=Copy(SingleData,2,44);
   strUTCTime:=Copy(BasicPositionData,1,6)+'.00'+',';
   strState:=Copy(BasicPositionData,31,1)+',';
   strLat:=Copy(BasicPositionData,7,4)+'.'+Copy(BasicPositionData,11,4)+',';
   strN:=Copy(BasicPositionData,32,1)+',';
   strLongitude:=Copy(BasicPositionData,15,5)+'.'+Copy(BasicPositionData,20,4)+',';
   strW:=Copy(BasicPositionData,33,1)+',';
   strSpeed:=Copy(BasicPositionData,27,3)+',';
   strCourse:=Copy(BasicPositionData,30,3)+',';
   strUTCDate:=Copy(BasicPositionData,39,6)+',';
   strAngel:='0.0,';
   strDegree:='0.0,';
   strCC:='00';
   Result:=S8+S7+S6+S5+S4+S2+S1+S3+StrInitial+strUTCTime+strState+
           strLat+strN+strLongitude+strW+strSpeed+strCourse+strUTCDate+
           strAngel+strDegree+strCC;            
  end;
  function ParseCarUnitCarryData.ParseStealData(StealData:string):string;
  var
   S8,S7,S6,S5,S4,S3,S2,S1:string;
   strInitial:string;
   strUTCTime:string;
   strState:string;
   strLat:string;
   strLongitude:string;
   strSpeed:string;
   strCourse:string;
   strN:string;
   strW:string;
   strUTCDate:string;
   strAngel:string;
   strDegree:string;
   strCC:string;
   BasicPositionData:string;
  begin
   S8:='00000100';
   S7:='00000000';
   S6:='00000000';
   S5:='00000000';
   S4:='00000000';
   S3:='00000000';
   S2:='00000000';
   S1:='00000000';
   strInitial:='$GPRMC,';
   BasicPositionData:=Copy(StealData,2,44);
   strUTCTime:=Copy(BasicPositionData,1,6)+'.00'+',';
   strState:=Copy(BasicPositionData,31,1)+',';
   strLat:=Copy(BasicPositionData,7,4)+'.'+Copy(BasicPositionData,11,4)+',';
   strN:=Copy(BasicPositionData,32,1)+',';
   strLongitude:=Copy(BasicPositionData,15,5)+'.'+Copy(BasicPositionData,20,4)+',';
   strW:=Copy(BasicPositionData,33,1)+',';
   strSpeed:=Copy(BasicPositionData,27,3)+',';
   strCourse:=Copy(BasicPositionData,30,3)+',';
   strUTCDate:=Copy(BasicPositionData,39,6)+',';
   strAngel:='0.0,';
   strDegree:='0.0,';
   strCC:='00';
   Result:=S8+S7+S6+S5+S4+S2+S1+S3+StrInitial+strUTCTime+strState+
           strLat+strN+strLongitude+strW+strSpeed+strCourse+strUTCDate+
           strAngel+strDegree+strCC;            
  end;
  function ParseCarUnitCarryData.ResponseRemoteCommandData(RemoteCommandData:string):string;
  var
   strFlag:string;
  begin
   strFlag:=Copy(RemoteCommandData,4,1);
   case strtoint(strFlag) of
     0:Result:='命令识别错误';
     1:Result:='密码错误';
     2:Result:='格式错误';
     3:Result:='时间间隔错误';
     4:Result:='号码错误';
     5:Result:='确认SOS响应命令';
     6:Result:='监听准备';
     7:Result:='命令执行成功';
     8:Result:='功能未支持';
   else
     Result:='';
   end;
  end;
  function ParseCarUnitCarryData.ResponseSetCarSearch(SetCarSearch:string):string;
  var
    strFlag:string;
  begin
    strFlag:=copy(SetCarSearch,7,1);
    case strtoint(strFlag) of
      1:Result:='设定有效';
      0:Result:='设定无效';
    else
      Result:='';
    end;
  end;
  function ParseCarUnitCarryData.ResponseCurrentPositionSearch(CurrentPositionSearch:string):string;
  var
   S8,S7,S6,S5,S4,S3,S2,S1:string;
   strInitial:string;
   strUTCTime:string;
   strState:string;
   strLat:string;
   strLongitude:string;
   strSpeed:string;
   strCourse:string;
   strN:string;
   strW:string;
   strUTCDate:string;
   strAngel:string;
   strDegree:string;
   strCC:string;
   BasicPositionData:string;
  begin
   S8:='00000100';
   S7:='00000000';
   S6:='00000000';
   S5:='00000000';
   S4:='00000000';
   S3:='00000000';
   S2:='00000000';
   S1:='00000000';
   strInitial:='$GPRMC,';
   BasicPositionData:=Copy(CurrentPositionSearch,8,44);
   strUTCTime:=Copy(BasicPositionData,1,6)+'.00'+',';
   strState:=Copy(BasicPositionData,31,1)+',';
   strLat:=Copy(BasicPositionData,7,4)+'.'+Copy(BasicPositionData,11,4)+',';
   strN:=Copy(BasicPositionData,32,1)+',';
   strLongitude:=Copy(BasicPositionData,15,5)+'.'+Copy(BasicPositionData,20,4)+',';
   strW:=Copy(BasicPositionData,33,1)+',';
   strSpeed:=Copy(BasicPositionData,27,3)+',';
   strCourse:=Copy(BasicPositionData,30,3)+',';
   strUTCDate:=Copy(BasicPositionData,39,6)+',';
   strAngel:='0.0,';
   strDegree:='0.0,';
   strCC:='00';
   Result:=S8+S7+S6+S5+S4+S2+S1+S3+StrInitial+strUTCTime+strState+
           strLat+strN+strLongitude+strW+strSpeed+strCourse+strUTCDate+
           strAngel+strDegree+strCC;            
  end;
  function ParseCarUnitCarryData.ResponseSetMultiAreaAlarm(SetMultiAreaAlarm:string):string;
  var
   strFlag:string;
  begin
   case strtoint(strFlag) of
    0:Result:='设定未激活或是未设定';
    1:Result:='设定且激活';
   else
     Result:='';
   end;
  end;
  Constructor SendOrderToRecord.Create(IdentyfyCode:string;Password:string);
  begin
    strIdentyfyCode:=IdentyfyCode;
    strPassword:=Password;
  end;
  destructor SendOrderToRecord.Destroy;
  begin
  end;
  function SendOrderToRecord.QueryRecordInfo(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
  begin
    Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder;
  end;
  function SendOrderToRecord.GatherDriver(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
  begin
    Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder;
  end;
  function SendOrderToRecord.GatherCarSpecNumber(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
  begin
    Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder;
  end;
  function SendOrderToRecord.GatherCarInfo(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
  begin
    Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder;
  end;
  function SendOrderToRecord.GatherMile(OrderSequence:string;OrderType:string;ExtendOrder:string;StartTime:string;EndTime:string):string;
  begin
     Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder+StartTime+EndTime;
  end;
  function SendOrderToRecord.GatherRecordAccident(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
  begin
     Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder;
  end;
  function SendOrderToRecord.GatherTireDriveInfo(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
  begin
     Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+ExtendOrder;
  end;
end.