如何在Delphi里实现回调函数......

Question

近日在写考勤机串口程序时，调用厂家提供的Dll（VB写的），其中要用到一个函数
Declare Function SetCallBack Lib "HYControl.dll" (ByVal controlport As Integer, ByVal func As Long) As Integer
其中第2个参数好象是回调函数的地址，我应该怎么办？？

Answer 1

和他一样在函数参数中声明（要转化成DELPHI的类型，格式）
然后再调用啊比如 i：=SetCallBack;
     if i=.........
     ss:=func ;
就可以了啊

Answer 2

type
  MyCallBack = procedure (...);  stdcall;    //具体参数格式参见厂家提供的资料function SetCallBack(controlport: Integer;  func: MyCallBack): Integer;  stdcall;  external 'HYControl.dll';