Código Delphi [-] fDisConnect = procedure(lLoginID: LONGLONG; pchDVRIP: PCHAR; nDVRPort: DWORD; dwUser: LONGLONG); stdcall; function CLIENT_Init( cbDisConnect: fDisConnect; dwUser:LongWord): bool; stdcall; External 'dhnetsdk' name 'CLIENT_Init';
fDisConnect = procedure(lLoginID: LONGLONG; pchDVRIP: PCHAR; nDVRPort: DWORD; dwUser: LONGLONG); stdcall; function CLIENT_Init( cbDisConnect: fDisConnect; dwUser:LongWord): bool; stdcall; External 'dhnetsdk' name 'CLIENT_Init';