Question

如何将timeSetEvent的回调函数定义为实例方法？

TUDPBC = class(TObject)                                         
private
  hTimer: word;
...
public
  procedure sendUDPBC;
...
end;

procedure DoTimer(uTimerID, uMessage: UINT; dwUser,dw1,dw2: DWORD); stdcall;

procedure TUDPBC.sendUDPBC;  //send UDP Broadcast
begin
...
  hTimer := TimeSetEvent(FTimeOut, uRes, DoTimer, 0, TIME_ONESHOT); //need DoTimer as a TUDPBC class method
...
end;

Answer 1

如何将timeSetEvent的回调函数定义为实例方法？

简单的答案是，你做不到。回调的签名不是你可以改变的。它由API定义，必须是simple unbound procedure with this signature：

typedef void ( CALLBACK *LPTIMECALLBACK)(
   UINT      uTimerID,
   UINT      uMsg,
   DWORD_PTR dwUser,
   DWORD_PTR dw1,
   DWORD_PTR dw2
);

您可以做的是传递指向包含您实例地址的timeSetEvent的指针。模式运行如下：

procedure TimeProcCallback(uTimerID, uMessage: UINT; dwUser,dw1,dw2: DWORD_PTR); stdcall;
begin
  TUDPBC(dwUser).TimeProc(uTimerID, uMessage);
end;

这是您传递给timeSetEvent的回调。你的课程看起来像这样：

type
  TUDPBC = class
  private
    FTimerID: MMRESULT;
    procedure TimeProc(uTimerID, uMessage: UINT);
  end;

该类的方法将由回调函数调用，因此可以访问实例变量。

像这样设置计时器：

FTimerID := timeSetEvent(TimeOut, uRes, TimeProcCallback, DWORD_PTR(Self), TIME_ONESHOT);

因此，您在dwUser参数中传递实例的地址。然后将其传递给您的回调。反过来，该回调可以调用实例方法。

常规过程/方法指针

1 个答案: