data_def.~pas

来自「一个DELPHI 云台控制动态库」· ~PAS 代码 · 共 67 行

unit data_def;

interface
type
    pdata = Boolean;
    
const
        //------
        Zero : byte = $00;
       //同步字
        STX : byte = $FF;
       //-----

       //-------------
       //焦距拉近(byte1)
        FocusNear : byte =	$01 ;
        //焦距拉远(byte2)
        FocusFar : byte =	$80;
       //光圈打开和关闭
        IrisOpen : byte =	$02;
        IrisClose : byte =	$04;
       //摄像机打开和关闭
        CameraOn : byte = $88;
        CameraOff : byte = $08;
       //自动扫描打开或关闭
        AutoscanOn : byte =	$90;
        AutoscanOff : byte =	$10;
       //摄像机打开
       // CameraOn : byte =	$40;
       //-------------

       //----------------
       //向右
        PanRight : byte =	$02;
       //向左
        PanLeft : byte =	$04;
       //向上
        TiltUp : byte =		$10;
       //向下
        TiltDown : byte =	$08;
       //视角变窄
        ZoomTele : byte =	$20;
       //视角变宽
        ZoomWide : byte =	$40;
       //---------------

       //-----------------------
       //平移最小速度
        PanSpeedMin : byte = $00;
       //平移最大
        PanSpeedMax : byte = $3F;
        //平移高速
        PanSpeedMost : byte = $FF;
       //------------------------
       
       //---------------------------------------
       //上移范围
        TiltSpeedMin : byte = $00;
        TiltSpeedMax : byte = $3F;
       //----------------------------------------
var
    data_Buffer : array [0..6] of byte;
    
implementation

end.