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
|
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TIdMultiPartFormDataStream *Param = new TIdMultiPartFormDataStream();
String Reponse;
// On construit les paramètres
Param->AddFormField("search.method", "search.agegroup", "", "RADIO", ""); // search_method par age
Param->AddFormField("input.hist.fname", "", "", "TEXT", ""); // input.hist.fname par défaut vide
Param->AddFormField("input.hist.lname", "", "", "TEXT", ""); // input.hist.lname par défaut vide
Param->AddFormField("top.type", "", "", "RADIO", ""); // top.type par défaut rien n'est sélectionné
Param->AddFormField("input.f.age", "", "", "TEXT", ""); // input.f.age par défaut vide
Param->AddFormField("input.t.age", "", "", "TEXT", ""); // input.t.age par défaut vide
Param->AddFormField("input.lname", "", "", "TEXT", ""); // input.lname par défaut vide
Param->AddFormField("input.bib", "", "", "TEXT", ""); // input.bib" par défaut vide
Param->AddFormField("top.wc.type", "P", "", "RADIO", ""); // top.wc.type par défaut vide
Param->AddFormField("top.wc.gender", "", "", "RADIO", ""); // top.wc.gender par défaut rien n'est sélectionné
// on va construire la chaine AESTIVACVNLIST
String AESTIVACVNLIST = "2011,10,Male 40 to 44,,,,,,,,";
// on ajoute le paramètre
Param->AddFormField("AESTIVACVNLIST", AESTIVACVNLIST, "", "HIDDEN", "");
// On se met en Mode multipart/form-data
IdHTTP->Request->ContentType = "multipart/form-data";
Reponse = IdHTTP->Post(EditURL->Text, Param);
Memo1->Lines->Add(Reponse);
} |
Partager