hikserver32.pas

ＤＥＬＰＨＩ开发包

  (
  Channels_Index: Byte;
  PictureFormat: LongWord = 4;          //主通道图像分辨率
  SubPictureFormat: LongWord = 4;       //子通道图像分辨率
  StreamType: DWORD = 3;                //主通道编码类型
  SubStreamType: DWORD = 3;             //子通道编码类型
  IQuantVal: Byte = 12;                 //Ｉ帧量化系数
  BQuantVal: Byte = 12;                 //Ｂ帧量化系数
  PQuantVal: Byte = 15;                 //Ｐ帧量化系数
  KeyFrameIntervals: Word = 100;        //关键帧间隔
  BFrames: Byte = 2;                    //Ｂ帧数（默认值为 2）
  PFrames: Byte = 1;                    //Ｐ帧数
  FFrames: Byte = 25                    //Ｆ帧数
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Load_Board
  功　能：　　初始化采集卡
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    ApplicationHwnd, MainwindowHwnd: THandle; DSP_Div: Byte = 1; IsAutoLoadServer: Boolean = True; Port_Server: Word = 5050; Port_Client: Word = 6050
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Load_Board
  (
  ApplicationHwnd, MainwindowHwnd: THandle; //进程句柄，主窗体句柄
  DSP_Div: Byte = 1;                    //通道被除数
  IsAutoLoadServer: Boolean = True;     //是否自动加载视频服务
  Port_Server: Word = 5050;             //服务端口
  Port_Client: Word = 6050              //客户端口
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Load_BoardEx
  功　能：　　扩展函数：初始化采集卡
  开　发：    SelonSoft
  日　期：    2007.12.18
  参　数：    ApplicationHwnd, MainwindowHwnd: THandle; DSP_Div: Byte = 1; IsAutoLoadServer: Boolean = True; Port_Server: Word = 5050; Port_Client: Word = 6050
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Load_BoardEx
  (
  ApplicationHwnd, MainwindowHwnd: THandle; //进程句柄，主窗体句柄
  DSP_Div: Byte = 1;                    //通道被除数
  IsAutoLoadServer: Boolean = True;     //是否自动加载视频服务
  Port_Server: Word = 5050;             //服务端口
  Port_Client: Word = 6050;             //客户端口
  PictureFormat: LongWord = 4;          //主通道图像分辨率
  SubPictureFormat: LongWord = 4;       //子通道图像分辨率
  StreamType: DWORD = 3;                //主通道编码类型
  SubStreamType: DWORD = 3;             //子通道编码类型
  IQuantVal: Byte = 12;                 //Ｉ帧量化系数
  BQuantVal: Byte = 12;                 //Ｂ帧量化系数
  PQuantVal: Byte = 15;                 //Ｐ帧量化系数
  KeyFrameIntervals: Word = 100;        //关键帧间隔
  BFrames: Byte = 2;                    //Ｂ帧数（默认值为 2）
  PFrames: Byte = 1;                    //Ｐ帧数
  FFrames: Byte = 25                    //Ｆ帧数
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  UnLoad_Board
  功　能：　　卸载采集卡
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function UnLoad_Board(): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Get_Board_Info
  功　能：　　获取板卡序列号等信息
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channel_Indexs: Byte = 1
  返回值：    TBoard_Info
  备　注：    通道号-决定板卡序列号的不同
-------------------------------------------------------------------------------}
function Get_Board_Info
  (
  Channel_Indexs: Byte = 1              //通道索引号，默认取第一块ＤＳＰ信息
  ): TBoard_Info; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Load_Net_Server
  功　能：　　启动网络服务
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Port_Server: Word = 5050; Port_Client: Word = 6050
  返回值：    Integer
  备　注：    若初始化板卡时选择自动加载服务（IsAutoLoadServer:= True）则无需调用该过程，重复调用无效
-------------------------------------------------------------------------------}
function Load_Net_Server(
  Port_Server: Word = 5050;             //服务端口
  Port_Client: Word = 6050              //客户端口
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  UnLoad_Net_Server
  功　能：　　停止网络服务
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：
  返回值：    Boolean
  备　注：
-------------------------------------------------------------------------------}
function UnLoad_Net_Server(): Boolean; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_Preview
  功　能：　　启动视频预览
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; Preview_Handle: THandle; Preview_Rect: TRect; IsOverlayMode: Boolean = False
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Start_Video_Preview
  (
  Channels_Index: Byte;                 //通道索引号
  Preview_Handle: THandle;              //预览控件句柄
  Preview_Rect: TRect;                  //预览区域(如指定预览控件的clientRect)
  IsOverlayMode: Boolean = False;       //默认不采用OverlayMode显示图像
  OverlayColorR: Byte = 10;             //Overlay关键色R值
  OverlayColorG: Byte = 10;             //Overlay关键色G值
  OverlayColorB: Byte = 10              //Overlay关键色B值
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Video_Preview
  功　能：　　 停止视频预览
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; Is_StopAll: Boolean = False
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Video_Preview
  (
  Channels_Index: Byte;                 //通道索引号
  Is_StopAll: Boolean = False           //是否停止所有通道的预览，默认只停止指定通道预览
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_Capture
  功　能：　　开始生成录像文件
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; Filename: WideString = ''; StopMinute: Word = 0; AutoSize: Word = 600
  返回值：    Integer
  备　注：    录像文件名可指定，也可以保留为空，则ＳＤＫ２会自动生成固定格式的文件名
　　　　　　  自动停止录像时间：优先权低，自动录像大小：优先权高
-------------------------------------------------------------------------------}
function Start_Video_Capture
  (
  Channels_Index: Byte;                 //通道索引号
  Filename: WideString = '';            //生成的录像文件名（不指定则自动命名）
  StopMinute: Word = 0;                 //自动停止录像的时间，为0表示不会自动停止
  AutoSize: Word = 600                  //自动分割录像文件的大小，默认每600Ｍ自动生成一个新文件
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Video_Capture
  功　能：　　停止生成录像文件
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Video_Capture
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Audio_Preview
  功　能：　　开始在指定通道上监听声音
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Start_Audio_Preview
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Audio_Preview
  功　能：　　停止在指定通道上监听声音
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; Is_StopAll: Boolean = False
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Audio_Preview
  (
  Channels_Index: Byte;                 //通道索引号
  Is_StopAll: Boolean = False           //默认只停止指定通道的声音
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Image_Capture
  功　能：　　视频截图
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; Filename: string = ''; IsJpeg: Boolean = False; JpegQuality: Byte = 100
  返回值：    Integer
  备　注：    JPEG 图片质量:1 到 100，1 最差，100 最好
-------------------------------------------------------------------------------}
function Start_Image_Capture
  (
  Channels_Index: Byte;                 //通道索引号
  Filename: string = '';                //保存截图名称（不指定则自动命名）
  IsJpeg: Boolean = False;              //默认保存成位图ＢＭＰ格式
  JpegQuality: Byte = 100               //ＪＰＥＧ压缩率，该值越大，压缩率越低，画质越接近ＢＭＰ
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_OSD
  功　能：　　在指定通道视频上显示ＯＳＤ
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; F_x, F_y: Integer; F_Text: PChar; T_x, T_y: Integer; T_Text: PChar; IsColorReversal: Boolean = True; Brightness: Byte = 255; IsDataTime: Boolean = False
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Start_Video_OSD
  (
  Channels_Index: Byte;                 //通道索引号
  F_x, F_y: Integer;                    //第一行文字座标
  F_Text: PChar;                        //第一行文字内容
  T_x, T_y: Integer;                    //第二行文字座标
  T_Text: PChar;                        //第二行文字内容
  IsColorReversal: Boolean = True;      //是否根据画面自动翻转ＯＳＤ文字颜色
  Brightness: Byte = 255;               //ＯＳＤ文字亮度　255最亮　0最暗
  IsDataTime: Boolean = False           //是否显示时间（优先权高）
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Video_OSD
  功　能：　　禁止显示指定通道上的ＯＳＤ
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Video_OSD
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Start_Video_Logo
  功　能：　　在指定通道上显示ＬＯＧＯ图片
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte; Logo_x, Logo_y: Integer; Filename: string; IsTranslucent: Boolean = False; Color_R: Byte = 255; Color_G: Byte = 255; Color_B: Byte = 255
  返回值：    Integer
  备　注：    ＬＯＧＯ图片大小128*128像素，支持ＪＰＥＧ和ＢＭＰ及ＩＣＯ格式显示，根据文件名自动转换
  　　　　　　通过设置最后三个参数的透明色值可实现原始图像对透明色的穿透
-------------------------------------------------------------------------------}
function Start_Video_Logo
  (
  Channels_Index: Byte;                 //通道索引号
  Logo_x, Logo_y: Integer;              //ＬＯＧＯ显示座标
  Filename: string;                     //ＬＯＧＯ图片文件名
  IsTranslucent: Boolean = False;       //默认不进行图片的透明处理（原始图像不穿透ＬＯＧＯ）
  Color_R: Byte = 255;                  //透明色值（ＲＧＢ）　红值
  Color_G: Byte = 255;                  //透明色值（ＲＧＢ）　绿值
  Color_B: Byte = 255                   //透明色值（ＲＧＢ）　蓝值
  ): Integer; stdcall; external HikRunSDK;

{-------------------------------------------------------------------------------
  过程名：　  Stop_Video_Logo
  功　能：　　禁止在指定通道上显示ＬＯＧＯ图片
  开　发：    SelonSoft
  日　期：    2007.07.01
  参　数：    Channels_Index: Byte
  返回值：    Integer
  备　注：
-------------------------------------------------------------------------------}
function Stop_Video_Logo
  (
  Channels_Index: Byte                  //通道索引号
  ): Integer; stdcall; external HikRunSDK;