Result := False;{初始返回结果}
Result := pos(‘V4’, Str) > 0;{如果str包含“V4”,就返回true,否则false}
判断是否返回有效的信息的依据是参数字符串是否包含"*HQ"。
Result := False; {初始返回结果}
Result := pos('*HQ',Str) > 0;{如果str包含“ *HQ”,就返回true,否则false}
//获取车辆状态
iPos := Pos('#', RecvGprs);
sCarStatus := copy(RecvGprs, iPos - 8, 8)
//转换为二进制数字符串
sBin := '';
for I := 1 to 8 do
sBin := sBin + HexCng(copy(sCarStatus, I, 1));
//把二进制数据的每一位存进数组
for I := 0 to 31 do
ArrBin[I] := copy(sBin, I + 1, 1);
sCarStatuText := HandleCarStatus(ArrBin);{车辆状态}
4. Okatan A,Salih A.Micro-controller based vehicle tracing system via use of GPS and GSM[C]. Proceedings of International conference on recent advances in space teclmologies, 2003:20-25