🚀 go-pugleaf

Amidala

    Remy posted the follwing some time ago

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;
                        }
                    }
                }
            }
        }
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;
                        }
                    }
                }
            }
        }
.
--
Michael

"Amidala" <no-spam@tiffie.net> wrote in message 
news:457aeae7@newsgroups.borland.com...
> hi,
>
> i am looking for a possibility to submit a form in cppwebbrowser. in the 
> newsgroups i found some delphi code i tried to convert to c++:
>
> CppWebBrowser1->OleObject->Document->All->Item("Form1")->Submit;
>
> CppWebBrowser1->OleObject->Document->all->item(OleVariant("Form1"))->Submit();
>
> CppWebBrowser1->OleObject->Document->Forms->Item(0)->Submit();
>
> None of these exmaples works. I always get these errors:
>
> [C++ Fehler] Unit1.cpp(123): E2288 Zeiger auf Struktur auf linker Seite 
> von -> oder von ->* erforderlich
>
> Means
>
> [C++ Fehler] Unit1.cpp(123): E2288 Pointer to structure on the left site 
> of -> or of ->* needed
>
> I have no idea how to solve this problem. can anybody help me?
>
> Amidala
>