gpsnetcommctrl.pas

a voice guide client ,it is the second part of voice guide center

unit GpsNetCommCtrl;

interface

uses
  Windows, Types, SysUtils, Classes, IdCoderMIME, Winsock;

resourcestring
  rsNoteEFence = '设置矩形电子围栏坐标为';
  rsNoteCallTimes = '多次呼叫%d次%d秒间隔';
  rsNoteCallSubscrib = '呼叫车辆';
  rsNoteCallOne = '单次呼叫';
  rsNoteCallStop = '停止呼叫';
  //rsNoteCallInDistance = '定长呼叫,间隔%d米回传定位数据';
  rsNoteCallInDistance = 'UDP回传间隔设置';
  rsNoteCallAtTime = '连续定时上报位置信息';
  rsNoteCallHistory = '回报历史数据';
  rsNoteCtrlBugTalk = '请求通话：';
  rsNote_Sg_EnSettByPhone = '手柄设置参数';
  rsNote_Sg_RingForMoment = '响喇叭60秒';
  rsNote_Sg_ForceCloseDoor = '强制鍞车门';
  rsNote_Sg_SplashSmallLamp = '闪烁小灯60秒';
  rsNoteCtrlCancelEm = '取消报警';
  rsNoteCtrlOpenDoor = '打开车门';
  rsNoteCtrlCloseDoor = '关闭车门';
  rsNoteCtrlStopCar = '控制锁车(断油/断电)';
  rsNoteCtrlUnStopCar = '控制解锁(通油/通电)';
  rsNoteCtrlListen = '从%s监听';
  //sg
  rsNote_Sg_SetClearPWD = '车载终端密码清除';
  rsNote_Sg_SetPhoneIn = '允许接听';
  rsNote_Sg_SetPhoneOut = '允许拨出';
  rsNote_Sg_SetPhoneNormal = '允许所有通话';
  rsNote_Sg_SetPhoneMask = '开启通话号码段限制';
  rsNote_Sg_SetPhoneNone = '禁止所有通话';
  rsNote_Sg_CtrlRestart = '车载终端系统复位';
  rsNote_704_SetPhoneLmd = '设置限制电话为:';
  rsNote_704_SetPhoneNoLmd = '设置电话为任意通话';
  rsNote_Sg_SetHotLine = '设置热线电话为';

  rsNoteSetOverSpeed = '设置超速报警速度为%d(公里/小时)';
  rsNoteSetSMSC = '设置短信中心为';
  rsNoteSetSvcCenter = '设置服务中心为';
  rsNoteSetFixSm = '设置终端第%d组固定短信为：%s';
  rsNoteSet_Sg_HistoryInterval = '历史记录间隔设置%d秒';
  rsNoteSet_Sg_AccEnable = 'ACC变化信息上报设置';
  rsNoteSet_Sg_TerminalEnable = '终端工作状态设置为：';
  rsNoteSet_Sg_GPRSNetworkSetting = 'GPRS网络参数设置,终端号码：%s,中心地址：%s,服务端口：%d,终端端口：%d,重联间隔：%d分钟,通信模式:%d';
  rsNoteSet_Sg_GPRSAPN = 'APN设置为：';

  //华强
  RsNoteSet_Hq_AccTime= '设置车台关ACC%d秒进入省电模式';
  RsNoteSet_Hq_CanCall = '设置限制电话为:';
  RsNoteSet_Hq_AllCall = '设置电话为任意通话';
  RsNoteSet_Hq_OtherInfo='设置车机';
//  RsNoteSet_Hq_LcdMenu=//修改LCD菜单
  RsNoteCtrl_Hq_CancelAlarm='解除报警';
  RsNoteCtrl_Hq_ReStart= '车机重启';
  RsNoteCall_Hq_Mileage='里程信息';
  RsNoteText_Hq_MessageTxt='信息发送';
  RsNoteSet_Hq_SaveInterval= '设置历史数据存储间隔%d';
  RsNoteSet_Hq_checkInterval= '设置道路检测器记录时间间隔%d';
  RsNoteSet_Hq_NOOPInterval= '设置在线待命上传时间间隔%d';
  //华强GSM
  RsNoteCtrl_HqGSM_CancelAlarm='解除劫警';
  RsNoteCtrl_HqGSM_ReStart= '状态恢复';
  RsNoteText_HqGSM_MessageTxt='信息发送';
  //GPSONE
  RsNoteCall_GpsOne_SeriesCall='连续呼叫';

  //天禾
  RsNoteSet_Th_S12='参数设置指令S12:%s断电断油,%s自动监控';
  //厦门雅训
  RsNoteCall_Yx_InTime          ='定时监控' ;            //定时监控
  RsNoteArea_Yx_Rect            ='电子围栏';  //电子围栏

  RsNoteSet_Yx_CommParam        ='修改监控参数请求';   //修改监控参数请求
  RsNoteSet_Yx_AlarmTelNo       ='设置报警号码';  //设置报警号码
  RsNoteSet_Yx_LstnTelNo        ='设置监听电话号码';   //设置监听电话号码
  RsNoteSet_Yx_CtrlPhone        ='设置通话控制';  //设置通话控制
  RsNoteSet_Yx_CfgAlarmer       ='设置报警器';   //设置报警器
  RsNoteSet_Yx_HelpTelNo        ='设置求助电话';  //设置求助电话
  RsNoteSet_Yx_BlackBoxSampling ='设置黑匣子采样间隔'; //设置黑匣子采样间隔

  RsNoteCtrl_Yx_AskState        ='车载终端状态查询'; //车载终端状态查询
  RsNoteCtrl_Yx_RestoreParam    ='恢复出厂设置';   //恢复出厂设置

type

  TGpsNetCmd = (ncNone, ncSubscrib,
                ncCallOne, ncCallMore, ncCallStop, ncCallInDistance,
                ncCall_Sg_AtTime,
                ncCall_Sg_History,
                ncCall_SgGPRS_AtTime,
                ncCall_SgGPRS_History,
                ncMsgAttemper, ncMsgBroadCast,ncTimerReadData{定时读数据},
                ncCtrlLock, ncCtrlLstn,
                ncCtrl_Sg_Reset,
                ncCtrl_Sg_PasswordClear,
                ncCtrl_Sg_Door,
                ncCtrl_Sg_Phone,
                ncCtrl_Sg_BegPhone,
                ncSet_Sg_HotLinePhone,
                ncCtrl_Sg_Ring,
                ncCtrl_Sg_ForceCloseDoor,
                ncCtrl_Sg_SplashSmallLamp,
                ncCtrl_SgGPRS_Reset,
                ncCtrl_SgGPRS_Phone,
                ncCtrl_SgGPRS_Door,
                ncCtrl_SgGPRS_BegPhone,
                ncSet_Sg_HostoryInterval,
                ncSet_Sg_AccEnable,
                ncSet_Sg_EnableSettByPhone,
                ncSet_SgGPRS_HostoryInterval,
                ncSet_SgGPRS_AccEnable,
                ncSet_SgGPRS_EnableSettByPhone,
                ncSet_SgGPRS_EnableTerminal,
                ncSet_SgGPRS_StartPluse,
                ncSet_SgGPRS_StopPluse,
                ncSet_SgGPRS_GetPluse,
                ncSet_SgGPRS_OverSpeed,
                ncSet_SgGPRS_GprsSetting,
                ncSet_SgGPRS_NetworkSetting,
                ncSet_SgGPRS_APNSetting,
                ncSetSvrCenterNo, ncSetSmCenterNo, ncSetOverSpeed,
                ncSet_704_Phone, ncSet_704_FixSm,
                //新星远
                ncSet_Xxy_OverSpeed, ncSet_Xxy_LowSpeed, ncSet_Xxy_StayLong, ncSet_Xxy_EFence,
                ncAreaRect,
                //华强
                ncSet_Hq_AccTime, //设置ACC进入省电时间
                ncSet_Hq_CanCall,//通话限制
                ncSet_Hq_OtherInfo,//设置车机参数
                ncSet_Hq_LcdMenu,//修改LCD菜单
                ncCtrl_Hq_CancelAlarm,//解除报警
                ncCtrl_Hq_ReStart, //车机重启
                ncCall_Hq_Mileage,//里程信息
                ncText_Hq_MessageTxt,//文本信息
                ncArea_Hq_Rect,      //电子围栏
                ncCall_Hq_Restrict,//通话限制
                ncSet_Hq_Phone,      // 设置号码
                ncSet_Hq_NeedReply,      // 设置终端上传后要求中心回复的项目
                ncSet_Hq_ShutAcc, //设置关ACC进入省电模式时间
                ncSet_Hq_SaveInterval, //设置历史数据存储间隔
                ncSet_Hq_FunctionFlag, //设置功能开关
                ncSet_Hq_WorkFlag, //控制终端工作状态
                ncSet_Hq_CarFlag, //遥控智能鍞车功能
                ncSet_Hq_CheckInterval, //设置道路检测器记录时间间隔
                ncSet_Hq_CheckData, //上传道路检测器记录
                ncSet_Hq_CarCancelAlarm, //解除报警
                ncSet_Hq_ChangeMenu, //修改菜单
                ncSet_Hq_SetIPPort, //设置IP地址端口
                ncSet_Hq_SetNOOPInterval, //设置在线待命上传间隔
                //GPSONE
                ncCall_GpsOne_SeriesCall, //连续呼叫
                //天禾
                ncSet_Th_S12,                 //参数设置指令S12
                ncCtrl_Th_Phone,              //通话设置指令S13
                ncCtrl_Th_Reset,              //冷启动指令R1
                ncSet_Th_OverSpeed,           //设置速度限制 S14
                ncSet_Th_LongOfOverArea,      //设置越界报警时间 S18
                ncSet_Th_CustAlarm,           //自定义报警
                ncArea_Th_Rect,               //电子围栏
                ncSet_Th_ToGroup,             //分组命令
                ncCtrl_Th_RestoreParam,       //恢复出厂设置
                ncCtrl_Th_ReadState,          //读设备状态
                ncCtrl_Th_GetPasswd,          //取密码
                ncCtrl_Th_PhoneSection,       //通话电话号段
                ncSet_Th_BakSmCtrlNo,         //设置辅助（下行）监控中心短信号码
                ncSet_Th_TempratureAlarm,     //设置温度报警
                ncSet_Th_OverSpeedAlarmOnBus, //设置车上超速提示报警
                ncSet_Th_CustMsg,             //增加设置自定义信息
                ncText_Th_EachOther,          //交互文本信息
                //add by wulianghong,2005-01-25
                ncCall_Th_History,            //读取历史数据
                ncSet_Th_Blast,               //防爆
                
                ncSet_Th_IPAndPort,           //IP及端口
                ncSet_Th_APN,                 //设置APN
                ncSet_Th_GpsInterval,         //设置GPS间隔
                ncSet_Th_UDPInterval,         //UDP间隔设置
                ncSet_Th_Mileage,             //里程查询与设置
                ncSet_Th_Camera,              //摄象头
                ncSet_Th_Temperature,         //温度报警
                ncSet_Th_XMode,               //X模式
                ncSet_Th_Door,                //车门开关及设防
                ncSet_Th_SMCtrl,              //短信回传控制
                ncSet_Th_Printer,             //打印机
                ncSet_Th_OilLevel,            //油位                

                //飞田
                ncOpr_Ft_OperMsg,             //业务初始信息下发
                ncOpr_Ft_OperMsgDetail,       //业务详细信息下发
                ncOpr_Ft_OperMsgNoDetail,     //业务未中标下发
                ncOpr_Ft_OperMsgCancel,       //业务取消
                ncSet_Ft_DoAfterAlarm,        //报警后动作
                ncSet_Ft_CallInterval,        //设置固定回传数据时间间隔
                ncSet_Ft_SingleListenNo,      //单向监听
                ncSet_Ft_CommServerParams,
                ncSet_Ft_AlarmTel,
                ncSet_Ft_CallCenterNo,
                ncSet_Ft_ResetTelNo,
                ncSet_Ft_DriveId,
                ncSet_Ft_CanCallInTelNo,      //允许呼入的电话号码
                ncSet_Ft_CanRecvSmTelNo,      //允许发送短消息的电话号码

                //厦门雅讯
                ncCall_Yx_InTime,             //定时监控
                ncSet_Yx_CommParam,           //修改监控参数请求
                ncArea_Yx_Rect,               //电子围栏
                ncSet_Yx_AlarmTelNo,          //设置报警号码
                ncSet_Yx_LstnTelNo,           //设置监听电话号码
                ncSet_Yx_CtrlPhone,           //设置通话控制
                ncSet_Yx_CfgAlarmer,          //设置报警器
                ncSet_Yx_HelpTelNo,           //设置求助电话
                ncSet_Yx_BlackBoxSampling,    //设置黑匣子采样间隔
                ncCtrl_Yx_AskState,           //车载终端状态查询
                ncCtrl_Yx_RestoreParam,       //恢复出厂设置

                //704车台
                ncSet704,

                ncOilPortCollecter,            //油口采集器
                ncOilPortResetPara,             //重置所有参数

                //龙翰科技
                ncLongHan_History,            //读取行车记录数据命令
                ncLongHan_Listen,             //监听
                ncLongHan_StopCar,            //断/开油路
                ncLongHan_Reboot,             //强行复位车台
                ncLongHan_TelManger,          //电话调度
                ncLongHan_MasterSMSC,         //设置监控主中心号码
                ncLongHan_SlaveSMSC,          //设置监控副中心号码
                ncLongHan_RecordInterval,     //设置历史数据存储时间间隔
                ncLongHan_Telphone,           //通话设置指令
                ncLongHan_MaxSpeed,           //设置限制速度
                ncLongHan_Area,               //设置电子围栏
                ncLongHan_Lock,               //远程开/锁门
                ncLongHan_UserNumber,         //设置车主手机号

                // 华强GSM
                ncHQGSMStateRenew,            //状态恢复
                ncHQGSMCancelAlert,           //解除劫警
                ncHQGSMTextInfor,             //文本信息
                ncHQGSMCanCall,               //通话限制

                ncHQGPRSDistance,             //上传里程
                ncHQGPRSDistanceReset,        //里程清零

                ncDCGPRSDistance,             //上传里程
                ncDCGPRSDistanceReset,        //里程清零

                ncYXGPRSDistance,             //上传里程
                ncYXGPRSDistanceReset,        //里程清零

                ncBJTHGPRSDistance,           //上传里程
                ncBJTHGPRSDistanceReset,      //里程清零
                ncBJTHGPRSReCallFormat,       //设置回传格式
                ncBJTHGPRSModifyTerminalID,   // 修改终端编号

                ncHangTongGPRSReadPositionInterval,   // 读取固定上传间隔
                ncHangTongGPRSCancelRob,          // 解除劫警
                ncHangTongGPRSCancelSteal,        // 解除盗警

                ncEEyeGPRSCancelAlarm,            // 解除报警
                ncEEyeGPRSReset,                  // 重新启动

                ncUnKnowGPRSSetIPPortAPN,         // 设置监控中心ＩＰ地址与端口号,APN
                ncUnKnowGPRSSetMileQuery,         // 里程查询
                ncUnKnowGPRSSetControlLock,       // 中控锁控制

                ncUnKnowGPRSSetIPPort,            // 设置ＩＰ地址与端口号
                ncUnKnowGPRSSetAPN,               // 设置终端APN
                ncUnKnowGPRSSetStopLimit,         // 设置停车门限值
                ncUnKnowGPRSSetTrackAnalyseFunction,  // 设置轨迹分析功能是否有效
                ncUnKnowGPRSSetAreaRect,          // 设置矩形电子围栏
                ncUnKnowGPRSSetOverSpeedWarning,  // 设置超速报警
                ncUnKnowGPRSSetOverSpeedHint,     // 设置车上超速报警提示开关
                ncUnKnowGPRSSetOvertimeStop,      // 设置超时停车报警
                ncUnKnowGPRSSetAreaRectFunction,  // 电子区围栏域功能设置
                ncUnKnowGPRSSetSpeedAndMilesDataFrom,       // 设置速度和里程数据统计源
                ncUnKnowGPRSSetStandbyIP,         // 设置备用IP
                ncUnKnowGPRSSetTerminalGroup,    // 终端分组
                ncUnKnowGPRSSetSectStandard,      // 设置行车段分段标准
                ncUnKnowGPRSSetTireDriveWarnning, // 设置疲劳驾驶报警
                ncUnKnowGPRSSetDataSendToCenter,  // 设置行车段完成及超速驾驶完成后是否将相关数据上传到中心
                ncUnKnowGPRSGetTrackAnalyseData,  // 读取轨迹分析数据
                ncUnKnowGPRSSetDistanceReset,     // 里程清零
                ncUnKnowGPRSSetAllWarning,        // 设置所有报警开关
                ncUnKnowGPRSSetSignalDetect,      // 设置信号监测模式
                ncUnKnowGPRSSetOilWarning,        // 设置油位报警参数
                ncUnKnowGPRSSetDefendBurst,       // 设置防爆功能
                ncUnKnowGPRSSetInitialWarning,    // 初始化报警开关参数
                ncUnKnowGPRSSetOverSpeedTest,     // 超速报警喇叭测试指令
                ncUnKnowGPRSSetCmdReply,          // 报警确认指令
                ncUnKnowGPRSSetVersionFlag,       // 获取当前软件版本
                ncUnKnowGPRSSetBreakOil,          // 断油断电
                ncUnKnowGPRSSetResetOil,          // 恢复油电
                ncUnKnowGPRSSetColdBoot,          // 冷启动
                ncUnKnowGPRSSetOilFunction,       // 油位功能设置

                ncUnKnowGPRSSetSaveMode,          // 设置节能模式
                ncUnKnowGPRSSetSpeedCompare,      // 设置里程的速比
                ncUnKnowGPRSSetFixingControl,     // 外设控制
                ncUnKnowGPRSSetTransport          // 透传指令
                );

  TCtrlPhone = (cpPhoneIn, cpPhoneOut, cpPhoneAll, cpPhoneNone, cpPhoneMask);

  TGpsNetCommCtrl = class(TComponent)
  private
    { Private declarations }
    F_Ft_OperId: Integer;
    F_Ft_OperIdList: TStringList;             //"上海飞田"协议的“车辆”=“OperId”对应表
  protected
    { Protected declarations }
  public
    FCmdList: TStringList;
    LastSendCommandTime: Cardinal;