🚀 go-pugleaf

"Mischa Simmonds" <mischa1.BanSpam@informationdesign.BanSpam.com.au> wrote
in message news:46ba75fc@newsgroups.borland.com...

> However, I had to remove the referencing operators (&) from the
> Navigate2 function for it to work (no data was being sent at all).

You need to use the '&' operator.  Navigate2() is expecting pointers:

    HRESULT Navigate2(VARIANT *URL, VARIANT *Flags, VARIANT
*TargetFrameName, VARIANT *PostData, VARIANT *Headers);

> I used "TVariant vFlags = {0};" instead of "TNoParam() "

TNoParam() is the proper way to pass an empty variant for an optional
parameter.  It initializes a TVariant whose vt member is set to VT_ERROR and
scode member is set to DISP_E_PARAMNOTFOUND.  Those values are a requirement
for optional parameters, but you are not doing that in your code.

> I got the error, "E2064 Cannot initialize 'OleVariant &' with 'TNoParam' "
> on compilation.

Navigate2() does not use OleVariant.

> Here is my final code....

Try this instead:

    void WebPostData(_di_IWebBrowser2 CppWebBrowser, const AnsiString &sURL,
const AnsiString &sPostData)
    {
        LPSAFEARRAY psa = SafeArrayCreateVector(VT_UI1, 0,
sPostData.Length());
        if( psa )
        {
            void *pvdata = NULL;
            SafeArrayAccessData(psa, &pvdata);
            memcpy(pvdata, sPostData.c_str(), sPostData.Length());
            SafeArrayUnaccessData(psa);

            TVariant vPostData(psa);
            TVariant vFlags = TNoParam();
            TVariant vTargetFrameName = TNoParam();
            TVariant vURL = sURL;
            TVariant vContentType =
> AnsiString("Content-Type:application/x-www-form-urlencoded\r\n");

            CppWebBrowser->Navigate2(&vURL, &vFlags, &vTargetFrameName,
&vPostData, &vContentType);
        }
    }


Gambit