🚀 go-pugleaf

"Gary D" <gcdesroches@nctc.com> wrote in message
news:4367f582@newsgroups.borland.com...

> Here is the TestEventsImplImpl.cpp File as modified to add your code:

You are going about it all wrong.  Your Trigger() code should not be using
the TThreadList at all, unless you want clients to broadcast events to other
clients.  The rest of the server code should be using the TThreadList to
reach the Fire_...() methods for each individual client.

Try this code instead:

    class ATL_NO_VTABLE TTestEventsImplImpl :
        public CComObjectRootEx<CComSingleThreadModel>,
        public CComCoClass<TTestEventsImplImpl, &CLSID_TestEventsImpl>,
        public IConnectionPointContainerImpl<TTestEventsImplImpl>,
        public TEvents_TestEventsImpl<TTestEventsImplImpl>,
        public IDispatchImpl<ITestEventsImpl, &IID_ITestEventsImpl,
&LIBID_TestEventsTypeLib>
    {
    public:
        static TThreadList* InterfaceList;

        TTestEventsImplImpl();
        ~TTestEventsImplImpl();

        // Data used when registering Object
        //
        DECLARE_THREADING_MODEL(otApartment);
        DECLARE_PROGID("TestEventsTypeLib.TestEventsImpl");
        DECLARE_DESCRIPTION("");

        // Function invoked to (un)register object
        //
        static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
        {
            TTypedComServerRegistrarT<TTestEventsImplImpl>
                regObj(GetObjectCLSID(), GetProgID(), GetDescription());
            return regObj.UpdateRegistry(bRegister);
        }

        BEGIN_COM_MAP(TTestEventsImplImpl)
            COM_INTERFACE_ENTRY(ITestEventsImpl)
            COM_INTERFACE_ENTRY2(IDispatch, ITestEventsImpl)
            COM_INTERFACE_ENTRY_IMPL(IConnectionPointContainer)
        END_COM_MAP()

        BEGIN_CONNECTION_POINT_MAP(TTestEventsImplImpl)
            CONNECTION_POINT_ENTRY(DIID_ITestEventsImplEvents)
        END_CONNECTION_POINT_MAP()

    public:
        static void TriggerOnAllClients();

    // ITestEventsImpl
    public:
        STDMETHOD(Trigger());
    };


    TThreadList* TTestEventsImplImpl::InterfaceList = NULL;

    TTestEventsImplImpl::TTestEventsImplImpl()
    {
        if( !InterfaceList )
            InterfaceList = new TThreadList;
        if( InterfaceList )
            InterfaceList->Add(this);
    }

    TTestEventsImplImpl::~TTestEventsImplImpl()
    {
        if( InterfaceList )
        {
            int count;

            TList *list = InterfaceList->LockList();
            try
            {
                list->Remove(this);
                count = list->Count;
            }
            __finally {
                InterfaceList->UnlockList();
            }

            if( count < 1 )
            {
                delete InterfaceList;
                InterfaceList = NULL;
            }
        }
    }

    void TTestEventsImplImpl::TriggerOnAllClients()
    {
        if( InterfaceList )
        {
            TList *list = InterfaceList->LockList();
            try
            {
                for(int x = 0; x < list->Count; ++x)
                {
                    try
                    {
                        TTestEventsImplImpl *pIntf = (TTestEventsImplImpl *)
list->Items[x];
                        if( pIntf )
                            pIntf->Trigger();
                    }
                    catch(...) { }
                }
            }
            __finally {
                InterfaceList->UnlockList();
            }
        }
    }

    STDMETHODIMP TTestEventsImplImpl::Trigger()
    {
        WideString strName(L"Whatever");
        Fire_Event1(strName);
        return S_OK;
    }


You can then do the following where desired in the server code:

    void TCOMServerCode::DoSomething()
    {
        // ...
        if( something happened )
            TTestEventsImplImpl::TriggerOnAllClients();
        // ...
    }


Gambit