[Delphi]海康威视视频监控录像机布防报警的示例代码

HCNetSDK.pas由于太大，无法在这里粘贴，请到下列地址下载盒子论坛 v2.1http://bbs.2ccc.com/topic.asp?topicid=606222

unit uMain;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,Vcl.StdCtrls, Vcl.ComCtrls, uDVR;typeTForm1 = class(TForm)RichEdit1: TRichEdit;procedure FormShow(Sender: TObject);procedure FormDestroy(Sender: TObject);privateDVR: TDVR;procedure WmAfterShow(var Msg: TMessage); message WM_User;end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
beginOnShow := nil;PostMessage(Handle, WM_USER, 0 , 0);
end;procedure TForm1.WmAfterShow(var Msg: TMessage);
beginDVR := TDVR.Create('192.168.1.100', 8000, 'admin', 'yourpassword');if DVR.Connect = True thenbeginDVR.LogMessage(RichEdit1.Lines);endelsebeginShowMessage('无法连接视频监控主机');end;
end;procedure TForm1.FormDestroy(Sender: TObject);
beginDvr.Free;
end;end.

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 475ClientWidth = 635Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poScreenCenterOnDestroy = FormDestroyOnShow = FormShowDesignSize = (635475)PixelsPerInch = 96TextHeight = 13object RichEdit1: TRichEditLeft = 8Top = 8Width = 619Height = 459Anchors = [akLeft, akTop, akRight, akBottom]Font.Charset = GB2312_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []ParentFont = FalseScrollBars = ssBothTabOrder = 0Zoom = 100end
end

unit uDVR;interfaceuses System.Classes;typeTDVR = class(TObject)privateUserID, Port, AlarmHandle: Integer;DvrIP, UserName, Password: String;publicfunction Connect: Boolean;procedure DisConnect;procedure LogMessage(aStrings: TStrings);constructor Create(aDvrIP: String; aPort: Integer; aUserName, aPassword: String);destructor Destroy; override;end;implementationuses HCNetSDK, Winapi.Windows, System.SysUtils;varStrings: TStrings;constructor TDVR.Create(aDvrIP: String; aPort: Integer; aUserName, aPassword: String);
begininherited Create;DvrIP    := aDvrIP;Port     := aPort;UserName := aUserName;Password := aPassword;UserID := -1;AlarmHandle := -1;NET_DVR_Init;
end;function TDVR.Connect: Boolean;
varDeviceInfo: NET_DVR_DEVICEINFO_V30;pDvrIP, pUserName, pPassword: PAnsiChar;
beginDisConnect;pDvrIP    := PAnsiChar(AnsiString(DvrIP   ));pUserName := PAnsiChar(AnsiString(UserName));pPassword := PAnsiChar(AnsiString(Password));UserID := NET_DVR_Login_V30(pDvrIP, Port, pUserName, pPassword, @DeviceInfo);Result := (UserID >= 0);
end;procedure MyMSGCallBack(lCommand: LONG; pAlarmer: LPNET_DVR_ALARMER; pAlarmInfo: PAnsiChar; dwBufLen: DWORD; pUser: PVOID); StdCall;
varI: Integer;Info, S: String;pAI: LPNET_DVR_ALARMINFO_V30;
begincase lCommand ofCOMM_ALARM          :beginInfo := 'V3.0 以下版本支持的设备的报警信息上传';end;COMM_ALARM_V30      :beginInfo := 'V3.0 以上版本支持的设备的报警信息上传';pAI := LPNET_DVR_ALARMINFO_V30(pAlarmInfo);case pAI.dwAlarmType of0: Info := '信号量报警';1: Info := '硬盘满';2: Info := '信号丢失';3: Info := '移动侦测';4: Info := '硬盘未格式化';5: Info := '读写硬盘出错';6: Info := '遮挡报警';7: Info := '制式不匹配';8: Info := '非法访问';9: Info := '视频信号异常';10: Info := '录像异常';11: Info := '智能场景变化';12: Info := '阵列异常';13: Info := '前端/录像分辨率不匹配';14: Info := '申请解码资源失败';15: Info := '智能侦测';16: Info := 'POE供电异常报警';17: Info := '闪光灯异常';18: Info := '磁盘满负荷异常报警';19: Info := '音频丢失';20: Info := '开启录像';21: Info := '关闭录像';22: Info := '车辆检测算法异常';23: Info := '脉冲报警';24: Info := '人脸库硬盘异常';25: Info := '人脸库变更';26: Info := '人脸库图片变更';27: Info := 'POC异常';28: Info := '相机视角异常';29: Info := '电量低';30: Info := '缺少SD卡';end;if Copy(Info, Length(Info)-1, 2) <> '报警' thenInfo := Info + '报警';S := '';case pAI.dwAlarmType of2, 3, 6, 9, 10, 14, 19, 28:beginfor I := 0 to MAX_CHANNUM_V30 - 1 dobeginif pAI.byChannel[I] = 1 thenbeginif S <> '' thenS := S + '、';S := S + IntToStr(I+1);end;end;S := ': 发生移动侦测报警的通道号' + S;end;end;Info := Info + S;end;COMM_IPCCFG         : Info := '混合型DVR 在IPC 接入配置改变时的报警信息上传';COMM_IPCCFG_V31     : Info := '混合型DVR 在IPC 接入配置改变时的报警信息上传（扩展）';COMM_ALARM_HOT_SPARE: Info := '热备异常报警（N+1 模式异常报警）';COMM_ALARM_V40      : Info := '移动侦测、视频丢失、遮挡、IO 信号量等报警信息主动上传，报警数据为可变长';COMM_ALARM_VQD      : Info := 'VQD 诊断报警信息上传';COMM_VEHICLE_CONTROL_ALARM: Info := '黑白名单车辆报警上传';else Info := '未定义';end;Strings.Add(Info);
end;procedure TDVR.LogMessage(aStrings: TStrings);
varAlarmParam: NET_DVR_SETUPALARM_PARAM;
beginif UserID < 0 then Exit;Strings := aStrings;Strings.Clear;NET_DVR_SetDVRMessageCallBack_V30(MyMSGCallBack, nil);ZeroMemory(@AlarmParam, SizeOf(AlarmParam));AlarmParam.dwSize := SizeOf(AlarmParam);AlarmParam.byAlarmInfoType := 0;AlarmHandle := NET_DVR_SetupAlarmChan_V41(UserID, @AlarmParam);
end;procedure TDVR.DisConnect;
beginif UserID >= 0 thenbeginif AlarmHandle >= 0 thenbeginNET_DVR_CloseAlarmChan_V30(AlarmHandle);AlarmHandle := -1;end;NET_DVR_Logout_V30(UserID);UserID := -1;end;
end;destructor TDVR.Destroy;
beginDisConnect;NET_DVR_Cleanup;inherited;
end;end.

[Delphi]海康威视视频监控录像机布防报警的示例代码相关推荐

视频监控录像机默认端口 34567 修改为37420
视频监控录像机默认端口 34567 修改为37420 http:// cms 转载于:https://www.cnblogs.com/crave/p/11058104.html
智慧楼宇、智能社区、园区、楼宇管理系统、可视化、可视化数据、送排风、给排水、能源、运维、变配电、门禁、停车场、楼控系统、智能照明、电梯系统、安防系统、视频监控、防盗报警、电子巡更、设备台账、运维管理
本项目是智慧楼宇管理类系统高保真原型设计(尺寸1920 x 1080),包括了对楼宇建筑内接入的各子系统的设备进行集中监控和管理,实现如下功能: 1.设备监控:智能照明系统.电梯系统.空调新风系统.送 ...
海康威视视频监控的实现
首先商家会给我们api 大家一定要认真看不然真的不明白呜呜呜 api里面双击下载这些功能注意:这些appKey的是根据密钥来的必须认真看文档拿到这个token就是下面这个形式生成的搞了好久终于 ...
海康威视视频监控demo 源码+库文件
一个朋友做监控,用的海康威视的设备,海康威视本身自己有Android客户端,但朋友想开发一款自己的软件,配合硬件一起销售,还可以进行定制化开发,所以应朋友之请,就研究了下海康威视的相关SDK开发. 研 ...
餐饮连锁店远程视频监控系统设计需求分析
1. 适用范围: 餐饮连锁店远程监控系统:餐厅,酒店,咖啡厅,酒楼,快餐店等. 2. 需求分析: 连锁店空间的主要目的是向顾客提供餐饮和休闲娱乐,出入人员又多有杂,人口流动性 ...
Qt编写安防视频监控系统59-子模块3图文警情
一.前言图文警情子模块是为了适应现在各种人脸识别报警应用而增加的,参照现在各种视频监控手机app报警提示信息,基本上都是带了时间.内容.图片缩略图(单击可以查看大图),这种信息排列形式在现代的软件中 ...
智能安防系统-视频监控系统
一.智能安防系统 1.智能安防系统介绍安全防范系统成为了智慧城市与物联网行业应用中的一个非常重要的子系统. 安防系统主要包括:视频监控系统.入侵报警系统.出入口控制系统.电子巡查系统以及智能停车场管 ...
Qt编写安防视频监控系统（支持win/linux/mac/海康/大华/宇视/264/265等）
一.前言视频监控系统在整个安防领域,已经做到了烂大街的程序,全国起码几百家公司做过类似的系统,当然这一方面的需求量也是非常旺盛的,各种定制化的需求越来越多,尤其是这几年借着人脸识别的东风,发展更加迅 ...
qt 飞扬青云_Qt编写安防视频监控系统（界面很漂亮）
一.前言视频监控系统在整个安防领域,已经做到了烂大街的程序,全国起码几百家公司做过类似的系统,当然这一方面的需求量也是非常旺盛的,各种定制化的需求越来越多,尤其是这几年借着人脸识别的东风,发展更加迅 ...

[Delphi]海康威视视频监控录像机布防报警的示例代码

[Delphi]海康威视视频监控录像机布防报警的示例代码相关推荐

最新文章

热门文章