VC声明的结构如何转换为Delphi的

Question

typedef void(__stdcall *CallBackFunc)(const BUSDATAIDENT stDataIdent,  const int iLen,  const  BYTE*  pbyData);
//注册信息结构定义
typedef struct RegInfo{
int iSlotGroupNo; //
int iSlotNum; //
SLOT arSlotGroup[MAX_SLOT_NUM]; //
CallBackFunc OnRecvData; //回调函数
REGINFO;
如何把上面的结构转换为Delphi实现？请高手指点

Answer 1

type
　　　　TCallBackFunc = procedure( stDataIdent: BUSDATAIDENT;  const iLen: integer;  const  pbyData: pchar);stdcall;RegInfo = record   
    iSlotGroupNo: integer ; // 
    iSlotNum: integer ; // 
    arSlotGroup: array[0..MAX_SLOT_NUM-1] of SLOT; // 
    OnRecvData: TCallBackFunc  
end;

Answer 2

type 
　　　　TCallBackFunc = procedure( stDataIdent: BUSDATAIDENT;  const iLen: integer;  const  pbyData: array of shortint);stdcall; 

Answer 3

结果是正确的，不过OnRecvData: TCallBackFunc 这个函数该如何赋值呢？

Answer 4

定义一个函数，形式大概如下：
procedure myFunc(stDataIdent: BUSDATAIDENT; const iLen: integer; const pbyData: pchar);stdcall; 
begin
...
end;然后将 @myfunc 这个名字代入 RegInfo 结构的 OnRecvData 成员即可。