Próbuję się zalogować na grono.net przy pomocy komponentu TidHTTP, ale cuś mi nie wychodzi:
procedure TForm1.Button1Click(Sender: TObject);
var
Input: TStringStream;
begin
Input := TStringStream.Create('');
Input.Create('csrftoken=None&login=***&password=***&dest=%2Fusers%2F');
HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
HTTP.Request.Host := 'grono.net';
HTTP.Request.Referer := 'http://grono.net/?autologin=0';
HTTP.Post('http://grono.net/index.php',Input); // prbowalem tez logform.php ale też dupa
Memo2.Lines.Text := HTTP.Get('http://grono.net/users/123/detail/'); // pobieram strone informacji o jakims uzytkowniku
WebBrowser1.OleObject.Document.body.innerHTML := Memo2.Lines.Text; // podpatruje w webbrowserze
end;
No i wychodzi na to że zalogownay nie jestem, a dostaje odpowiedz "HTTP/1.0 302 Found" (taka jak w Firefoxie).Sniffowałem firefoxa, i tam jest tak:
POST./.HTTP/1.1..Host:.grono.net..User-Agent:.Mozilla/5.0.(Windows;.U;.Windows.NT.5.1;.pl;.rv:1. 8.1.3).Gecko/200
itd (info o przeglądarce)Content-Type:.application/x-www-form-urlencoded
Content-Length:.71 // tutaj mam -1 ale probowalem tez z 71
csrftoken=None&login=&password=&dest=%2Fusers%2F
Potrzebne mi to do wyszukiwania w opisach użytkowników jakiś ciągów znaków (ta wyszukiwarka na gronie badziewnie działa)