hikserver32.pas

ＤＥＬＰＨＩ开发包

{-------------------------------------------------------------------------------
  过程名：　  Get_Video_Para
  功　能：　　获取视频参数
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; var P_Ld, P_Dbd, P_Bhd, P_Sd: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Get_Video_Para
  (
  Channels_Index: Byte;                 //通道索引号
  var P_Ld, P_Dbd, P_Bhd, P_Sd: Byte    //返回通道号,亮度，对比度，饱和度，色度
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_Video_Para
  功　能：　　设置视频参数
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; P_Ld, P_Dbd, P_Bhd, P_Sd: Byte
  返回值：    Integer
  备　注：    亮度值（0—255）对比度（0—127）饱和度（0—127）色调（0—255）
-------------------------------------------------------------------------------}
function Set_Video_Para
  (
  Channels_Index: Byte;                 //通道索引号
  P_Ld, P_Dbd, P_Bhd, P_Sd: Byte        //指定的亮度，对比度，饱和度，色度值
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_Video_NoColor
  功　能：　　快速黑白、彩色图像切换
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; IsNoColor: Boolean = True
  返回值：    Integer
  备　注：    无须设置视频参数，调用后直接在黑白彩色图像间转换
-------------------------------------------------------------------------------}
function Set_Video_NoColor
  (
  Channels_Index: Byte;                 //通道索引号
  IsNoColor: Boolean = True             //默认转换成黑白图像
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Reset_Video_Para
  功　能：　　复位视频图像的标准参数
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：    快速切换成默认的标准视频值
-------------------------------------------------------------------------------}
function Reset_Video_Para
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_Screen_Black
  功　能：　　让指定的通道视频变成全黑
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：    不同于无视频信号，调用后录像视频也变成黑色
-------------------------------------------------------------------------------}
function Set_Screen_Black
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_Screen_White
  功　能：　　让指定的通道视频变成全白
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：    调用后录像视频也变成白色
-------------------------------------------------------------------------------}
function Set_Screen_White
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_Screen_Para
  功　能：　　调整屏幕分辨率
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    X, Y: Word; Frequency: Byte = 60
  返回值：    Boolean
  备　注：    针对个别品牌的ＬＣＤ不能显示60ＨＺ以上的刷新率设计
-------------------------------------------------------------------------------}
function Set_Screen_Para
  (
  X, Y: Word;                           //分辨率宽高比例值
  Frequency: Byte = 60                  //屏幕刷新率，默认60ＨＺ
  ): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_FullScreen
  功　能：　　全屏显示视频图像
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; AutoCircuit: Byte = 0
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Start_Video_FullScreen
  (
  Channels_Index: Byte;                 //通道索引号
  AutoCircuit: Byte = 0                 //全屏状态下是否自动巡回显示各通道监控画面,默认不自动切换
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_EncoderPicture_Format
  功　能：　　设置编码分辨率格式
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; PictureFormat: PictureFormat_t
  返回值：    Integer
  备　注：    设置主通道的编码格式，编码分辨率可以在录像的时候动态更改，而不必停止录像
-------------------------------------------------------------------------------}
function Set_EncoderPicture_Format
  (
  Channels_Index: Byte;                 //通道索引号
  PictureFormat: PictureFormat_t        //编码图象大小：4CIF、2CIF、DCIF、CIF  、QCIF
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Get_Frames_Statistics
  功　能：　　获取帧统计信息
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; var frame_Statistic: PFRAMES_STATISTICS
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Get_Frames_Statistics
  (
  Channels_Index: Byte;                 //通道索引号
  var frame_Statistic: PFRAMES_STATISTICS //返回帧统计信息
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Restore_Overlay
  功　能：　　恢复 OVERLAY表面
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：
  返回值：    Integer
  备　注：    当系统按下 CTRL+ALT+DEL 时系统的 OVERLAY 表面会被强制关闭，调用该函数时可以恢复 OVERLAY表面
-------------------------------------------------------------------------------}
function Restore_Overlay(): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Set_WatchDog
  功　能：　　设置看门狗
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; IsWatch: Boolean = False
  返回值：    Integer
  备　注：    可以实现对上层软件和系统中所有压缩板卡的运行状态监控
-------------------------------------------------------------------------------}
function Set_WatchDog
  (
  Channels_Index: Byte;                 //通道索引号
  IsWatch: Boolean = False              //是否打开看门狗
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_Mask
  功　能：　　开始屏幕遮挡
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; T_Left, T_Top, T_Right, T_Bottom: Integer
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Start_Video_Mask
  (
  Channels_Index: Byte;                 //通道索引号
  T_Left, T_Top, T_Right, T_Bottom: Integer //遮挡区域座标：左，上，右，下
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Video_Mask
  功　能：　　停止屏幕遮挡
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Video_Mask
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Motion_Detection
  功　能：　　开始对视频画面的移动侦测
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; T_Left: Integer = 0; T_Top: Integer = 0; T_Right: Integer = 703; T_Bottom: Integer = 575; DetectPrec: Byte = 2; IsAlarmFile: Boolean = False; framesBeforeAlarm: ULong = 100; AlarmFilename: string = 'AlarmFile'
  返回值：    Integer
  备　注：    移动侦测灵敏度默认值为2，等级 0 最灵敏，6 最迟钝；推荐值为 2;
-------------------------------------------------------------------------------}
function Start_Motion_Detection
  (
  Channels_Index: Byte;                 //通道索引号
  T_Left: Integer = 0;                  //左
  T_Top: Integer = 0;                   //上
  T_Right: Integer = 703;               //右
  T_Bottom: Integer = 575;              //下
  DetectPrec: Byte = 2;                 //移动侦测度
  IsAlarmFile: Boolean = False;         //是否预录像（暂无效）
  framesBeforeAlarm: ULong = 100;       //警前帧数，默认预录前100帧起（暂无效）
  AlarmFilename: string = 'AlarmFile'   //预录文件名（暂无效）
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Motion_Detection
  功　能：　　停止对视频画面的移动侦测
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Motion_Detection
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Audio_Warnning
  功　能：　　启动音频丢失报警
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：    ＳＤＫ２内部采用多线程方式，效率高，可迅速作出反应
-------------------------------------------------------------------------------}
function Start_Audio_Warnning
  (
  Channels_Index: Byte;                 //通道索引号
  MuteLimit: Byte = 20;                 //音频强度下限（用于检测音频丢失报警用 1-255）
  PlaySound: Boolean = False            //是否启动声音报警，默认不启动
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Audio_Warnning
  功　能：　　停止音频丢失报警
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte = 0
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Audio_Warnning
  (
  Channels_Index: Byte = 0              //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_Warnning
  功　能：　　启动视频丢失报警
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：    ＳＤＫ２内部采用多线程方式，效率高，可迅速作出反应
-------------------------------------------------------------------------------}
function Start_Video_Warnning
  (
  Channels_Index: Byte;                 //通道索引号
  PlaySound: Boolean = False            //是否启动声音报警，默认不启动
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Video_Warnning
  功　能：　　停止视频丢失报警
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte = 0
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Video_Warnning