Не получается авторизоваться на сайте ucoz

[corsar1991]

пробую подключиться вот так

procedure TForm1.Button1Click(Sender: TObject);
  var data:tstringlist;
  a,S:string;
begin
Reg := TRegExpr.Create; // Парсер
IdHTTP1.CookieManager:=IdCookieManager1;
IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
 S:=IdHTTP1.get('http://contra-source.clan.su/');
   Reg.Expression := 'name="rnd" value="(.*?)"';
      if Reg.Exec(S) then a:=Reg.Match[1];
      memo1.Lines.Add(''+a);
 data:=tstringlist.create;
 data.Add('user='+edit1.text); // логин для авторизации
 data.Add('password='+edit2.text);  // пароль для авторизации
 data.Add('rem=1');
 data.Add('a=2');
 data.Add('ajax=1');
 data.Add('rnd='+a);
 data.Add('_tp_=xml');
  IdHTTP1.post('http://contra-source.clan.su/index/sub/',data);
   IdHTTP1.get('http://contra-source.clan.su/');
 if Pos('Выход,'http://contra-source.clan.su/')>0 then
 begin
   Memo1.Lines.Add('авторизовались');
  end
 else
  Memo1.Lines.Add('Не авторизовались ');

 Data.Free;

end;

но не получается.Помогите буду очень очень благодарен...

[Кольша]

подключите idcookiemanager и IdHTTP1 выставте все свойства отвечающие за куки

[corsar1991]

вот так?

procedure TForm1.Button1Click(Sender: TObject);
  var data:tstringlist;
  a,S:string;
  CM    : TidCookieManager;
begin
Reg := TRegExpr.Create; // Парсер
IdHTTP1:=TIdHTTP.Create(Self);
  CM := TidCookieManager.Create(IdHTTP1);
IdHTTP1.CookieManager := CM;
IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
  IdHTTP1.Request.Host:='contra-source.clan.su';
    IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
    IdHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    IdHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    IdHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    IdHTTP1.Request.Referer:='http://contra-source.clan.su/';
 S:=IdHTTP1.get('http://contra-source.clan.su/');
   Reg.Expression := 'name="rnd" value="(.*?)"';
      if Reg.Exec(S) then a:=Reg.Match[1];
      memo1.Lines.Add(''+a);
 data:=tstringlist.create;
 data.Add('user='+edit1.text); // логин для авторизации
 data.Add('password='+edit2.text);  // пароль для авторизации
 data.Add('rem=1');
 data.Add('a=2');
 data.Add('ajax=1');
 data.Add('rnd='+a);
 data.Add('_tp_=xml');
  IdHTTP1.post('http://contra-source.clan.su/index/sub/',data);
   IdHTTP1.get('http://contra-source.clan.su/');
 if Pos('Выход','http://contra-source.clan.su/')>0 then
 begin
   Memo1.Lines.Add('авторизовались');
  end
 else
  Memo1.Lines.Add('Не авторизовались ');

 Data.Free;

end;

всеравно не получилось

[aalekss83]

Значит не судьба вам явно)

[BDA]

Весь код проверить не могу (нету аккаунта там, а регистрировать лень).
Но: if Pos('Выход','http://contra-source.clan.su/')>0 then
Это что такое?
Вы ищете слово 'Выход' в строке 'http://contra-source.clan.su/', а его там нету
Возможно, вы уже давно авторизовались.

Update

IdHTTP1.post('http://contra-source.clan.su/index/sub/',data);
IdHTTP1.get('http://contra-source.clan.su/');

Зачем?
Просто пишите:

s:=IdHTTP1.post('http://contra-source.clan.su/index/sub/',data);
if pos('Выход', s)>0...

И не забывайте о кодировке (в Дельфи cp1251, на сайте, скорее всего, UTF8).

[shadowgm]

ну че, получилось?

[BDA]

shadowgm, вряд ли corsar1991 ответит "Последняя активность: 08.07.2013 21:15".

[shadowgm]

Принял)))))