Второй день мучаюсь с авторизацией на сайте. Верней с принятием куков (я думаю дело в них). При успешной авторизации по адресу
http://site.ru/login/ идет редирект на
http://site.ru/home/ , а при неуспешной - возврат на страницу логина. Так вот авторизация проходит, идёт редирект на
http://site.ru/home/, но от туда уже кидает обратно на страницу логина, будто разлогинило (все запросы смотрел через HTTPAnalyzer). Хотя это так и есть. Как правильно куки принять и отправить обратно? В idHTTP AllowCookies := True, CookieManager := IdCookieManager1 (лежит на форме). Все что уже написал, ниже:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
p:=Tstringlist.Create;
p.Add('login='+Edit1.Text);
p.Add('password='+Edit2.Text);
i:=IdHTTP1.Post('http://site.ru/login/', p);
if pos('logout', i) > 0 then
WebBrowser1.Navigate('http://site.ru/')
else
Memo1.Lines[0]:='LOGIN FAILED';
end;