unit_declare.~pas

对俄罗斯火花雷达进行控制

unit Unit_Declare;

interface

uses UnitElectronPoliceman;

//车牌事件定义
const
DSP_FILTER_OUT_VIEW  =10;
//运动的车牌可能已出界了
DSP_FILTER_BEFORE_CLEAR=11;
//统计过滤器清空之前的通知
DSP_FILTER_TIMER_OVER =12;
//本次统计已超时
DSP_FILTER_NEW_PLATE=13;
//发现了一个不同的新车牌
DSP_FILTER_LIKE_PLATE=14;
//发现了一个近拟的车牌
DSP_FILTER_SAME_PLATE=15;
//发现了一个相同的车牌

var
    Is_VideoStartUp : Boolean;                                                  //判断视频是否连接
    QueryPath : string;                                                         //文件统计路径
    IsStRadarClick, IsSoRadarClick, Radar_Check, RadarStartUp : Boolean;//雷达类型;是否单击雷达按钮;雷达验证;是否启动雷达。
    RadarType : string;
    DataBegin : boolean;                                                        //StaLker数据接收开始
    TestStaLker : Boolean;                                                      //雷达测试（如返回01234则视为正确）
    speedstr : string;                                                          //速度字符串
    Targetspeed, Speed_x : Integer;                                             //当前速度
    isnew : Boolean;                                                            //是否是新速度
    Is_Panauision : string;                                                     //是否是宽屏
    Is_Speed : Boolean;                                                         //是否超速
    Car_Number, Car_Color : string;                                             //车牌号码，车牌颜色
    AviCar_Number, AviCar_Color : string;                                       //录像抓拍车牌号码，录像抓拍车牌颜色
    TitleUpDwon, AviTitleUpDwon : Boolean;                                      //上或下叠加信息判断
    BigSpeed, FactBigSpeed, SmallSpeed, FactSmallSpeed : string;                //大型车限速，小型车限速
    bsaved, HandBsaved, AviAutoBsaved,AviHandBsaved, IsHardAvi, IsAvi : Boolean;                     //过程标签
    ComId, Illicitly, FixingCode, Person, Mis : string;                         //图片叠加信息,状态信息
    AddTime, AddIllicitly, AddPrincipal, AddLimitSpeed, AddMis, AddMph : string;//叠加信息选择判断
    Speed_Between : string;       
    PicSavePath : string;                                                       //抓拍图片保存路径
    Is_Beep, Is_Auto_Pic : string;                                              //是否报警,是否自动录像,是否自动抓拍
    AviFileName, AviSavePath : string;                                          //录像文件名称,录像文件存储
    SpCom1 : string;                                                            //串口号
    ImgWidth, ImgHeight : Integer;                                              //分辨率
    Zoom_1 : Integer;
    Status : string;
    Province : string;
    IniFilePath : string;
    ReadIniSpeed : string;
    IniComPath : string;
    TNow, TThen, VTNow, VTThen : TDateTime;     
    Msecint, VMsecint : Integer;
    InitializePicPath, InitializeDvrPath : string;                              //初始化PIC,DVR目录
    PicGroupNum, AviGroupNum : Integer;
    PositionNum, PlayNum : Integer;
    OneORTwo : Boolean;
    str_Date_One, Str_path_One : string;
    ComAviPath, ComAvi1Path : string;
    Rader_Check : Boolean;
    isEduce : Boolean;
    DelOrPrtLoad : Boolean;

    NoRegistry : Boolean;
    SpareDays : Integer;
    DataNum : string;

implementation

end.