🚀 go-pugleaf

"mike" <mfbrowne@earthlink.nnet> wrote in message
news:43388d42$1@newsgroups.borland.com...

>             OleCheck(Collection->item(WideString(""), 0, Disp));
<snip>
> When this is executed it never returns therefore the app is hung
> at this point. There is no exception reported.

The only thing I can think of is the blank item name that is being passed
in.  That is very unusual to do, even for the original Pascal.  Looking back
at it, I think the Pascal was trying to pass in an integer of 0, not a blank
string.  In which case, the above line should be the following instead:

    OleCheck(Collection->item(0, 0, Disp));

Now, with that said, since the collection traversal code is simply trying to
get an IHTMLElement for the <BODY> tag of a document, there is an easier
way - the IHTMLDocument2 interface has a body property that returns that
same IHTMLElement interface directly, ie:

    #include <mshtml.hpp>

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

        try
        {
            OleCheck(Browser->Get_Document(Disp));
            Doc = Disp;
            OleCheck(Doc->Get_Body(Element));
            OleCheck(Element->Get_OuterHTML(HTMLPage));
            OleCheck(Element->Get_OuterText(PlainText));
        }
        catch(const Exception &)
        {
        }
    }


Gambit