使用delphi开发tuxedo客户端事件定购问题(100分)

function CallServSubscribeAlertEvent: Boolean;
begin
//定制unsolicited 事件处理函数'
Result := False;
tpsetunsol(@SubscribeEventHandler);
FTuxEventHandle := -1;
FTuxEventHandle := tpsubscribe(PChar(TUX_ALERT_EVENT), nil, nil, 0);
Result := FTuxEvenHandle > 0;
end;

procedure SubscribeEventHandler(data: Pchar; len: long; flags: long);
var
pTmp: PChar;
nTmp : Integer;
RcvGetLen: FLDLEN32;
begin
//debug [red]为什么收到data总是空的啊？ [/red]
pTmp := @nTmp;
RcvGetLen := sizeof(nTmp);
//ShowMessage(IntToStr(Len));

if fget32(data, OAM_FLAG, 0, pTmp, @RcvGetLen) = -1 then
begin
FGet32ErrMsg(Func_SubscribeEvent + '[OAM_FLAG], ');
ShowStatus(Alert_Event_Handler_Failed);
Exit;
end;
end;

疑问：通知事件可以收到，但是传到procedure SubscribeEventHandler的
data参数总是空的，有大侠来解惑一下吗？是不是该过程声明有问题？

up

没有高手啦？？

100分没人要啦，怎么可以撤销帖子？