🚀 go-pugleaf

"Saulo I. Regis" <saulo@password.info> wrote in message
news:418972c3$1@newsgroups.borland.com...

> Could you give me a small sample code of how I access
> the frames collection, scan it and retrieve the HTML code
> of each frame?

I take it that you did not read the documentation for IHTMLDocument2 yet,
did you?


http://msdn.microsoft.com/workshop/browser/mshtml/reference/ifaces/interface.asp


    #include <memory>
    #include <utilcls.h>

    void __fastcall GetFramesHTML()
    {
        if( !Browser1->Document ) return;

        TComInterface<IHTMLDocument2> Doc;
        Browser1->Document->QueryInterface(IID_HTMLDocument2,
(LPVOID*)&Doc);
        if( !Doc ) return;

        TComInterface<IHTMLFramesCollection2> Frames;
        Doc->get_frames(&Frames);
        if( !Frames ) return;

        long cnt = 0;
        Frames->get_length(&cnt);

        for(long l = 0; l < cnt; ++l)
        {
            TVariant idx = l;
            TVariant ret;

            Frames->item(&idx, &ret);
            if( (ret.vt != VT_DISPATCH) || (ret.pdispVal == NULL) )
continue;

            TComInterface<IHTMLWindow2> Window;
            ret.pdispVal->QueryInterface(IID_IHTMLWindow2,
(LPVOID*)&Window);
            if( !Window ) continue;

            TComInterface<IHTMLDocument2> Doc2;
            Window->get_document(&Doc2);
            if( !Doc2 ) continue;

            AnsiString HTML = GetHTML(Doc2);
            if( !HTML.IsEmpty() )
                // use HTML as needed...
        }
    }

    AnsiString __fastcall GetHTML(IHTMLDocument2* Doc)
    {
        if( Doc )
        {
            TComInterface<IPersistStreamInit> Psi;
            Doc->QueryInterface(IID_IPersistStreamInit, (LPVOID*)&Psi);
            if( Psi )
            {
                std::auto_ptr<TStringStream> StrStrm(new TStringStream(""));
                std::auto_ptr<TStreamAdapter> Adapter(new
TStreamAdapter(StrStrm.get(), soReference));

                if( SUCCEEDED(Psi->Save(*Adapter, FALSE)) )
                    return StrStrm->DataString;
            }
        }

        return "";
    }


Gambit