Не подскажете в чем проблема?
вот сама авторизация проходит нормально
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | procedure TForm1 . Button4Click(Sender: TObject);
var
st: TStringList;
s: string ;
begin
st:=TStringList . Create;
st . Add( 'login=Ashot8636@yandex.ru' );
st . Add( 'password=666333' );
st . Add( 'module=1' );
st . Add( 'repage=user' );
st . Add( 'act=login' );
if pos( 'Не удалось' ,s)> 0 then ShowMessage( 'Fail!' ) else ShowMessage( 'Succesful!' );
st . Free;
end ;
|
но при переходе в любую часть сайта, авторизации нет, куки включены indy 9
P.S. логин для пример рабочий