Повторная авторизация

[Viteef]

Всем привет. На входе файл типа URL;логин;старый пароль;новый пароль

пример

esoul.ru;kenta;123456;12341234;
esoul.ru;kenta;12341234;123456;
esoul.ru;kenta;123456;12341234;
esoul.ru;kenta;12341234;123456;

После смены пароля, сразу не получается залогиниться с новым, хотя на самом деле пароль изменен успешно.

Вот лог, после обработки примера выше:

Отчет:
Не авторизованы.
Удалось авторизоваться c паролем 123456
Отправляю данные на смену пароля
Пробую авторизоваться с паролем 12341234
Не авторизованы.
esoul.ru;kenta;123456;12341234;Не удалось авторизоваться с паролем 12341234
========================
Не авторизованы.
esoul.ru;kenta;12341234;123456 Не удалось авторизоваться Ошибка авторизации
========================
Не авторизованы.
esoul.ru;kenta;123456;12341234 Не удалось авторизоваться Ошибка авторизации
========================
Не авторизованы.
esoul.ru;kenta;12341234;123456 Не удалось авторизоваться Ошибка авторизации
========================

Сообщения о успешной смене пароля сайт не показывает, поэтому для проверки приходиться пробоваться автризоваться с новым. Кроме того как видно по логу невозможно авторизоваться даже со старым паролем. В чем проблема не знаю. И кукисы чистил, и get на страницу с logout...

функция авторизации

function TForm1.Auth;
//function Auth(url, login, pass:string):string;
var params,responseres:tstringlist;
begin
  params:=TStringList.Create;
  responseres:=TStringList.Create;
  Form1.IdCookieManager1.CookieCollection.Clear;
  params.Add('image=войти');
  params.Add('login=submit');
  params.Add('login_name='+login);
  params.Add('login_password='+pass);
    try
    idhttp1.Request.Referer:='http://'+url;
    idhttp1.Get('http://'+url+'/index.php?action=logout');
    if Pos(url+'/user/'+login,responseres.Text)>0 then
            begin
            Form1.log.Lines.Add('Не удалось разлогиниться.');
            end else Form1.log.Lines.Add('Не авторизованы.');
    idhttp1.Request.Referer:='http://'+url;
    responseres.Text:=FixString(idhttp1.Post('http://'+url+'/index.php',params));
    except
    on E:exception do
      begin
        result:=e.Message;
        exit;
      end;
    end;
  if Pos(url+'/user/'+login,responseres.Text)>0 then
            begin
            result:='ok';
            end else result:='Ошибка авторизации';
  params.free;
  responseres.free;
end;

[Квэнди]

А через некоторое время авторизация с новым паролем успешно проходит ?

[Viteef]

Через минуту - нет. Только после перезапуска.

[Sergey2]

проблемма, похоже, не тут, а где-то в остальной части проги.... попробоуй оттрасировать тупо...

[Viteef]

Вобщем, создал в этой функции динамический IdHttp и все заработало... Спасибо всем кто откликнулся.

[Виталий Серов]

Через минуту - нет. Только после перезапуска

Попробуй удалить idhttp1 и всё остальное после смены пороля, потом возрадить.
Извиняюсь за повтор, пока с сайтом возился решение уже нашли

[Квэнди]

Viteef после подобных действий надо делать Idhttp1.disconnect должно помочь.