技术标签: 开发语言
一直对海康摄像机的二次开发感兴趣,之前用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”等群友的帮助。
文章浏览阅读1k次。通过使用ajax方法跨域请求是浏览器所不允许的,浏览器出于安全考虑是禁止的。警告信息如下:不过jQuery对跨域问题也有解决方案,使用jsonp的方式解决,方法如下:$.ajax({ async:false, url: 'http://www.mysite.com/demo.do', // 跨域URL ty..._nginx不停的xhr
文章浏览阅读2k次。关于在 Oracle 中配置 extproc 以访问 ST_Geometry,也就是我们所说的 使用空间SQL 的方法,官方文档链接如下。http://desktop.arcgis.com/zh-cn/arcmap/latest/manage-data/gdbs-in-oracle/configure-oracle-extproc.htm其实简单总结一下,主要就分为以下几个步骤。..._extproc
文章浏览阅读1.5w次。linux下没有上面的两个函数,需要使用函数 mbstowcs和wcstombsmbstowcs将多字节编码转换为宽字节编码wcstombs将宽字节编码转换为多字节编码这两个函数,转换过程中受到系统编码类型的影响,需要通过设置来设定转换前和转换后的编码类型。通过函数setlocale进行系统编码的设置。linux下输入命名locale -a查看系统支持的编码_linux c++ gbk->utf8
文章浏览阅读750次。今天准备从生产库向测试库进行数据导入,结果在imp导入的时候遇到“ IMP-00009:导出文件异常结束” 错误,google一下,发现可能有如下原因导致imp的数据太大,没有写buffer和commit两个数据库字符集不同从低版本exp的dmp文件,向高版本imp导出的dmp文件出错传输dmp文件时,文件损坏解决办法:imp时指定..._imp-00009导出文件异常结束
文章浏览阅读143次。当下是一个大数据的时代,各个行业都离不开数据的支持。因此,网络爬虫就应运而生。网络爬虫当下最为火热的是Python,Python开发爬虫相对简单,而且功能库相当完善,力压众多开发语言。本次教程我们爬取前程无忧的招聘信息来分析Python程序员需要掌握那些编程技术。首先在谷歌浏览器打开前程无忧的首页,按F12打开浏览器的开发者工具。浏览器开发者工具是用于捕捉网站的请求信息,通过分析请求信息可以了解请..._初级python程序员能力要求
文章浏览阅读7.6k次,点赞2次,收藏6次。@Service标注的bean,类名:ABDemoService查看源码后发现,原来是经过一个特殊处理:当类的名字是以两个或以上的大写字母开头的话,bean的名字会与类名保持一致public class AnnotationBeanNameGenerator implements BeanNameGenerator { private static final String C..._@service beanname
文章浏览阅读6.9w次,点赞73次,收藏463次。1.前序创建#include<stdio.h>#include<string.h>#include<stdlib.h>#include<malloc.h>#include<iostream>#include<stack>#include<queue>using namespace std;typed_二叉树的建立
文章浏览阅读7.1k次。在Asp.net上使用Excel导出功能,如果文件名出现中文,便会以乱码视之。 解决方法: fileName = HttpUtility.UrlEncode(fileName, System.Text.Encoding.UTF8);_asp.net utf8 导出中文字符乱码
文章浏览阅读2.1k次,点赞4次,收藏23次。第一次实验 词法分析实验报告设计思想词法分析的主要任务是根据文法的词汇表以及对应约定的编码进行一定的识别,找出文件中所有的合法的单词,并给出一定的信息作为最后的结果,用于后续语法分析程序的使用;本实验针对 PL/0 语言 的文法、词汇表编写一个词法分析程序,对于每个单词根据词汇表输出: (单词种类, 单词的值) 二元对。词汇表:种别编码单词符号助记符0beginb..._对pl/0作以下修改扩充。增加单词
文章浏览阅读773次。我在使用adb.exe时遇到了麻烦.我想使用与bash相同的adb.exe shell提示符,所以我决定更改默认的bash二进制文件(当然二进制文件是交叉编译的,一切都很完美)更改bash二进制文件遵循以下顺序> adb remount> adb push bash / system / bin /> adb shell> cd / system / bin> chm..._adb shell mv 权限
文章浏览阅读6.8k次,点赞12次,收藏125次。1. 单目相机标定引言相机标定已经研究多年,标定的算法可以分为基于摄影测量的标定和自标定。其中,应用最为广泛的还是张正友标定法。这是一种简单灵活、高鲁棒性、低成本的相机标定算法。仅需要一台相机和一块平面标定板构建相机标定系统,在标定过程中,相机拍摄多个角度下(至少两个角度,推荐10~20个角度)的标定板图像(相机和标定板都可以移动),即可对相机的内外参数进行标定。下面介绍张氏标定法(以下也这么称呼)的原理。原理相机模型和单应矩阵相机标定,就是对相机的内外参数进行计算的过程,从而得到物体到图像的投影_相机-投影仪标定
文章浏览阅读2.2k次。文章目录Wayland 架构Wayland 渲染Wayland的 硬件支持简 述: 翻译一篇关于和 wayland 有关的技术文章, 其英文标题为Wayland Architecture .Wayland 架构若是想要更好的理解 Wayland 架构及其与 X (X11 or X Window System) 结构;一种很好的方法是将事件从输入设备就开始跟踪, 查看期间所有的屏幕上出现的变化。这就是我们现在对 X 的理解。 内核是从一个输入设备中获取一个事件,并通过 evdev 输入_wayland