🚀 go-pugleaf

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

> The only way I know to do this is by somehow changing the html from, say:
>
> <input  class="frmfld" type="text" name="realname" size="40">
> to <input  class="frmfld" type="text" name="realname" value="Mitch
McInelly"
> size="40">

    #include <utilcls.h>
    #include <mshtml.h>

    void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject* Sender,
LPDISPATCH pDisp, TVariant *URL)
    {
        TComInterface<IHTMLDocument2> Doc;
        CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,
(LPVOID)&Doc);
        if( Doc )
        {
            TComInterface<IHTMLElementCollection> All;
            Doc->get_all(&All);
            if( All )
            {
                TVariant name = WideString("realname");
                TVariant index = 0;
                TComInterface<IDispatch> Disp;

                All->get_item(name, index, &Disp);
                if( Disp )
                {
                    TComInterface<IHTMLInputTextElement> TextInput;
                    Disp->QueryInterface(IID_IHTMLInputTextElement,
(LPVOID)&TextInput);

                    if( TextInput )
                        TextInput->put_value(WideString("Mitch McInelly"));
                }
            }
        }
    }

You can generalize that code by looping through the All collection, querying
to see if each element is in your database:

    #include <utilcls.h>
    #include <mshtml.h>

    void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject* Sender,
LPDISPATCH pDisp, TVariant *URL)
    {
        TComInterface<IHTMLDocument2> Doc;
        CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,
(LPVOID)&Doc);
        if( Doc )
        {
            TComInterface<IHTMLElementCollection> All;
            Doc->get_all(&All);
            if( All )
            {
                long count = 0;
                All->get_length(&count);

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

                    All->get_item(item, index, &Disp);
                    if( Disp )
                    {
                        TComInterface<IHTMLInputTextElement> TextInput;
                        Disp->QueryInterface(IID_IHTMLInputTextElement,
(LPVOID)&TextInput);

                        if( TextInput )
                        {
                            WideString name;
                            TextInput->get_name(&name);
                            if( name is in the database )
                                TextInput->put_value(WideString(value from
database));
                        }
                    }
                }
            }
        }
    }


Gambit