C++ para Delphi (Pascal)
Escrito em c++
typedef void(CALLBACK *fRemoteConfigCallback)(DWORD dwType, void* lpBuffer, DWORD dwBufLen, void* pUserData);
NET_DVR_API LONG __stdcall NET_DVR_StartRemoteConfig(LONG lUserID, DWORD dwCommand, LPVOID lpInBuffer, DWORD dwInBufferLen, fRemoteConfigCallback cbStateCallback, LPVOID pUserData);
Pessoal, me ajudem!!! Preciso transformar isto para rodar no Delphi
Eu fiz algo assim:
Type
LPVOID = Pointer;
....
TRemoteConfigCallback = procedure(dwType:Integer; lpBuffer: LPVOID; dwBufLen: Integer; pUserData: LPVOID);stdcall;
function NET_DVR_StartRemoteConfig(lUserID: Longint; dwCommand: Integer; lpInBuffer: LPVOID; dwInBufferLen: Integer; cbStateCallback: TRemoteConfigCallback; pUserData: LPVOID): LongInt; stdcall; external 'HCNetSDK.dll' name 'NET_DVR_StartRemoteConfig';
Declarei o LPVOID para Pointer para facilitar o entendimento.
Agradeço
typedef void(CALLBACK *fRemoteConfigCallback)(DWORD dwType, void* lpBuffer, DWORD dwBufLen, void* pUserData);
NET_DVR_API LONG __stdcall NET_DVR_StartRemoteConfig(LONG lUserID, DWORD dwCommand, LPVOID lpInBuffer, DWORD dwInBufferLen, fRemoteConfigCallback cbStateCallback, LPVOID pUserData);
Pessoal, me ajudem!!! Preciso transformar isto para rodar no Delphi
Eu fiz algo assim:
Type
LPVOID = Pointer;
....
TRemoteConfigCallback = procedure(dwType:Integer; lpBuffer: LPVOID; dwBufLen: Integer; pUserData: LPVOID);stdcall;
function NET_DVR_StartRemoteConfig(lUserID: Longint; dwCommand: Integer; lpInBuffer: LPVOID; dwInBufferLen: Integer; cbStateCallback: TRemoteConfigCallback; pUserData: LPVOID): LongInt; stdcall; external 'HCNetSDK.dll' name 'NET_DVR_StartRemoteConfig';
Declarei o LPVOID para Pointer para facilitar o entendimento.
Agradeço
Paulo Fonseca
Curtidas 0