apg989.pas

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

unit APG989;

interface
Uses
 Sysutils;
TYPE
  UnitTCar=class
private
  strIdentyfyCode:string;
  strPassword:string;
protected
public
  constructor create(IdentyfyCode:string;Password:string); overload;
  destructor Destroy;
  function   TimeCarryPosition(OrderSequenceCode:string;OrderType:string; IntervalTime:string;ReturnMode:string;ReturnAmout:string;
                                 StartReturnTime:string;EndReturnTime:string;OrderReturn:string):string;
  function DataCarryStopOrder(OrderSequenceCode:string;orderType:string;OrderReturn:string):string;
  function EnactmentMonitorCenter(OrderSequenceCode:string;OrderType:string;MonitorCenterCode:string;OrderReturn:string):string;
  function AreaCautionOrder(OrderSequenceCode:string;OrderType:string;No1Lat:string;No1Long:string;
                            No2Lat:string;No2Long:string;OrderMode:string;
                            IntervalTime:string;ReturnTimes:string;ReturnOrder:string):string;
  function EventEraseOrder(OrderSequenceCode:string;OrderType:string;StealErase:string;AreaErase:string;
                           SpeedErase:string;UrgencyErase:string;OrderReturn:string):string;
  function SetSMSCenterCode(OrderSequenceCode:string;OrderType:string;SMSCenterCode:string;OrderReturn:string):string;
  function SetOverSpeed(OrderSequenceCode:string;OrderType:string;SetSpeed:string;ConOverSpeedTime:string;
                        CarryTime:string;OrderReturn:string):string;
  function ListenReady(OrderSequenceCode:string;OrderType:string;ListenStyle:string;ListenCode:string):string;
  function ListenStop(OrderSequenceCode:string;OrderType:string;OrderReturn:string):string;
  function AccChangeAlarm(OrderSequenceCode:string;OrderType:string;AccOnTime:string;AccOFFTime:string;OrderReturn:string):string;
  function ChangeCarUnitCode(OrderSequenceCode:string;OrderType:string;NewCode:string;OldCode:string;OrderReturn:string):string;
  function SetListenTeleCode(OrderSequenceCode:string;OrderType:string;LimitStyle:string;LimitCode1:string;LimitCode2:string;
                             LimitCode3:string;LimitCode4:string;LimitCode5:string;strOrderReturn:string):string;
  function SetCarUnitSearch(OrderSequenceCode:string;OrderType:string;SearchType:string):string;
  function AtPresentPosition(OrderSequenceCode:string;OrderType:string):string;
  function MAreaAlarm(OrderSequenceCode:string;OrderType:string;MAreaCode:string;AreaAmount:string;StartNumber:string;
                       AreaNumber:string;Area1:string;Area2:string;Area3:string;Area4:string;
                       Area5:string;Area6:string;FinishSet:string;AlarmMode:string;IntervalTime:string;
                       CarryTime:string;OrderReturn:string):string;
  function AgainActivationAreaAlarm(OrderSequence:string;OrderType:string;OrderReturn:string):string;
  function PauseMAreaMonitor(OrderSequence:string;OrderType:string;OrderReturn:string):string;
  function SearchMAreaAlarm(OrderSequence:string;OrderType:string;StartNumber:string;AreaNumber:string):string;
  function SetOverTimeSettle(OrderSequence:string;OrderType:string;SettleSpeed:string;IntervalTime:string;
                             CarryNumber:string;OrderReturn:string):string;
  function SetLongTimeNotLocation(OrderSequence:string;OrderType:string;IntervalTime:string;
                                  CarryNumber:string;OrderReturn:string):string;
  function ResetCarUnit(OrderSequence:string;OrderType:string;OrderReturn:String):string;
  function EraseAllSet(OrderSequence:string;OrderType:string;OrderReturn:string):string;

end;
 ParseCarUnitCarryData=class(TObject)
private
  HighByte:string;
protected
public
  constructor Create();
  destructor Destroy;
  function ParseBasicPositionData(BasicPositionData:string):string;
  function ParseSingleData(SingleData:string):string;    
  function ParseStealData(StealData:string):string;
  function ResponseRemoteCommandData(RemoteCommandData:string):string;
  function ResponseSetCarSearch(SetCarSearch:string):string;
  function ResponseCurrentPositionSearch(CurrentPositionSearch:string):string;
  function ResponseSetMultiAreaAlarm(SetMultiAreaAlarm:string):string;
end;
SendOrderToRecord=class
private
   strIdentyfyCode:string;
   strPassword:string;
protected
public
   Constructor Create(IdentyfyCode:string;Password:string);overload;
   Destructor Destroy;
   function QueryRecordInfo(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
   function GatherDriver(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
   function GatherCarSpecNumber(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
   function GatherCarInfo(OrderSequence:string;OrderType:string;ExtendOrder:String):string;
   function GatherMile(OrderSequence:string;OrderType:string;ExtendOrder:string;StartTime:string;EndTime:string):string;
   function GatherRecordAccident(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
   function GatherTireDriveInfo(OrderSequence:string;OrderType:string;ExtendOrder:string):string;
end;
implementation
  constructor UnitTCar.create(IdentyfyCode:string;Password:string);
  begin
      inherited Create();
      strIdentyfycode :=IdentyfyCode;
      strPassword:=Password;
  end;
  destructor UnitTCar.Destroy;
  begin
  end;
  function unittcar.TimeCarryPosition(OrderSequenceCode:string;OrderType:string; IntervalTime:string;ReturnMode:string;ReturnAmout:string;
                                 StartReturnTime:string;EndReturnTime:string;OrderReturn:string):string;
    begin
    if ReturnAmout='01' then
    result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+
             IntervalTime+ReturnMode+ReturnAmout+StartReturnTime+EndReturnTime+
             OrderReturn
    else
     result:=strIdentyfyCode+strPassword+orderSequenceCode+OrderType+IntervalTime+ReturnMode+ReturnAmout+OrderReturn;
  end;
  function UnitTCar.DataCarryStopOrder(OrderSequenceCode:string;orderType:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+OrderReturn;
  end;
  function UnitTCar.EnactmentMonitorCenter(OrderSequenceCode:string;OrderType:string;MonitorCenterCode:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+MonitorCenterCode+OrderReturn;
  end;
  function UnitTCar.AreaCautionOrder(OrderSequenceCode:string;OrderType:string;No1Lat:string;No1Long:string;
                            No2Lat:string;No2Long:string;OrderMode:string;
                            IntervalTime:string;ReturnTimes:string;ReturnOrder:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+No1Lat+No1Long+
              No2Lat+No2Long+OrderMode+IntervalTime+ReturnTimes+ReturnOrder;
  end;
  function UnitTcar.EventEraseOrder(OrderSequenceCode:string;OrderType:string;StealErase:string;AreaErase:string;
                           SpeedErase:string;UrgencyErase:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+StealErase+AreaErase+
              SpeedErase+UrgencyErase+orderReturn;
  end;
  function UnitTCar.SetSMSCenterCode(OrderSequenceCode:string;OrderType:string;SMSCenterCode:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+SMSCenterCode+OrderReturn;
  end;
  function UnitTCar.SetOverSpeed(OrderSequenceCode:string;OrderType:string;SetSpeed:string;ConOverSpeedTime:string;
                        CarryTime:string;OrderReturn:string):string;
  begin
     result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+SetSpeed+ConOverSpeedTime+CarryTime+OrderReturn;
  end;
  function UnitTCar.ListenReady(OrderSequenceCode:string;OrderType:string;ListenStyle:string;ListenCode:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+ListenStyle+ListenCode;
  end;
  function UnitTCar.ListenStop(OrderSequenceCode:string;OrderType:string;OrderReturn:string):string;
  begin
     result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+OrderReturn;
  end;

  function UnitTCar.AccChangeAlarm(OrderSequenceCode:string;OrderType:string;AccOnTime:string;AccOFFTime:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+AccOnTime+AccOffTime+OrderReturn;
  end;
  function UnitTCar.ChangeCarUnitCode(OrderSequenceCode:string;OrderType:string;NewCode:string;OldCode:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+NewCode+OldCode+OrderReturn;
  end;
  function UnitTCar.SetListenTeleCode(OrderSequenceCode:string;OrderType:string;LimitStyle:string;LimitCode1:string;LimitCode2:string;
                             LimitCode3:string;LimitCode4:string;LimitCode5:string;strOrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+LimitStyle+LimitCode1+LimitCode2+
              LimitCode3+LimitCode4+LimitCode5+strOrderReturn;
  end;
  function UnitTCar.SetCarUnitSearch(OrderSequenceCode:string;OrderType:string;SearchType:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+SearchType;
  end;
  function UnitTCar.AtPresentPosition(OrderSequenceCode:string;OrderType:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType;
  end;
  function UnitTCar.MAreaAlarm(OrderSequenceCode:string;OrderType:string;MAreaCode:string;AreaAmount:string;StartNumber:string;
                       AreaNumber:string;Area1:string;Area2:string;Area3:string;Area4:string;
                       Area5:string;Area6:string;FinishSet:string;AlarmMode:string;IntervalTime:string;
                       CarryTime:string;OrderReturn:string):string;
  begin
      result:=strIdentyfyCode+strPassword+OrderSequenceCode+OrderType+MAreaCode+AreaAmount+StartNumber+
              AreaNumber+Area1+Area2+Area3+Area4+Area5+Area6+FinishSet+AlarmMode+IntervalTime+
              CarryTime+OrderReturn;     
  end;
  function UnitTCar.AgainActivationAreaAlarm(OrderSequence:string;OrderType:string;OrderReturn:string):string;
  begin
      Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+OrderReturn;
  end;
  function  UnitTCar.PauseMAreaMonitor(OrderSequence:string;OrderType:string;OrderReturn:string):string;
  begin
      Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+OrderReturn;
  end;
  function UnitTCar.SearchMAreaAlarm(OrderSequence:string;OrderType:string;StartNumber:string;AreaNumber:string):string;
  begin
      Result:= strIdentyfyCode+strPassword+OrderSequence+OrderType+StartNumber+AreaNumber;
  end;
  function UnitTCar.SetOverTimeSettle(OrderSequence:string;OrderType:string;SettleSpeed:string;IntervalTime:string;
                             CarryNumber:string;OrderReturn:string):string;
  begin
      Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+SettleSpeed+IntervalTime+
              CarryNumber+OrderReturn;
  end;
  function UnitTCar.SetLongTimeNotLocation(OrderSequence:string;OrderType:string;IntervalTime:string;
                                  CarryNumber:string;OrderReturn:string):string;
  begin
      Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+IntervalTime+
              CarryNumber+OrderReturn;    
  end;
  function UnitTcar.ResetCarUnit(OrderSequence:string;OrderType:string;OrderReturn:String):string;
  begin
      Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+OrderReturn;
  end;
  function UnitTcar.EraseAllSet(OrderSequence:string;OrderType:string;OrderReturn:string):string;
  begin
      Result:=strIdentyfyCode+strPassword+OrderSequence+OrderType+OrderReturn; 
  end;
  Constructor ParseCarUnitCarryData.Create();
  begin
  end;
  Destructor ParseCarUnitCarryData.Destroy;
  begin
  end;
  function ParseCarUnitCarryData.ParseBasicPositionData(BasicPositionData: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;
  begin
   S8:='00000000';
   S7:='00000000';
   S6:='00000000';
   S5:='00000000';
   S4:='00000000';
   S3:='00000000';