一直对海康摄像机的二次开发感兴趣，之前用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)

盒子论坛 v2.1

海康摄像机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”等群友的帮助。