一直对海康摄像机的二次开发感兴趣，之前用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”等群友的帮助。
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
