hirkclient32.pas

视频采集卡sdk-2

{*******************************************************}
{                                                       }
{       海康威视(DS4XXXHC) SDK-2 集成开发包             }
{                   客户端                              }
{       版权所有 (C) 2007 EMAIL：[e-mail]      }
{                                                       }
{*******************************************************}

{
更新日期：2007年8月13日
}
unit HirkClient32;

interface
uses
  Windows, SysUtils, MMSystem, Classes;

type
  TCallBackFunc = procedure(Channels: Byte; War_Style: Byte; ReturnStr: string = ''); stdcall;
  TDeviceName = (Master, Microphone, WaveOut, Synth);

const
  HikRunSDK         = 'HikClient32.dll'; //SDK-2链接库文件名，请保持与文件实名同步修改

  //回调函数接口
procedure Set_CallBack_Func(Func: TCallBackFunc); stdcall; stdcall; external HikRunSDK;
//配置端口号(进程句柄，服务端口，客户端口)
function Set_Client_NetPort(AppHandle: THandle; ServerPort: Word; ClientPort: Word): Boolean; stdcall; external HikRunSDK;
//启动客户端并连接服务器(服务器IP地址，图像显示区域句柄，远程通道号，是否解码：默认解码，显示模式。NORMALMODE或者OVERLAYMODE,只有后者才可用来设置穿透色)
function Start_Client(ServerIP: PChar; VideoHandel: THandle; RemoteChannel: Byte = 1; IsDecode: Boolean = True; IsNormalmode: Boolean = True): Integer; stdcall; external HikRunSDK;
//停止客户端连接
function Stop_Client(): Boolean; stdcall; external HikRunSDK;
//获取工作状态
function Get_Client_State: PChar; stdcall; external HikRunSDK;
//获取服务端的通道数(服务器IP地址)
function Get_Server_ChanNum(): DWORD; stdcall; external HikRunSDK;
//抓取服务器监控图像(保存文件名),抓图得到的图像数据保存成BMP文件
function Start_Image_Capture(Filename: string = ''): Boolean; stdcall; external HikRunSDK;
//启动录像（通道号，保存录像文件名,自动停止录像时间：优先权低，自动录像大小：优先权高）
function Start_Video_Capture(Filename: string = ''; StopMinute: Word = 0; AutoSize: Word = 0): Boolean; stdcall; external HikRunSDK;
//停止录像
function Stop_Video_Capture(): Boolean; stdcall; external HikRunSDK;
//系统校时
procedure Set_Winclock(Datetime: TDateTime); stdcall; external HikRunSDK;
//对服务端的nChannel 通道网络连接初始化，结束当前所有用户对它的访问
function Shut_Client(): Boolean; stdcall; external HikRunSDK;
//开始屏幕输出（通道号，输出内容，输出左上角座标位置，是否透明输出，输出字体颜色RGB，是否输出时间）
function Start_Screen_Draw(I_Text: string; I_Left: Integer = 0; I_Top: Integer = 0; I_IsTransparence: Boolean = True; I_R: Byte = 255; I_G: Byte = 255; I_B: Byte = 255; I_IsDateTime: Boolean = False): Boolean; stdcall; external HikRunSDK;
//停止屏幕输出(通道号)
function Stop_Screen_Draw(): Integer; stdcall; external HikRunSDK;
//启动音频预览
function Start_Audio_Preview(): Boolean; stdcall; external HikRunSDK;
//停止音频预览
function Stop_Audio_Preview(): Boolean; stdcall; external HikRunSDK;
//获取已经解码的总帧数
function Get_Client_FrameNum(): Word; stdcall; external HikRunSDK;
//设置解码时丢弃B帧的个数
function Set_Client_ThrowBFrame(LostFrames: DWORD): Boolean; stdcall; external HikRunSDK;
//获取视频参数（通道号,亮度，对比度，饱和度，色度）
function Get_Video_Para(var Brightness, Contrast, Saturation, Hue: Integer): Boolean; stdcall; external HikRunSDK;
//设置视频参数（通道号,亮度，对比度，饱和度，色度）
function Set_Video_Para(Brightness, Contrast, Saturation, Hue: Byte): LongBool; stdcall; external HikRunSDK;
//快速黑白、彩色图像切换（通道号，是否黑白）
function Set_Video_NoColor(IsNoColor: Boolean = True): LongBool; stdcall; external HikRunSDK;
//复位视频图像参数
function Reset_Video_Para: LongBool; stdcall; external HikRunSDK;
//黑屏
function Set_Video_Black: LongBool; stdcall; external HikRunSDK;
//白屏
function Set_Video_White: LongBool; stdcall; external HikRunSDK;
//改变屏幕分辨率
function Set_Screen_Para(X, Y: Word; Frequency: Byte = 60): Boolean; stdcall; external HikRunSDK;
//调用全屏窗口(是否自动巡回显示各通道监控画面,默认不自动切换，值＝０)
function Start_Video_FullScreen(AutoCircuit: Byte = 0): Integer; stdcall; external HikRunSDK;
//获取Master音量
function Get_Volume_Master(): Word; stdcall; external HikRunSDK;
//设置Master音量
procedure Set_Volume_Master(Value: Word); stdcall; external HikRunSDK;
//获取WaveOut音量
function Get_Volume_WaveOut(): Word; stdcall; external HikRunSDK;
//设置WaveOut音量
procedure Set_Volume_WaveOut(Value: Word); stdcall; external HikRunSDK;
//获取Synth音量
function Get_Volume_Synth(): Word; stdcall; external HikRunSDK;
//设置Synth音量
procedure Set_Volume_Synth(Value: Word); stdcall; external HikRunSDK;
//静音自动切换
procedure Set_Volume_Mute; stdcall; external HikRunSDK;
//获取本SDK版本信息
function Get_SDK_Version(): PChar; stdcall; external HikRunSDK;
//获取机器码
function Get_UserID: PChar; stdcall; external HikRunSDK;
//获取注册状态
function Get_SDK_Reg: Boolean; stdcall; external HikRunSDK;
//发送邮件（邮件服务器域名，用户名，密码，发送信箱，目的信息，主题，信件正文内容：字符串):布尔
function Send_Mail(TSmtp, TUser, TPass, TGetMail, TTOMail, TSubject, TMailText: string): Boolean; stdcall; external HikRunSDK;
//本地IP
function Get_LocalIP: PChar; stdcall; external HikRunSDK;
//获取控制协议列表
function Get_Pro_List(var List: TStringList): Boolean; stdcall; external HikRunSDK;
//云台控制接口函数（串口号，协议编号,云台地址，动作编号；是否停止：默认不停止）：布尔
function Remot_Contrl(T_Com, T_Driv, T_Adr, T_Act: Byte; Is_Stop: Boolean = False): Boolean; stdcall; external HikRunSDK;

implementation

end.