🚀 go-pugleaf

Thank you, thank you Remy!

It works!

However, I had to remove the referencing operators (&) from the 
Navigate2 function for it to work (no data was being sent at all). Also, 
I used "TVariant vFlags = {0};" instead of "TNoParam() ", as I got the 
error, "E2064 Cannot initialize 'OleVariant &' with 'TNoParam' " on 
compilation.

Here is my final code....

void WebPostData(_di_IWebBrowser2 CppWebBrowser, AnsiString sURL, 
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 = {0}, vTargetFrameName={0};
        TVariant vURL=sURL;
        TVariant vContentType = 
AnsiString("Content-Type:application/x-www-form-urlencoded\r\n");
        CppWebBrowser->Navigate2(vURL, vFlags, vTargetFrameName, 
vPostData,vContentType);
    }
}



Remy Lebeau (TeamB) wrote:
> "Mischa Simmonds" <mischa1.BanSpam@informationdesign.BanSpam.com.au> wrote
> in message news:46b87478$1@newsgroups.borland.com...
>
>   
>> My code is something like this...
>>     
>
> That code shouldn't even be able to compile, let alone run.  Each of the
> parameters of TCppWebBrowser::Navigate2() expect a pointer to a TVariant,
> but you are not constructing any TVariant instances at all.  And it is also
> unclear whether you are actually trying to call the
> TCppWebBrowser::Navigate2() method or the IWebBrowser2::Navigate2() method,
> for that matter.
>
> Try this instead:
>
>     AnsiString asPostData = "name=Mischa&Country=Australia";
>
>     LPSAFEARRAY psa = SafeArrayCreateVector(VT_UI1, 0, asPostData.Length());
>     if( psa )
>     {
>         void *pvdata = NULL;
>         SafeArrayAccessData(psa, &pvdata);
>         memcpy(pvdata, asPostData.c_str(), asPostData.Length());
>         SafeArrayUnaccessData(psa);
>
>         TVariant vPostData(psa);
>         TVariant vURL = AnsiString("http://www.somewhere.com");
>         TVariant vContentType = AnsiString("Content-Type:
> application/x-www-form-urlencoded\r\n");
>
>         CppWebBrowser->Navigate2(&vURL, TNoParam(), TNoParam(), &vPostData,
> &vContentType);
>     }
>
>
>   
>> I have ... also tried to use the ideas expressed in
>> http://dn.codegear.com/en/article/27519 but get the same result.
>>     
>
> The code you showed is not doing anything that article says to do.
>
>
> Gambit
>
>
>