🚀 go-pugleaf

"jini" <fseconds@hotmail.com> wrote in message
news:4239501e$1@newsgroups.borland.com...

>     (4) class myIDispatch :public IDispatch // <--- NOT WORK!!!!

Why are you implementing IDispatch from scratch?  At the very least, you
should use the existing IDispatchImpl class to simplify the work.

>             if (iid == IID_IUnknown) *ppvObject = this->pmyIDispatch;

That is not the correct thing to do.  You need to return a pointer to the
class that is being queried:

    if( iid == IID_IUnknown ) *ppvObject = (IUnknown*)this;

>             else if (iid == IID_IOleClientSite) *ppvObject =
> (IOleClientSite*)this;
>             else if (iid == IID_IDocHostUIHandler) *ppvObject =
> this->pmyIDocHostUIHandler;
>             else if (iid == IID_IDocHostShowUI) *ppvObject =
> this->pmyIDocHostShowUI;

I would suggest implementing all of the interfaces in the same class, not
separate classes.  This you can return 'this' for all of them.

>             ShowMessage(dispidMember); // <--  it display just two
> messages -5501, -5502

-5501 = DISPID_AMBIENT_OFFLINEIFNOTCONNECTED

-5502 = DISPID_AMBIENT_SILENT

>                 case DISPID_NEWWINDOW2:
>                 case DISPID_BEFORENAVIGATE2:

To receive those events, you need to attach to the browser's
DWebBrowserEvents2 ConnectionPoint.  Query the IWebBrowser2 interface for
IConnectionPointContainer, retreive the IConnectionPoint for
DIID_DWebBrowserEvents2, and add your IDispatch by calling
IConnectionPoint::Advise().


Gambit