回调函数使用DELPHI

Question

BOOL NET_DVR_SetDVRMessCallBack(BOOL (CALLBACK *fMessCallBack)(LONG
lCommand,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

参考
http://xieyunc.blog.163.com/blog/static/1363060120074232135421/

Answer 2

数据类型参考char ---- 1 -128 to 127
---- char 1 1 ASCII character
int integer 2 -32,768 to 32,767
short ---- 2 -32,768 to 32,767
---- shortint 1 -128 to 127
long longint 4 -2,147,483,647 to 2,147,483,647
unsigned char byte 1 0 to 255
unsigned int word 2 0 to 65,535
unsigned short word 2 0 to 65,535
unsigned long ---- 4 0 to 4,294,967,295float single 4 3.4E-38 TO 3.4E+38
double double 8 1.7E-308 TO 1.7E+308
long double extended 10 3.4E-4932 TO 3.4E+4932
---- comp 8 1.7E-308 TO 1.7E+308
---- real (for backwards compatibility only -- use double)void pointer 8 n/a -- an untyped pointer
---- boolean 1 True or False
(C++ may soon have a boolean type)
String ---- a C++ standard object
---- string an array of up to 255 ASCII characters
---- PChar pointer to a null-terminated string

Answer 3

type
  TMessCallBack = function of (lCommand: LongInt; sDVRIP, pBuf: PChar; dwBufLen: DWORD); stdcall;  //上面是回调函数类型的声明  function NET_DVR_SetDVRMessCallBack(fMessCallBack: TMessCallBack): Boolean; stdcall;

Answer 4

你这是海康的DVR啊，去年到现在也一直在弄海康的DVR