Авторизация

[Пепел Феникса]

и сравни с тем что надо(от браузера).
может с кодировками дело(особенно с русским "Войти" предлагаю сразу написать как в запросе, ибо иногда этот параметр важен)

[bulldog5293]

Сделал так
procedure TForm2.Button1Click(Sender: TObject);
var s:TStringStream;
data:TStringList;
begin
s:=TStringStream.Create;
data:=TStringList.Create;
try
IdHTTP2.get('http://Сайт.ru/');
IdHTTP2.get('http://Сайт.ru/login.php?r=');
Data.Add('username=' + Edit1.Text);
Data.Add('password=' + Edit2.Text);
Data.Add('submit=Войти');
IdHTTP2.Post('http://Сайт.ru/login.php?',data,s);
IdHTTP2.get('http://Сайт.ru/privatecab.php');
s.position:=0;
if (Pos('privatecab.php',s.DataString) <> 0) or (Pos('Name',s.DataString) <> 0) then
ShowMessage('Авторизация прошла успешно')
else
ShowMessage('Авторизация провалилась');
memo1.Lines.LoadFromStream(s);
finally
s.Free;
data.Free;
end;
end;

end.
Но в мемо получаю <META HTTP-EQUIV="REFRESH" CONTENT="0;URL=privatecab.php">
Забыл включить редирект, хотя при нём я тоже получаю не то

[bulldog5293]

Посматрел в снифере, написанно не верные данные введены, в чём теперь может быть косяк?

[bulldog5293]

Думаю проблема в кодировке, потому что у меня при пост запросе передаётся в место войти вот эта нечесть Войти

[bulldog5293]

В снифере Launch HTTPAnalyzer Stand-alone смотрел firefox кнопку войти не прописывает, единственное что я из него понял это то что со страницы http://Сайт.ru/login.php?r= идёт перенаправление на http://Сайт.ru/login.php, а с неё уже в свой аккаунт, тоесть на страницу http://Сайт.ru/privatecab.php, есть у кого ни будь идеи?

[bulldog5293]

Delphi странный зверь, то не работает, то работает аж диву даёшся, вопрос снят, он заработал