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); procedure HCAddChar_V30(str: TArray); 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, PAnsiChar(ansistring(User)), PAnsiChar(ansistring(Psd)), @struDeviceInfo); dwRet := NET_DVR_GetLastError; end; procedure TCamera.HCPlay(aHWND: HWND); begin struPlayInfo.lChannel := 1; struPlayInfo.lLinkMode := 0; struPlayInfo.sMultiCastIP := NIL; struPlayInfo.hPlayWnd := aHWND; lRealHandle := NET_DVR_RealPlay_V30(aCam, @struPlayInfo, nil, pUser, true); dwRet := NET_DVR_GetLastError; end; procedure TCamera.HCAddChar(str: TArray); var i: Integer; aStr: NET_DVR_SHOWSTRING; begin if length(str) > MAX_STRINGNUM then begin setlength(str, MAX_STRINGNUM); end; for i := 0 to length(str) - 1 do begin aStr.struStringInfo[i].wShowString := 1; aStr.struStringInfo[i].wStringSize := length(str[i].S); aStr.struStringInfo[i].wShowStringTopLeftX := str[i].X; aStr.struStringInfo[i].wShowStringTopLeftY := str[i].Y; move(str[i].S[0], aStr.struStringInfo[i].sString[0], length(str[i].S)); end; aStr.dwSize := sizeof(aStr); NET_DVR_SetDVRConfig(aCam, NET_DVR_SET_SHOWSTRING, 1, @aStr, siz
【实例截图】
【核心代码】
4744302543386559914.rar
└── HCDEMO
├── hcdemo.dpr
├── hcdemo.dproj
├── hcdemo.dproj.local
├── hcdemo.identcache
├── hcdemo.res
├── hcdemo.stat
├── HCSDK.pas
├── logo.ico
├── main.dfm
├── main.pas
└── Win32
└── Debug
├── AudioRender.dll
├── gdiplus.dll
├── HCCore.dll
├── hcdemo.exe
├── HCNetSDKCom
│   ├── AnalyzeData.dll
│   ├── AudioIntercom.dll
│   ├── DsSdk.dll
│   ├── HCAlarm.dll
│   ├── HCAlarm.lib
│   ├── HCCoreDevCfg.dll
│   ├── HCDisplay.dll
│   ├── HCGeneralCfgMgr.dll
│   ├── HCGeneralCfgMgr.lib
│   ├── HCIndustry.dll
│   ├── HCPlayBack.dll
│   ├── HCPreview.dll
│   ├── HCPreview.lib
│   ├── HCVoiceTalk.dll
│   ├── libeay32.dll
│   ├── libiconv2.dll
│   ├── msvcr90.dll
│   ├── OpenAL32.dll
│   ├── ssleay32.dll
│   ├── StreamTransClient.dll
│   └── SystemTransform.dll
├── HCNetSDK.dll
├── HCSDK.dcu
├── main.dcu
├── PlayCtrl.dll
└── SuperRender.dll

4 directories, 40 files