Авторизация на сайте. Почему не получается?

[Oleg_teacher]

var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage, UserID,  UserName  :  String;
  i : integer;
begin
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:='www.promo-immunitet.ru';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://www.promo-immunitet.ru';

 //   Data.Add('mode=login');
    Data.Add('UserName=' + Edit1.Text);
    Data.Add('Password=' + Edit2.Text);
    StrPage := Http.Post('http://www.promo-immunitet.ru/logon', Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
  end;

if pos('Выйти',StrPage)>0 then Caption:='+'
else Caption:='-';

  Memo1.Lines.Text := StrPage;
end;

[Arsenx777]

Вот пример на сайте mail! у меня работает

var
PostData, ResponseData : TStringList;
begin
PostData := TStringList.Create;
try
ResponseData := TStringList.Create;
PostData.Add('Login=name');
PostData.Add('Domain=mail.ru');
PostData.Add('Password=pass');
ResponseData.Text := IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth', PostData);
if Pos('logout',ResponseData.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
PostData.free;
ResponseData.free;
end;
end;

можно вместо

('Login=name');

и

('Password=pass');

name-поставить Tedit1 и
pass- Tedit2;

[Usov]

Все решается сравнением того что шлется с браузера и проги.

[Человек_Борща]

возможно потому что ответ сервера приходит не в совсем той кодировке, в результате вся кирилици это абра-кадабра. По этому чтобы найти "Выйти", нужно перекодировать ответ сервера в ANSI кодировку, для этого делаем так:

 StrPage:=UTF8ToANSI(StrPage);

после получения ответа.

И вообще оформляйте привильно код. Он не читабелен вообще. Делается это при помощи кнопочки
Если не поможет, то наоборот ANSItoUTF8 Обе функии есть в idHTTP модуле.

И зачем вы сами заполняете секцию Http.Request? Вы 100% уверены что она соответствует требованиям http сервера?
Возпользуйтесь HTTP Analyzer сниффером и посмотрите что посылает браузер и что посылает ваша программа. Зачастую у сайта при логине есть тучка hidden переменных которые тоже посылаются на сервер.