高分求问题答案！关于dll和回调函数！！！！！急！！！

Question

我目前在开发一套系统。是关于语音卡的计费系统。
我遇到问题是这样的：
type TFNCTIEvent = procedure (eventType:Integer;channelType:Integer;channelID:Integer;iParam1:Integer;iParam2:Integer);stdcall ;procedure  tpi_SetEventNotifyCallBackProc(procFireEvent:TFNCTIEvent);stdcall; far external 'Phonic.dll';
这是回调函数的定义。我在系统中，如何来定义procFireEvent函数？
如何来实时获取语音卡的实践消息？
请给出思路或者详细的做法！！！！！谢谢！

Answer 1

procedure MyProc(eventType:Integer;channelType:Integer;channelID:Integer;iParam1:Integer;iParam2:Integer);stdcall ;
begin
  //Your handleend;//Invoke
tpi_SetEventNotifyCallBackProc(@MyProc);