delphi如何表示BOOL NET_DVR_SetDVRMessCallBack(BOOL (CALLBACK *fMessCallBack)(在线等

Question

BOOL NET_DVR_SetDVRMessCallBack(BOOL (CALLBACK *fMessCallBack)(LONGlCommand,char *sDVRIP,char *pBuf,DWORD dwBufLen))
功能：设置接收硬盘录像机消息的回调函数（以IP 地址区分设备）
参数说明：
fMessCallBack：消息回调函数，像硬盘录像机主动发起的请求；以及通过报警上传通道收到的
报警信息，都通过此函数回调。
lCommand：消息的类型，定义如下：
#define COMM_ALARM 0x1100 //上传报警信息
#define COMM_TRADEINFO 0x1500 //ATMDVR 上传交易信息
sDVRIP：服务器的IP 地址
pBuf：存放信息的缓冲区，不同的类型分别指向不同的结构
dwBufLen：缓冲区的大小
返回值：TRUE 表示成功，FALSE 表示失败。
请教真高手老师如何实现DELPHI表示，在线等

Answer 1

function NET_DVR_SetDVRMessCallBack(Tfun fMessCallBack):boolean;需要先定义回调函数指针的类型：
type
  Tfun=function (longint command;Pchar pBuf;DWord dwBufLen):boolean;

Answer 2

哦，还漏了一个参数：pchar sDVRIP

Answer 3

function NET_DVR_SetDVRMessCallBack(Tfun fMessCallBack):integer;需要先定义回调函数指针的类型：
type
  Tfun=function (command:longint;sDVRIP:pchar;pBuf:pchar;dwBufLen:longint):integer;