为什么WSAAccept的回调函数不能被调用?

Question

本人写了一个SOCKET通讯程序，使用WSAAccept函数，示例如下：  ASocket := WSAAccept(FServer.Socket, Addr, @AddrLen,
    MakeProcInstance(@AcceptConditionProc, 0), Cardinal(Self));  function AcceptConditionProc(lpCallerId: LPWSABUF; lpCallerData: LPWSABUF;
    lpSQOS, lpGQOS: LPQOS; lpCalleeId, lpCalleeData: LPWSABUF; g: GROUP;
    dwCallbackData: DWORD): Integer; stdcall;   if WSAConnect(FSocket, @BindAddr, AddrLen, @CallerData, nil, nil, nil) = SOCKET_ERROR then
    raise EAPIError.CreateWSA('WSAConnect');但AcceptConditionProc回调函数始终不被执行，百思不得其解，请高手指点！

Answer 1

设置SO_CONDITIONAL_ACCEPT为True还是不行，真是郁闷