🚀 go-pugleaf

Remy,

Well sir I am very impressed, you have given me the perfect answer and it 
now works. I tried both of your suggestions and both work just fine.

I can't thank you enough for taking the time to help me in this, I 
appreciate it very much.

Mike

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