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; st...
摘要由CSDN通过智能技术生成
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
  • 3
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Devin.Lee

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值