🚀 go-pugleaf

"jini" <fseconds@hotmail.com> wrote in message
news:422d9caa@newsgroups.borland.com...

> How get pOleObject, pOleDocumentSite, pOleClientSite, pCustomDoc,
> pHostUIHandler, pHostShowUI, pCustomDoc.. Etc ??

You are querying the interfaces from the wrong place.  IDocHostUIHandler,
etc, are not implemented in IHTMLWindow2.  In fact, you probably did not
carefully read what Microsoft was actually saying about IDocHostUIHandler.
You are supposed to implement **YOUR OWN** custom IDocHostUIHandler-derived
class and then give it to the browser for use.  You are not supposed to be
querying it from the browser.  Please re-read the "WebBrowser Customization"
article again.  It specifically says as much:

    "These are interfaces that you implement in your application when you
want to modify the WebBrowser Control."

That means, you have to provide your own class(es) that are derived from
IOleClientSite, IDocHostUIHandler, etc.  You obtain the browser's
IWebBrowser2 interface, not IHTMLWindow2, and then query it for IOleObject.
From there, you use IOleObject::SetClientSite() to pass the browser your own
IOleClientSite.  The browser queries the other interfaces from your own
IOleClientSite.

In the case of ICustomDoc, the browser does provide that, but again not from
IHTMLWindow2.  Using ICustomDoc, you can then pass your custom
IDocHostUIHandler-derived class to the browser via the
ICustomDoc::SetUIHandler() method.  Using IOleObject and IOleClientSite is
more flexible than using ICustomDoc, though.


Gambit

Thanks Remy.
Your advise is good help for me!!!

^_^

I successed to get pOleObject  and set pmyIOleClientSite..
but i don't know how use pmyIDocHostShowUI, pmyIDocHostUIHandlerr.. etc.

i coded like below...
//--------------------------------------------------------------------------
-
class myIOleClientSite :public IOleClientSite
{
    ...
};
class myIDocHostShowUI :public IDocHostShowUI
{
    ...
}
class myIDocHostUIHandler :public IDocHostUIHandler
{
    ...
}

pmyIOleClientSite     = new myIOleClientSite;
pmyIDocHostUIHandler = new myIDocHostUIHandler;
pmyIDocHostShowUI     = new myIDocHostShowUI;

IServiceProvider *pServiceProvider = NULL;
if (
SUCCEEDED(Web->Document->QueryInterface(IID_IServiceProvider,(LPVOID*)&pServ
iceProvider)) )
{
    IWebBrowser2 *pWebBrowser = NULL;
    if ( SUCCEEDED(pServiceProvider->QueryService(IID_IWebBrowserApp,
IID_IWebBrowser2, (LPVOID*)&pWebBrowser)) )
    {
        IOleObject *pOleObject = NULL;
        if (
SUCCEEDED(pWebBrowser->QueryInterface(IID_IOleObject,(LPVOID*)&pOleObject)) 
)
        {
            pOleObject->SetClientSite(pmyIOleClientSite); // <---
SUCCESS..!!
            //
            // ????????????????????????????????????????????????
            // how to use pmyIDocHostShowUI,
            // pmyIDocHostUIHandlerr etc.. that implemented by me
            // ????????????????????????????????????????????????
            //
        }
        pWebBrowser->Release();
    }
    pServiceProvider->Release();
}
//--------------------------------------------------------------------------
-

i know how to use myIDocHostUIHandler by ICustomDoc.

ICustomDoc *pCustomDoc;
Web->Document->QueryInterface(&pCustomDoc);
if (pCustomDoc) pCustomDoc->SetUIHandler(pmyIDocHostUIHandler);

but this solution cannot use myIDocHostShowUI.
and you said to me "Using IOleObject and IOleClientSite is more flexible
than using ICustomDoc, though."
so i want use IOleClientSite..

please help me!!

Thanks...

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

> I successed to get pOleObject  and set pmyIOleClientSite..
> but i don't know how use pmyIDocHostShowUI,
> pmyIDocHostUIHandlerr.. etc.

Your IOleClientSite is supposed to return them from its QueryInterface()
method.

> IServiceProvider *pServiceProvider = NULL;

You don't need that.  Use the WebBrowser's ControlInterface property
instead.  It is a direct pointer to the IWebBrowser2 interface.


Gambit

I successed webbrowser coustomization partly..

I implemeted below classes
    (1) class myIOleClientSite :public IOleClientSite // <--- work good
    (2) class myIDocHostShowUI :public IDocHostShowUI  // <--- work good
    (3) class myIDocHostUIHandler :public IDocHostUIHandler // <--- work
good
    (4) class myIDispatch :public IDispatch // <--- NOT WORK!!!!

and below is a part of myIOleClientSite implemetation
    class myIOleClientSite :public IOleClientSite
    {
        .....
        virtual HRESULT STDMETHODCALLTYPE QueryInterface( REFIID iid, void
** ppvObject )
        {
            if (iid == IID_IUnknown) *ppvObject = this->pmyIDispatch;
            else if (iid == IID_IDispatch) *ppvObject = this->pmyIDispatch;
            else if (iid == IID_IOleClientSite) *ppvObject =
(IOleClientSite*)this;
            else if (iid == IID_IDocHostUIHandler) *ppvObject =
this->pmyIDocHostUIHandler;
            else if (iid == IID_IDocHostShowUI) *ppvObject =
this->pmyIDocHostShowUI;
            else return E_NOINTERFACE;
            return S_OK;
        }
        .....
    };

where i mistake...??


below is a part of myIDispatch implemetation
    class myIDispatch :public IDispatch
    {
        .....
        virtual HRESULT STDMETHODCALLTYPE Invoke ( DISPID dispidMember,
                      REFIID riid,
                      LCID lcid,
                      WORD wFlags,
                      DISPPARAMS* pDispParams,
                      VARIANT* pvarResult,
                      EXCEPINFO* pExcepInfo,
                      UINT* puArgErr )
        {
            ShowMessage(dispidMember); // <--  it display just two
messages -5501, -5502

            switch (dispidMember)
            {
                case DISPID_AMBIENT_DLCONTROL:
                {
                    ShowMessage("DISPID_AMBIENT_DLCONTROL"); // <-- never
displayed
                    pvarResult->vt = VT_I4;
                    pvarResult->lVal = DLCTL_VIDEOS | DLCTL_NO_SCRIPTS;
                    //pvarResult->lVal = DLCTL_DLIMAGES | DLCTL_VIDEOS |
DLCTL_NO_SCRIPTS;
                }
                break;

                case DISPID_NEWWINDOW2:
                {
                    ShowMessage("DISPID_NEWWINDOW2"); // <-- never displayed
                }
                break;

                case DISPID_BEFORENAVIGATE2:
                {
                    ShowMessage("DISPID_BEFORENAVIGATE2"); // <-- never
displayed
                }
                break;

                default:
                return DISP_E_MEMBERNOTFOUND;
            }
            return E_NOTIMPL;//S_OK;
        }
        .....
    };

I want customize webbrowser's download and execution.. how to do it??
plz help me..

"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

Thanks Remy for your kindness..

In spite of youre advise I failed to solve my problems.
I am not good at english. so i did not understand your replies perfectly.

Would you mind make simple example code for me.
I think, I can understand your replies, if i could see example code.

I want to customize webbrowser control, never showmessage never popup right
click menu and
never download exe, zip.. etc files.

Thanks.

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:4239c9a1$1@newsgroups.borland.com...
>
> "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
>
>