Здравствуйте,подскажите почему не работает?
Код:
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