C++ To Delphi,该如何解决

2013-01-01

C++ To Delphitypedef bool (__stdcall *fMessCallBack)(long lLoginID, char *pBuf,unsigned long dwBufL

C++ To Delphi


typedef bool (__stdcall *fMessCallBack)(long lLoginID, char *pBuf,unsigned long dwBufLen, long dwUser);
H264_DVR_API bool H264_DVR_SetDVRMessCallBack(fMessCallBack cbAlarmcallback, unsigned long lUser);

请问这个用Delphi 怎么写？
[解决办法]
function MyfMessCallBack(lLoginID: integer; pBuf: PChar; dwBufLen: integer; dwUser: integer): Boolean;
begin
  Result := True;
  //do something
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lUser: integer;
begin
  H264_DVR_SetDVRMessCallBack(@MyfMessCallBack, lUser);
end;