🚀 go-pugleaf

Again, thank you.  It works perfectly!



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