formulaire avec TCppWebBrowser

J'ai trouvé que l'on pouvais envoyer un fomulaire avec le contrôle CppWebBrowser à l'adresse suivante :
http://community.borland.com/article...,27519,00.html

mais je n'arrive pas à le faire fonctionner. Comme si ma page n'arrivai pas à recevoir les parametres POST

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
void __fastcall TForm1::Envoyer1Click(TObject *Sender)
{
    String sPostData="login=nadjim&mdp=monpass";
 
    BSTR bstrHeaders = NULL;
    TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
    LPSAFEARRAY psa;
    LPCTSTR cszPostData = sPostData.c_str();
    UINT cElems = lstrlen(cszPostData);
    LPSTR pPostData;
    LPVARIANT pvPostData;
 
    bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");
    if (!bstrHeaders){
        Application->MessageBox("Could not allocate bstrHeaders", "Warning", MB_OK | MB_ICONWARNING);
        return;
    }
 
    WideString Url="www.pc-pratique.com/test/valide.php";
    V_VT(&vHeaders) = VT_BSTR;
    V_BSTR(&vHeaders) = bstrHeaders;
 
    pvPostData = vPostData;
 
    if(pvPostData){
        VariantInit(pvPostData);
 
        psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
        if(!psa){
            return;
        }
 
        SafeArrayAccessData(psa, (LPVOID*)&pPostData);
        memcpy(pPostData, cszPostData, cElems);
        SafeArrayUnaccessData(psa);
 
        V_VT(pvPostData) = VT_ARRAY | VT_UI1;
        V_ARRAY(pvPostData) = psa;
    }
    CppWebBrowser1->Navigate(Url,&vFlags,&vTargetFrameName,&vPostData, &vHeaders);
}

Balises [Code] rajoutées par Ricky81
Merci d'y penser à l'avenir