Witajcie.
Chce zalogować się na moją stronę poprzez POST, robie to co piszą w innych tematach ale nie działa. Co jest źle? Możę za mao nagłówków wysyłam? Mam ustawione wszystko na TRUE.
I te logowanie ma działać tak? logowanie post -> cookiemanager -> idhttp.get(pobranie kodu) ?
Proszę o pomoc .
procedure TForm1.Button1Click(Sender: TObject);
var wejscie,wyjscie:TStringStream;
wynik,s:string;
i:integer;
begin
IdHTTP1.Response.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.request.useragent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
wejscie:=Tstringstream.Create('');
wyjscie:=Tstringstream.Create('');
wejscie.WriteString('login=kubeczek&haslo=kubeczek&zaloguj=Zaloguj+sie');
wynik:=IdHTTP1.Post('http://www.mojastrona.boo.pl/admin.php', wejscie);
memo1.text := wynik;
for i:=0 to IdHTTP1.CookieManager.CookieCollection.Count-1
do begin
memo1.Lines.Add(IdHTTP1.CookieManager.CookieCollection.Items[i].CookieText) ;
end;
wynik:=IdHttp1.Get(IdHTTP1.Response.Location);
memo2.text:=wynik;
wejscie.free;
wyjscie.Free;
end;