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
| var
Ts : TStringList;
i:integer;
begin
Ts := TStringList.Create;
try
idhttp1.Get('http://www.easyrewards.fr');
// on récupère les 2 cookies, un cookie avec le SSID de la session PHPSSID, et un cookie qui indique quand est-ce qu'il expire
//On écrit le cookie dans l'en tête de la future requête
for i := 0 to cookie.CookieCollection.Count-1 do
begin
IdHTTP1.Request.RawHeaders.Add('Cookie'+
IdHTTP1.Request.RawHeaders.NameValueSeparator+
cookie.CookieCollection.Items[I].CookieText);
showmessage(cookie.CookieCollection.Items[I].CookieText);
end;
Ts.Add('nom=mon_nom');
Ts.Add('pass=mon_pass');
Ts.Add('seconnecter= Se connecter ');// Je ne sais pas pourquoi il faut mettre ca, dans la source que j'ai consulté la personne l'a rajouté. C'est le bouton qui permet d'envoyer les paramètres
IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post('http://www.easyrewards.fr/connexion.php',Ts);
// Normalement je suis connecté ? |
Partager