Delphi XE10编写的《海康摄像机SDK测试DEMO》

最新推荐文章于 2025-11-04 14:05:51 发布

原创

最新推荐文章于 2025-11-04 14:05:51 发布 · 置顶 · 3.5k 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#海康 # 摄像机 # 录像机 # #SDK # DEMO

本文介绍了如何使用Delphi XE10编写一个DEMO来连接并操作海康摄像机，包括登录、播放、添加文字、获取JPEG图片和登出等关键步骤，通过NET_DVR_系列函数实现与SDK的交互。

type
  TShowStr = record
    X: Word;
    Y: Word;
    S: array [0 .. 43] of AnsiChar;
  end;

type
  TCamera = record
    pHWND: HWND;
  strict private
    aCam: LongInt;
    g_nPort: LongInt;
    struDeviceInfo: NET_DVR_DEVICEINFO_V30;
    lRealHandle: LongInt;
    struPlayInfo: NET_DVR_CLIENTINFO;
    pUser: Pointer;
    dwRet: Integer;
  public
    property ErrCode: Integer read dwRet;
    procedure HCLogin(IP, User, Psd: String; Port: Word);
    procedure HCPlay(aHWND: HWND);
    procedure HCAddChar(str: TArray<TShowStr>);
    procedure HCAddChar_V30(str: TArray<TShowStr>);
    function HCGetJpeg(JpgName: String; JpgSize: Word = 0;
      JpgQua: Word = 19): Boolean;
    procedure HCStop;
    procedure HCLogout;
  end;

{$ENDIF}

implementation

procedure TCamera.HCLogin(IP, User, Psd: String; Port: Word);
begin
  NET_DVR_Init();
  lRealHandle := -1;
  dwRet := 0;
  aCam := NET_DVR_Login_V30(PAnsiChar(ansistring(IP)), Port,
    PAnsiCh