技术标签: 开发语言
一直对海康摄像机的二次开发感兴趣,之前用Delphi做了些DEMO,能预览和抓图,但太过久远了,海康的SDK与Delphi的开发接口都已经升级了,所以这一回再用Delphi做个通用的Unit。希望对有兴趣的朋友提供点参考。开发环境如下:
Delphi 11.1社区版
海康SDK版本:CH-HCNetSDKV6.1.9.47_build20221111_win32_20221203100951
来源于海康官网;
Delphi开发接口:HCNetSDK.pas
来源于www.2ccc.com(对应的海康威视SDK版本:CH-CNetSDKV6.1.6.4_build20201231_Win32)
海康摄像机1:DS-2CD3347WDV3-L
海康摄像机2:CD-2CD3210D-I5
效果如下图所示:
通用的单元代码如下:
unit HKdevelopU;
interface
uses
System.Types, System.SysUtils, System.Classes, Vcl.Dialogs, math,
HCNetSDK, plaympeg4, Vcl.Imaging.jpeg, acImage;
//连接摄像机,返回
procedure connectCamera(username:String;pw:String;port:String;ip:String;channelNb:String;pPT:LongInt;var lRealHandle: Longint; var lUserID: Longint);
//停止并退出
procedure stopCamera(lRealHandle: Longint; lUserID: Longint);
//阻塞抓图且数据存放在缓冲区中
procedure CapturePicture(mode:DWORD; lRealHandle: Longint; img:TsImage);
//阻塞抓图且以JPEG方式存放在缓冲区中,img为显示图像的控件
procedure CutJpegCate(lUserID:Longint; chanLong:Longint; img:TsImage);
implementation
var
//g_nPort: longint;
{---------------------------------------------------
setDeviceInfo: NET_DVR_DEVICEINFO_V40; //设备配置参数
pLoginInfo: NET_DVR_USER_LOGIN_INFO; //登录用户参数
setPreviewInfo: NET_DVR_PREVIEWINFO; //V4.0用于如何预览视频的参数
注意:以上三个变量皆是记录类型,非记录指针类型,无需要向系统申请内在的new操作,也无需要释放内存的Dispose操作
所以
setPreviewInfo := new(LPNET_DVR_PREVIEWINFO);
Dispose(setPreviewInfo);
是不必要的。
----------------------------------------------------}
setDeviceInfo: NET_DVR_DEVICEINFO_V40; //设备配置参数
pLoginInfo: NET_DVR_USER_LOGIN_INFO; //登录用户参数
//参数用于打开DVR视频的实时数据流
pUser: Pointer; //用户资料
dwRet : integer; //错误代码
setPreviewInfo: NET_DVR_PREVIEWINFO; //V4.0用于如何预览视频的参数
procedure connectCamera(username:String; //登录用户名
pw:String; //密码
port:String; //端口号
ip:String; //摄像机IP
channelNb:String; //通道号
pPT:LongInt; //显示图像的面版句柄
var lRealHandle: Longint; //实时数据流句柄
var lUserID: Longint //登录DVR服务器时的用户ID
);
var
PC:AnsiString;
len:Integer;
begin
dwRet := 1;
//对参数赋初值
lUserID := -2;
try
//PC:AnsiString;对记录类型(非记录指针类型)参数进行初始化的第一种写法
PC :=AnsiString(username);
len := min(Length(PC), NET_DVR_LOGIN_USERNAME_MAX_LEN);
System.Move(PC[1], pLoginInfo.sUserName, len);
PC :=AnsiString(pw);
len := min(Length(PC), NET_DVR_LOGIN_PASSWD_MAX_LEN);
System.Move(PC[1], pLoginInfo.sPassword, len);
PC :=AnsiString(ip);
len := min(Length(PC), NET_DVR_DEV_ADDRESS_MAX_LEN);
System.Move(PC[1], pLoginInfo.sDeviceAddress, len);
{//PC:PChar;这是对记录类型(非记录指针类型)参数进行初始化的第二种写法,也可行
PC:=PChar(username);
for I := 0 to Length(username) - 1 do
begin
pLoginInfo.sUserName[I] := AnsiChar(PC[I]);
end;
PC:=PChar(pw);
for I := 0 to Length(pw) - 1 do
begin
pLoginInfo.sPassword[I] := AnsiChar(PC[I]);
end;
PC:=PChar(ip);
for I := 0 to Length(ip) - 1 do
begin
pLoginInfo.sDeviceAddress[I] := AnsiChar(PC[I]);
end; }
pLoginInfo.wPort := StrtoInt(port);
pLoginInfo.bUseAsynLogin := False;//同步登录方式
//1.视频播放前的初始化;
NET_DVR_Init();
//设置连接时间与重连时间
NET_DVR_SetConnectTime(2000, 1);
NET_DVR_SetReconnect(10000, true);
//2.登录
lUserID := NET_DVR_Login_V40(@pLoginInfo, @setDeviceInfo);
finally
//Dispose(pLoginInfo);
//Dispose(setDeviceInfo);
end;
dwRet := NET_DVR_GetLastError();
if (lUserID < 0)then
begin
showmessage('登录失败,错误代码为: '+dwRet.ToString);
NET_DVR_Cleanup();
end;
try
//setPreviewInfo := new(LPNET_DVR_PREVIEWINFO);
setPreviewInfo.lChannel := StrtoInt(channelNb); //通道号.
setPreviewInfo.dwLinkMode := 0; //TCP
setPreviewInfo.byPreviewMode := 0; //延迟预览模式:0- 正常预览,1- 延迟预览
setPreviewInfo.dwStreamType := 0; //0-主码流,1-子码流,2-码流3,3-码流4,以此类推
setPreviewInfo.dwLinkMode := 0; //0- TCP方式,1- UDP方式,2- 多播方式,3- RTP方式,4-RTP/RTSP,5-RSTP/HTTP
setPreviewInfo.bBlocked := 1; //0- 非阻塞取流(用于线程中),1- 阻塞取流(用于非线程中)
setPreviewInfo.hPlayWnd := pPT; // 0; //设置窗体中播放视频的窗口。
//3.播放
//3.1按窗口句柄播放
lRealHandle := NET_DVR_RealPlay_V40(lUserID, @setPreviewInfo, nil, pUser); //@testRealDataCallBack_V30,}
dwRet := NET_DVR_GetLastError();
if dwRet<>0 then
showmessage('获取数据流句柄失败,错误代码为: '+dwRet.ToString);
finally
//Dispose(setPreviewInfo);
end;
if lRealHandle>=0 then
begin
var p:longint;
p := NET_DVR_GetRealPlayerIndex(lRealHandle);//获取预览时用来解码和显示的播放器句
PlayM4_RenderPrivateData(p, 2, false);//取消移动侦测。
end
else
begin
ShowMessage('预览出错!');
NET_DVR_Logout(lUserID);
NET_DVR_Cleanup();
end;
end;
procedure stopCamera(lRealHandle: Longint;lUserID: Longint);
begin
//停止播放
if lRealHandle>=0 then
begin
NET_DVR_StopRealPlay(lRealHandle);
lRealHandle := -1;
end;
//退出登录
if lUserID>=0 then
begin
NET_DVR_Logout(lUserID);
lUserID := -1;
end;
//释放SDK资源
NET_DVR_Cleanup();
{PlayM4_CloseStream(g_nPort);
PlayM4_FreePort(g_nPort);}
end;
procedure CapturePicture(mode:DWORD; lRealHandle: Longint; img:TsImage);
var
actualSize:DWORD;//得到图像的实际尺寸
resolution:DWORD;//得到图像的分辨率
picS:Pansichar;
mStream : TMemoryStream;
jpg:tjpegimage;
begin
if lRealHandle>=0 then
begin
try
if lRealHandle>=0 then
begin
resolution:=2560 * 1440*4+54; //2560*1440会出错,出错代码:534,如果换成2560*1440*4+54就对,奇怪?
GetMem(picS, resolution);
if not NET_DVR_SetCapturePictureMode(mode) then//mode:BMP_MODE = 0,JPEG_MODE = 1
ShowMessage('设置图片格式失败!错误代码如下:'+NET_DVR_GetLastError.ToString);
NET_DVR_CapturePictureBlock_New(lRealHandle, picS, resolution, @actualSize);
if NET_DVR_GetLastError<>0 then
ShowMessage('抓图失败!错误代码如下:'+NET_DVR_GetLastError.ToString)
else
begin
try
mStream:=TMemoryStream.Create;
mStream.Position:=0;
mStream.Write(picS^, actualSize);//这一句也可以写成mStream.Write(Stream[1], actualSize);
//mStream.SaveToFile('aaa.jpg');
mStream.Position:=0;
jpg := tjpegimage.Create;
jpg.LoadFromStream(mStream);
img.Picture.Assign(jpg);
finally
mStream.Free;
jpg.Free;
end;
//showmessage('抓图成功!');
end;
end
finally
FreeMem(picS);
end;
end
else
begin
showmessage('摄像机没有在工作状态。');
end;
end;
procedure CutJpegCate(lUserID:Longint; chanLong:Longint; img:TsImage);
var
jpeg:LPNET_DVR_JPEGPARA;
jpg:tjpegimage;
Stream:PAnsiChar;
mStream : TMemoryStream;
actualSize:DWORD;//得到图像的实际尺寸
resolution:DWORD;//得到图像的分辨率
struCompreCfgAbl:NET_DVR_COMPRESSIONCFG_ABILITY;
i,j,k:integer;
begin
try
//NET_DVR_CaptureJPEGPicture(lUserID, chanLong, jpeg, PAnsiChar(ansistring(imgPath)));exit; 这个是能成功的
//获取设备能力集
if NET_DVR_GetDeviceAbility(lUserID,PIC_CAPTURE_ABILITY,@chanLong,4,@struCompreCfgAbl,sizeof(struCompreCfgAbl)) then //SizeOf(NET_DVR_COMPRESSIONCFG_ABILITY)
begin
for i:= 0 to struCompreCfgAbl.dwAbilityNum-1 do
begin
showmessage(struCompreCfgAbl.struAbilityNode[i].dwAbilityType.ToString);
for j:=0 to struCompreCfgAbl.struAbilityNode[i].dwNodeNum-1 do
begin
showmessage(struCompreCfgAbl.struAbilityNode[i].struDescNode[j].iValue.ToString);
//showmessage(struCompreCfgAbl.struAbilityNode[i].struDescNode[j].byDescribe)
end;
end;
end
else
begin
showmessage('获取设置能力参数出现错误。错误代码:'+NET_DVR_GetLastError.ToString+#13+'系统将以默认方式设置图片分辨率。');
resolution:=800*600
end;
exit;
resolution:=2560 * 1440;
jpeg:=new(LPNET_DVR_JPEGPARA);
jpeg.wPicSize:=4;
jpeg.wPicQuality:=0;
actualSize:=0;
GetMem(Stream,resolution);
NET_DVR_CaptureJPEGPicture_NEW(lUserID, chanLong, jpeg, Stream, resolution, @actualSize);
dwRet:=NET_DVR_GetLastError;
if dwRet>0 then
begin
showmessage('抓图失败,错误代码:'+dwRet.ToString);
end
else
begin
try
//showmessage('取到图片了:'+actualSize.ToString+'('+StrBufSize(Stream).ToString+')'+dwRet.ToString);
mStream:=TMemoryStream.Create;
mStream.Position:=0;
mStream.Write(Stream^, actualSize);//这一句也可以写成mStream.Write(Stream[1], actualSize);
//mStream.SaveToFile('aaa.jpg');可以直接将之保存为图片文件
mStream.Position:=0;
jpg := tjpegimage.Create;
jpg.LoadFromStream(mStream);
img.Picture.Assign(jpg);
//jpg.SaveToFile(imgPath);
finally
mStream.Free;
jpg.Free;
end;
end
finally
Dispose(jpeg);
FreeMem(Stream);
end;
end;
end.
以上代码有群友说是有问题的,个人能力有限,只能做个DEMO让大家参考,起个抛砖引玉的作用。欢迎各位大神批评指正这里面的错误和不足。
由于互联网上关于Delphi方式对海康进行二次开发的文章非常少,所以这一次做的DEMO参考了很多其它语言的DEMO、也有很多的QQ群友提供了帮忙,在此感谢“老刘正忙”、“肥牛”、“广西-神泪”、“myy”、“trap”等群友的帮助。
文章浏览阅读3.2k次。本文研究全球与中国市场分布式光纤传感器的发展现状及未来发展趋势,分别从生产和消费的角度分析分布式光纤传感器的主要生产地区、主要消费地区以及主要的生产商。重点分析全球与中国市场的主要厂商产品特点、产品规格、不同规格产品的价格、产量、产值及全球和中国市场主要生产商的市场份额。主要生产商包括:FISO TechnologiesBrugg KabelSensor HighwayOmnisensAFL GlobalQinetiQ GroupLockheed MartinOSENSA Innovati_预计2026年中国分布式传感器市场规模有多大
文章浏览阅读1.1k次,点赞2次,收藏12次。常用组合逻辑电路结构——为IC设计的延时估计铺垫学习目的:估计模块间的delay,确保写的代码的timing 综合能给到多少HZ,以满足需求!_基4布斯算法代码
文章浏览阅读3.3k次,点赞3次,收藏5次。OpenAI Manager助手(基于SpringBoot和Vue)_chatgpt网页版
文章浏览阅读2.2k次。USACO自1992年举办,到目前为止已经举办了27届,目的是为了帮助美国信息学国家队选拔IOI的队员,目前逐渐发展为全球热门的线上赛事,成为美国大学申请条件下,含金量相当高的官方竞赛。USACO的比赛成绩可以助力计算机专业留学,越来越多的学生进入了康奈尔,麻省理工,普林斯顿,哈佛和耶鲁等大学,这些同学的共同点是他们都参加了美国计算机科学竞赛(USACO),并且取得过非常好的成绩。适合参赛人群USACO适合国内在读学生有意向申请美国大学的或者想锻炼自己编程能力的同学,高三学生也可以参加12月的第_usaco可以多次提交吗
文章浏览阅读394次。1.1 存储程序1.2 创建存储过程1.3 创建自定义函数1.3.1 示例1.4 自定义函数和存储过程的区别1.5 变量的使用1.6 定义条件和处理程序1.6.1 定义条件1.6.1.1 示例1.6.2 定义处理程序1.6.2.1 示例1.7 光标的使用1.7.1 声明光标1.7.2 打开光标1.7.3 使用光标1.7.4 关闭光标1.8 流程控制的使用1.8.1 IF语句1.8.2 CASE语句1.8.3 LOOP语句1.8.4 LEAVE语句1.8.5 ITERATE语句1.8.6 REPEAT语句。_mysql自定义函数和存储过程
文章浏览阅读188次。半导体二极管——集成电路最小组成单元。_本征半导体电流为0
文章浏览阅读2.8k次,点赞3次,收藏18次。游戏水面特效实现方式太多。咱们这边介绍的是一最简单的UV动画(无顶点位移),整个mesh由4个顶点构成。实现了水面效果(左图),不动代码稍微修改下参数和贴图可以实现岩浆效果(右图)。有要思路是1,uv按时间去做正弦波移动2,在1的基础上加个凹凸图混合uv3,在1、2的基础上加个水流方向4,加上对雾效的支持,如没必要请自行删除雾效代码(把包含fog的几行代码删除)S..._unity 岩浆shader
文章浏览阅读5k次。广义线性模型是线性模型的扩展,它通过连接函数建立响应变量的数学期望值与线性组合的预测变量之间的关系。广义线性模型拟合的形式为:其中g(μY)是条件均值的函数(称为连接函数)。另外,你可放松Y为正态分布的假设,改为Y 服从指数分布族中的一种分布即可。设定好连接函数和概率分布后,便可以通过最大似然估计的多次迭代推导出各参数值。在大部分情况下,线性模型就可以通过一系列连续型或类别型预测变量来预测正态分布的响应变量的工作。但是,有时候我们要进行非正态因变量的分析,例如:(1)类别型.._广义线性回归模型
文章浏览阅读69次。环境保护、 保护地球、 校园环保、垃圾分类、绿色家园、等网站的设计与制作。 总结了一些学生网页制作的经验:一般的网页需要融入以下知识点:div+css布局、浮动、定位、高级css、表格、表单及验证、js轮播图、音频 视频 Flash的应用、ul li、下拉导航栏、鼠标划过效果等知识点,网页的风格主题也很全面:如爱好、风景、校园、美食、动漫、游戏、咖啡、音乐、家乡、电影、名人、商城以及个人主页等主题,学生、新手可参考下方页面的布局和设计和HTML源码(有用点赞△) 一套A+的网_垃圾分类网页设计目标怎么写
文章浏览阅读614次,点赞7次,收藏11次。之前找到一个修改 exe 中 DLL地址 的方法, 不太好使,虽然能正确启动, 但无法改变 exe 的工作目录,这就影响了.Net 中很多获取 exe 执行目录来拼接的地址 ( 相对路径 ),比如 wwwroot 和 代码中相对目录还有一些复制到目录的普通文件 等等,它们的地址都会指向原来 exe 的目录, 而不是自定义的 “lib” 目录,根本原因就是没有修改 exe 的工作目录这次来搞一个启动程序,把 .net 的所有东西都放在一个文件夹,在文件夹同级的目录制作一个 exe._.net dll 全局目录
文章浏览阅读1.5k次。本文为转载,原博客地址:http://blog.csdn.net/hujingshuang/article/details/46910259简介 BRIEF是2010年的一篇名为《BRIEF:Binary Robust Independent Elementary Features》的文章中提出,BRIEF是对已检测到的特征点进行描述,它是一种二进制编码的描述子,摈弃了利用区域灰度..._breif description calculation 特征点
文章浏览阅读4.1k次,点赞21次,收藏79次。本文是《基于SpringBoot的房屋租赁管理系统》的配套原创说明文档,可以给应届毕业生提供格式撰写参考,也可以给开发类似系统的朋友们提供功能业务设计思路。_基于spring boot的房屋租赁系统论文