🚀 go-pugleaf

"Al C" <alanc@jancointernational.com> wrote in message
news:438f2c55$1@newsgroups.borland.com...

> I've never had to try this before and hope someone can help.  I need
> to read the contents of a shopping cart by reading their hidden html
> forms.  I was given the following example in VB.  Could someone
> please help translate?

For example (untested):

    #include <utilcls.h>

    WideString __fastcall GetFormElementValue(IHTMLElementCollection *Coll,
const WideString &FormName, const WideString &ElementName)
    {
        TComInterface<IDispatch> disp;

        OLECHECK(Coll->item(TVariant(FormName), TVariant(0), &disp));
        TComInterface<IHTMLFormElement> form = disp;
        disp.Unbind();

        OLECHECK(form->item(TVariant(ElementName), TVariant(0), &disp));
        TComInterface<IHTMLInputElement> element = disp;

        WideString result;
        OLECHECK(element->get_value(&result));

        return result;
    }



    TComInterface<IHTMLDocument2> mDoc = (IDispatch*)
CppWebBrowser1->Document;

    TComInterface<IHTMLFramesCollection2> frames;
    OLECHECK(mDoc->get_frames(&frames));

    TVariant index = 1;
    TVariant item;
    OLECHECK(frames->item(&index, &item));
    TComInterface<IHTMLWindow2> framewindow = V_DISPATCH(&item);

    TComInterface<IHTMLDocument2> framedoc;
    OLECHECK(framewindow->get_document(&framedoc));

    WideString title;
    OLECHECK(framedoc->get_title(&title));

    if( title == L"Order Review" )
    {
        TComInterface<IHTMLElementCollection> all;
        OLECHECK(framedoc->get_all(&all));

        // you did not say what element type tot_forms actually is,
        // so this is only a guess as to how to get its value...
        WideString temp = GetFormElementValue(all, "frmheader",
"tot_forms");
        long cart_count = StrToIntDef(temp, 0);

        if( cart_count > 0 )
        {
            WideString output;

            for(long i = 1; i <= cart_count; ++i)
            {
                switch( i )
                {
                    case 1:
                    {
                        output = "Cart Details:\r\n";

                        // you did not say what element types carthdr and
cartpart_1
                        // actually are, so this is only a guess as to how
to get their values...
                        output += (GetFormElementValue(all, "frmcarthd_1",
"carthdr") + "\r\n");
                        output += (GetFormElementValue(all, "frmcartdet_1",
"cartpart_1") + "\r\n");

                        ShowMessage(output);
                        break;
                    }

                    case 2:
                    {
                        output = "Cart Details:\r\n";

                        // you did not say what element types carthdr and
cartpart_1
                        // actually are, so this is only a guess as to how
to get their values...
                        output += (GetFormElementValue(all, "frmcarthd_2",
"carthdr") + "\r\n");
                        output += (GetFormElementValue(all, "frmcartdet_2",
"cartpart_1") + "\r\n");

                        ShowMessage(output);
                        break;
                    }
                }
            }
        }
    }


To help address the unknown areas, it would be helpful if you would show the
actual HTML.


Gambit