Bdtjtk

I cannot connect to hikvison camera, NET_DVR_Login_V30 returns -1, and NET_DVR_GetLastError returns 7:
"NET_DVR_NETWORK_FAIL_CONNECT - Connecting device failed. Device offline or network connection timed out."

Camera is 100% online and configured, I can successfully connect using ClientDemo.exe!

In wireshark I see that it don't even try to connect.

type

  LPNET_DVR_DEVICEINFO_V30 = ^NET_DVR_DEVICEINFO_V30;



  NET_DVR_DEVICEINFO_V30 = Record

    sSerialNumber: array [0 .. 47] of BYTE;

    byAlarmInPortNum: BYTE;

    byAlarmOutPortNum: BYTE;

    byDiskNum: BYTE;

    byDVRType: BYTE;

    byChanNum: BYTE;

    byStartChan: BYTE;

    byAudioChanNum: BYTE;

    byIPChanNum: BYTE;

    byZeroChanNum: BYTE;

    byMainProto: BYTE;

    bySubProto: BYTE;

    bySupport: BYTE;

    bySupport1: BYTE;

    byRes1: BYTE;

    wDevType: Word;

    byRes2: array [0 .. 15] of BYTE;

  end;



  (...)



var

  Form1: TForm1;

  ErrorValues: LongWord;

  lUserID: LONG;

  struDeviceInfo: NET_DVR_DEVICEINFO_V30;

  DVRIP, DVRUserName, DVRPassWord: String;





function NET_DVR_Init(): boolean; stdcall;

  external 'HCNetSDK.dll' name 'NET_DVR_Init';



function NET_DVR_Cleanup(): boolean; stdcall;

  external 'HCNetSDK.dll' name 'NET_DVR_Cleanup';



function NET_DVR_SetConnectTime(dwWaitTime, dwTryTimes: DWORD): boolean;

  stdcall; external 'HCNetSDK.dll' name 'NET_DVR_SetConnectTime';



function NET_DVR_SetReconnect(dwInterval: DWORD; bEnableRecon: boolean)

  : boolean; stdcall; external 'HCNetSDK.dll' name 'NET_DVR_SetReconnect';



function NET_DVR_GetLastError(): LongWord; stdcall;

  external 'HCNetSDK.dll' name 'NET_DVR_GetLastError';



function NET_DVR_Login_V30(sDVRIP: PChar; wDVRPort: Word; sUserName: PChar;

  sPassword: PChar; lpDeviceInfo: LPNET_DVR_DEVICEINFO_V30): LONG; stdcall;

  external 'HCNetSDK.dll' name 'NET_DVR_Login_V30';



function NET_DVR_Logout_V30(lUserID: LONG): boolean; stdcall;

  external 'HCNetSDK.dll' name 'NET_DVR_Logout_V30';





implementation



{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);

begin

  DVRIP := 'xxx.xxx.xxx.xxx';

  DVRUserName := 'demo';

  DVRPassWord := '12345';



  NET_DVR_Init();



  NET_DVR_SetConnectTime(2000, 1);

  NET_DVR_SetReconnect(10000, true);



  lUserID := NET_DVR_Login_V30(PChar(DVRIP), 8000, PChar(DVRUserName),

    PChar(DVRPassWord), @struDeviceInfo);

  Memo1.Lines.Add('lUserID:' + inttostr(lUserID));



  ErrorValues := NET_DVR_GetLastError();

  Memo1.Lines.Add('ErrorValues:' + inttostr(ErrorValues));



  NET_DVR_Logout_V30(lUserID);

  NET_DVR_Cleanup();



end;

Regards

To make it work the original code need 2 fixes:

1. Correct variable declarations from String to AnsiString

2. Pass strings to dll as PAnsiChar (as G Wimpassinger pointed)

DVRIP, DVRUserName, DVRPassWord: AnsiString;

...



function NET_DVR_Login_V30(sDVRIP: PAnsiChar; wDVRPort: Word; sUserName: PAnsiChar;

  sPassword: PAnsiChar; lpDeviceInfo: LPNET_DVR_DEVICEINFO_V30): LONG; stdcall;

  external 'HCNetSDK.dll' name 'NET_DVR_Login_V30';

...



lUserID := NET_DVR_Login_V30(PAnsiChar(DVRIP), 8000, PAnsiChar(DVRUserName),

  PAnsiChar(DVRPassWord), @struDeviceInfo);