车载GPS定位监控系统中信号的分析和处理设计
加入技术交流群
区分一般信息和确认信息的依据是参数字符串是否包含“V4”。
Result：=False；{初始返回结果}
Result：=pos(‘V4’，Str)>0；{如果str包含“V4”，就返回true，否则false}
判断是否返回有效的信息的依据是参数字符串足否包含”*HQ”。
Result：=False；{初始返回结果}
Result：=pos(‘*HQ’，Str)>0；{如果str包含“*HQ”，就返回true，否则false}
一般信息的标志是V1。车载回传的一般信息中包含的参数有车载序列号、移动电话号码、车牌号、时间、绛纬度、速度、方位、日期。
∥获取车载序列号(同样的方法可以获取移动电话号码、车牌号、时间)
sCarNo：=copy(RecvGprs，iPos+4，10)；
∥获取纬度(同样的方法可以获得经度)
sLatitude：=copy(RecvGprs，iPos+3，9)；
sLatitude：=FloatToStr(StrToFloat(copy(sLatitude，1，2))+StrToFloat(copy(sLatitude，3，7))／60)；
∥获取南纬和北纬(同样的方法可以获得东西经)
iPos：=pos(‘，S，’，RecvGprs)；{查找“，S，”在RecvGprs的位置}
if iPos>0 then；(如果RecvGprs包含‘，S，’就执行下面语句}
sNS：=‘南纬’
else begin
iPos：=pos(‘，N，’，RecvGprs)；{查找“，N，” 在RecvGprs的位置}
sNS：=‘北纬’；
end；
∥获取速度、方位、日期
sSpeed：=copy(RecvGprs，iPos+3，6)；{获取速度}
sDirection：=copy(RecvGprs，iPos+10，3)；(获取方位}
sDate：=copy(RecvGprs，iPos+14，6)；{获取日期}
if Pos(‘.’，sSpeed)<=0 then{判断sSpeed是否包含‘.’，如果包含就执行下面语句}
begin
sSpeed：=copy(RecvGprs，iPos+3，3)；{获取速度}
sDirection：=copy(RecvGprs，iPos+7，3)；{获
取方位}
sDate：=copy(RecvGprs，iPos+11，6)；{获取日期}
end；
∥数据转换
sSpeed：=FormatFloat(‘0.00，StrToFloat(sSpeed)*1.852)；{行驶速度转换}
sSceond：=copy(sTime，5，2)；{时间转换}
if StrToInt(sSceond)<60 then{时间转换(‘YYYY-MM-DD HH：MM：SS’表示为：年月日时分秒)
sDate：=FormatDateTime(‘YYYY-MM-DDHH：MM：SS’，IncHour(StrToDateTime(‘20’+copy(sDate，5，2)+‘-’+copy(sDate，3，2)+‘-’+copy(sDate，1，2)+‘ ’+copy(sTime，1，2)+‘：’+copy(sTime，3，2)+‘：’+copy(sTime，5，2))，8))
else begin
sDate：=FormatDateTime(‘YYYY-MM-DDHH：MM：SS’，IncHour(StrToDateTime(‘20’+ copy(sDate，5，2)+‘-’+copy(sDate，3，2)+‘-’+copy(sDate，1，2)+‘ ’+copy(sTime，1，2)+‘：’+copy(sTime，3，2)+‘：’+‘00’)，8))；
sDate：=FormatDateTime(‘YYYY-MM-DD HH：MM：SS’，
IncMinute(StrToDateTime(sDate)，+1))；
end；
确认信息的标志是V4。车载回传的确认信息中包含车辆行驶方位和车辆状态。
处理一般信息中获取的方位信息，由字符类型转换为整型数据，根据数据所在范围确定车辆的行驶方位，小于22.5或大于337.5为正北方向，大于22.5小于67.5为东北方向，大于67.5小于112.5为正东方向，依此类推确认车辆的行驶方向。
处理一般信息中获取的车辆状态，由字符类型转换为二进制数字符串，把二进制数据的每一位存进数组，每一位对应表一中的一个车辆状态。
∥获取车辆状态
iPos：=Pos(‘#’，RecvGprs)；
sCarStatus：=copy(RecvGprs，iPos-8，8)
∥转换为二进制数字符串
sBin：=″；
forI：=1 to 8 do
sBin：=sBin+HexCng(copy(sCarStatus，I，1))；
∥把二进制数据的每一位存进数组
forI：=0to 3l do
ArrBin[I]：=copy(sBin，I+1，1)；
sCarStatuText：=HandleCarStatus(ArrBin)；{车辆状态}
监控中心根据每一台车载机传回的信息内容发送不同的命令。发送命令程序需严格按照中心发送命令集规定的的格式来写，下面列举其中的几条命令：
∥该指令要求车载机以sInterval为时间间隔，回传sCount次定位信息。
sRightStr：=‘*HQ，0000000000，D1，’+sTime+‘，’+sInterval+‘，’+sCount+‘#’
∥车载机接到这条指令后将清除掉 所有报警信息。
sRightStr：=‘*HQ，0000000000，R7，’+sTime+‘#’；
if Application.MessageBox(PChar(‘真的要解除对车辆【‘十CarID+’】报警吗?’)，‘提示’，MB_YESNO+MB_DEFBUTTON2)=IDNO then Exit；
这里的CarID指车载机序列号。
∥车载机收到这条命令将会启动断油断电。
sRightStr：=‘*HQ，0000000000，S20，’+sTime+‘，1，3，10，3，5，5#’；
if Application.MessageBox(PChar(‘真的要对车辆【‘+CarID+’】断油断电吗?’)，‘提示’，MB_YESNO+MB_DEFBUTTON2)=IDNO then Exit；
结语
目前，车载GPS定位监控系统已经被各运输公司使用在出租车、客车以及大型车队上，该软件技术很好的实现了对车辆位置、状态的监控和调度管理。
随着GPS应用领域的扩大，车载GPS导航定位监控软什的系统的功能也将随着导航、通信等需求而不断的增多和完善。GPS车载机通信协议会根据GPS车载机产品的功能升级而不断升级，增加新的命令，相应的软件系统也要增加新的指令，本系统的设计将易于这些升级维护工作的进行。
评论