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

typeTShowStr=recordX:Word;Y:Word;S:array[0..43]ofAnsiChar;end;typeTCamera=recordpHWND:HWND;strictprivateaCam:LongInt;g_nPort:LongInt;struDeviceInfo:NET_DVR_DEVICEINFO_V30;lRealHandle:LongInt;struPlayInfo:NET_DVR_CLIENTINFO;pUser:Pointer;dwRet:I