🚀 go-pugleaf

"Mitch McInelly" <mitch@agencysoftware.com> wrote in message
news:421f8f60$1@newsgroups.borland.com...

> Now I am trying to get my app to click a submit button on a
> form after I have prefilled the data.
<snip>
> For some reason the button is never found (the ShowMessage
> never fires).  Am I using the wrong element?

Yes.  Your form is using an image, not a button, so you should be looking
for IHTMLInputImage rather than IHTMLInputButtonElement.

Rathr than trying to click the submit button, you should instead get the
IHTMLFormElement interface for the form itself and call its submit() method.
For example:

    void __fastcall TMain::SubmitForm(void)
    {
        TComInterface<IHTMLDocument2> Doc;
        Browser->Document->QueryInterface(IID_IHTMLDocument2,
(LPVOID*)&Doc);
        if( Doc )
        {
            TComInterface<IHTMLElementCollection> Forms;
            Doc->get_forms(&Forms);
            if( Forms )
            {
                long count = 0;
                Forms->get_length(&count);

                for(long x = 0; x < count; ++x)
                {
                    TVariant item = x;
                    TVariant index = 0;
                    TComInterface<IDispatch> Disp;

                    Forms->item(item, index, &Disp);
                    if( Disp )
                    {
                        TComInterface<IHTMLFormElement> Form;
                        Disp->QueryInterface(IID_IHTMLFormElement,
(LPVOID*)&Form);
                        if( Form )
                        {
                            ShowMessage("Form Found");
                            Form->submit();
                            break;
                        }
                    }
                }
            }
        }

If the page has multiple forms, it is your own responsibility to make sure
that you are submitting the proper form.  If the forms have names assigned,
you can specify the desired name rather than an index when calling
IHTMLElementCollection::item().


Gambit