🚀 go-pugleaf

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

> If I include the mshtml.h I receive a whole bunch of duplicate
declarations.

Which, again, suggests that your code is not using the original Microsoft
interfaces to begin with, but instead is using VCL translations of them.

> I do include a mshtml.hpp

Exactly.  Any hpp file is a VCL header file.

> if I don't then I don'tget anywhere using the control.

Then it sounds like you cannot use the Microsoft interfaces directly at all.
Which means the code will have to be adjusted accordingly.  Since I know
nothiing about AppControls or IESniffer, I can only guess at the necessary
changes, as follows:

    #include <mshtml.hpp>

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

        try
        {
            OleCheck(Browser->Get_Document(Disp));
            Doc = Disp;
            Disp.Release();

            OleCheck(Doc->Get_All(Collection));
            OleCheck(Collection->tags(WideString("BODY"), Disp));
            Collection = Disp;
            Disp.Release();

            OleCheck(Collection->item(WideString(""), 0, Disp));
            Element = Disp;
            Disp.Release();

            OleCheck(Element->Get_OuterHTML(HTMLPage));
            OleCheck(Element->Get_OuterText(PlainText));
        }
        catch(const Exception &)
        {
        }
    }


Gambit