Показать сообщение отдельно
  #1  
Старый 07.08.2011, 14:13
crash94 crash94 вне форума
Прохожий
 
Регистрация: 08.07.2009
Адрес: Архангельск
Сообщения: 26
Версия Delphi: 7
Репутация: 10
По умолчанию Авторизация idhttp

Добрый день всем.

Возникла проблема создание авторизации на 1 сайте

Код

Цитата:
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('Form_Login[username]='+Edit1.Text);
LoginData.Add('Form_Login[password]='+Edit2.Text);
LoginData.Add('Form_Login[rememberMe]=0');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://testcp.game-host.ws/login/login/',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;

При попытке аворизиваться выскакивает


HandleRedirects стоит true.....Уже незнаю что и делать

Если вдруг понадобиться
Логин:soft
Пароль:demo
Ответить с цитированием