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
Delphi XE10编写的《海康摄像机SDK测试DEMO》
最新推荐文章于 2024-05-03 23:32:57 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)