[scroyler]

Здравствуйте,подскажите почему не работает?

Код:

procedure TForm2.Button1Click(Sender: TObject);
var logo:TstringList;
StrPage, ssylka:string;
begin
 ssylka:='http://borncash.com/';
 IdHTTP2.HandleRedirects:=true;
 logo:=TstringList.Create;
StrPage:=IdHTTP2.Post(ssylka, logo);
Logo.Add('lb_login=login') ;
logo.Add('lb_password=password');
logo.Add('lb_remember=true');
 if pos ('[logout]', StrPage) <>0 then
 ShowMessage('OK' )
 else
 ShowMessage('NO');
logo.free;
end;

вроде все правильно,авторизацию делал через http analyzer

[ApxaHGe1]

Ну наверное правильнее будет так

Код:

procedure TForm2.Button1Click(Sender: TObject);
var logo:TstringList;
StrPage, ssylka:string;
begin
 ssylka:='http://borncash.com/';
 IdHTTP2.HandleRedirects:=true;
logo:=TstringList.Create;
Logo.Add('lb_login=login') ;
logo.Add('lb_password=password');
logo.Add('lb_remember=true');
StrPage:=IdHTTP2.Post(ssylka, logo);
 if pos ('[logout]', StrPage) <>0 then
 ShowMessage('OK' )
 else
 ShowMessage('NO');
logo.free;
end;

А ты сначала делаешь POST запрос, потом уже данные добавляешь в logo .....

[scroyler]

Так все и было первоначально,но не работает все равно

[m1sclick]

Ты уверен что между отправляемыми данными нету никакого разделителя?
Тобиш как обычно это бывает:

Код:

Logo.Add('lb_login=login&') ;
logo.Add('lb_password=password&');
logo.Add('lb_remember=true');

[scroyler]

Все разобрался,спасибо)

[m1sclick]

Сообщение от scroyler

Все разобрался,спасибо)

Я был прав или что-то другое?

[scroyler]

Не там в другом дело)
в идшттп в редирект кое что добавили все норм)