在Delphi中调用VC动态库，回调函数如何定义

[darkeye]

一个VC的dll，需要在delphi调用，其中有个回调函数的参数，不知道该怎么写，请大家帮忙看看
先看VC的声明

1、回调函数
typedef long (__stdcall *VOX_CVSA_CALLBACK_OnReportSwitchVideoResult)(int nMonNo,int nCamNo,long nResult,
const char *errInfo, long lParam);
typedef long (__stdcall *VOX_CVSA_CALLBACK_OnReportVideoMapping)(int nMonNo,int nCamNo, long lParam);

2、回调函数结构体
struct CVSA_NOTIFY{
VOX_CVSA_CALLBACK_OnReportSwitchVideoResult OnReportSwitchVideoResult;
long lOnReportSwitchVideoResultParam;

VOX_CVSA_CALLBACK_OnReportVideoMapping OnReportVideoMapping;
long lOnReportVideoMappingParam;
};

3、动态库函数
CLIENT_VIDEO_SERV_API long __stdcall VOX_CVSA_SetNotify(long hInstance, struct CVSA_NOTIFY *pNotify);


下面是根据上面的部分改的Delphi代码
1、回调函数
VOX_CVSA_CALLBACK_OnReportSwitchVideoResult =
Function (nMonNo: Integer; nCamNo: Integer; nResult: Integer; errInfo: PChar; lParam: Integer): Integer;

VOX_CVSA_CALLBACK_OnReportVideoMapping =
Function (nMonNo : Integer; nCamNo: Integer; lParam: Integer): Integer;

2、回调函数结构体
PCVSA_NOTIFY = ^TCVSA_NOTIFY;
TCVSA_NOTIFY = Record
OnReportSwitchVideoResult: VOX_CVSA_CALLBACK_OnReportSwitchVideoResult;
lOnReportSwitchVideoResultParam: Integer;

OnReportVideoMapping: VOX_CVSA_CALLBACK_OnReportVideoMapping;
lOnReportVideoMappingParam: Integer;
end;

3、动态库函数
Function VOX_CVSA_SetNotify(hInstance: Integer; pNotify: PCVSA_NOTIFY): Integer; stdcall; external 'VoxCVSA_SDK.dll' ;

-----------------------------------------------------------------------------------------------------------------------
我的实现如下:

1、先声明一个测试类
TVoxImpl = class
private
FCVSA_NOTIFY : PCVSA_NOTIFY ;
Function VideoResult(nMonNo: Integer; nCamNo: Integer; nResult: Integer; errInfo: PChar; lParam: Integer): Integer;
Function VideoMapping(nMonNo : Integer; nCamNo: Integer; lParam: Integer): Integer;
public
Constructor Create;
end;

2、在Create中注册回调函数
Procedrue TVoxImpl.Create()
begin
New(FCVSA_NOTIFY);

FCVSA_NOTIFY^.lOnReportSwitchVideoResultParam := 0;
FCVSA_NOTIFY^.lOnReportVideoMappingParam := 0;

****** 编译到下面这就提示错误了，[Incompatible types: regular procedure and method pointer]*******************
FCVSA_NOTIFY^.OnReportSwitchVideoResult := VideoResult;
FCVSA_NOTIFY^.OnReportVideoMapping := VideoMapping;

end;





请帮忙看看，这个回调函数到底该怎么弄啊!

[Corn1]

给你一段我自己在用的代码：
dll接口文件：
type
TAlarmCallBack = procedure(ResourceID: PChar; AlarmType: Integer; AlarmDetail: PChar; AlarmLevel: Integer; AlarmTime: PChar; Action: Integer; User: Pointer); cdecl;

function Plat_SubscribeAlarm(AlarmCallBack: TAlarmCallBack; User: Pointer; UserHandle: Integer): Integer; cdecl; external 'Platform.dll'; //这里用到回调函数

调用的地方：
interface
procedure AlarmCallBack(ResourceID: PChar; AlarmType: Integer; AlarmDetail: PChar;
AlarmLevel: Integer; AlarmTime: PChar; Action: Integer; User: Pointer);

implementation

procedure AlarmCallBack(ResourceID: PChar; AlarmType: Integer; AlarmDetail: PChar;
AlarmLevel: Integer; AlarmTime: PChar; Action: Integer; User: Pointer);
begin
HKOperator.RaiseAlarm(1, StrToInt(StrPas(ResourceID)), AlarmType, StrPas(AlarmDetail),
AlarmLevel, StrPas(AlarmTime), Action);
end;

function THKOperator.SubscribeAlarm: Boolean;
begin
Result := (Plat_SubscribeAlarm(@AlarmCallBack, nil, FUserHandle) = 0);
if Result then
WriteLogInfo(1, NOTICE, '告警订阅成功！')
else
WriteLogInfo(1, ERROR, '告警订阅失败：' + GetLastErrorInfo);
end;

[darkeye]

自己解决了，原来不能是类函数，必须是单元函数。还是要谢谢你！