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

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(ansist