🚀 go-pugleaf

"mike" <mfbrowne@earthlink.nnet> wrote in message
news:43359db7@newsgroups.borland.com...

> Could someone help me with translating this deph code into Builder5 code.

    #include <ComObj.hpp>
    #include  <utilcls.h>

    void __fastcall TForm1::acIESniffer1WBDownloadComplete(TObject *Sender,
const AnsiString URL, const IWebBrowser2 *Browser)
    {
        TComInterface<IHTMLDocument2> Doc;
        TComInterface<IHTMLElementCollection> Collection;
        TComInterface<IHTMLElement> Element;
        TComInterface<IDispatch> Disp;
        WideString HTMLPage;
        WideString PlainText;

        try
        {
            OleCheck(Browser->get_Document(&Disp));
            OleCheck(Disp->QueryInterface(IID_IHTMLDocument2,
(LPVOID*)&Doc));
            Disp.Unbind();

            OleCheck(Doc->get_all(&Collection));
            OleCheck(Collection->tags(TVariant(WideString("BODY")), &Disp));
            Collection.Unbind();
            OleCheck(Disp->QueryInterface(IID_IHTMLElementCollection,
(LPVOID*)&Collection));
            Disp.Unbind();

            OleCheck(Collection->item(TVariant(WideString("")), TVariant(0),
&Disp));
            OleCheck(Disp->QueryInterface(IID_IHTMLElement,
(LPVOID*)&Element));
            Disp.Unbind();

            OleCheck(Element->get_outerHTML(&HTMLPage));
            OleCheck(Element->get_outerText(&PlainText));
        }
        catch(const Exception &)
        {
        }
    }


Gambit