Неправильная авторизация на сайте?

[grafgrial]

Пытаюсь авторизоваться на этот сайт, с таким вот кодом

<form action="http://bt.bashtel.ru/./login.php" method="post">
            Имя: <input name="login_username" size="12" tabindex="1" accesskey="l" type="text">
            Пароль: <input name="login_password" size="12" tabindex="2" type="password">
            <label title="Автоматически входить при каждом посещении"><input name="autologin" value="1" tabindex="3" type="checkbox"> Запомнить</label>&nbsp;

            <input name="login" value="Вход" tabindex="4" type="submit">
         </form>

строка из парсера

POST /login.php login_username=user&login_password=1230123&login=%C2%F5%EE%E4

Вот так подключаюсь, но когда перехожу на Form'у2 то снова требует авторизации

function Authorization_bt(Login, Pass: string): string;
var
  Source, Post: TStringList;
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  Http.HandleRedirects := True;
  Http.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.5.24 Version/10.53';
  Source := TStringList.Create;
  try
    Source.Text := Http.Get('http://bt.bashtel.ru');
  finally
    if Pos('Вы зашли как:', Source.Text) = 0 then begin
      ShowMessage('авторизуюсь...');
      Post := TStringList.Create;
      Post.Add('login_username='+ Login);
      Post.Add('login_password=' + Pass);
      if Form1.chk1.Checked=false then Post.Add('') else Post.Add('autologin=1');
      Post.Add('login=%C2%F5%EE%E4');
      Source.Text := Http.Post('http://bt.bashtel.ru/./login.php', Post);
      if Pos('Вы зашли как:', Source.Text) <> 0 then
        begin
        //ShowMessage(Пошло!');
        end
      else
        ShowMessage('Нет...');
      Post.Free;
    end else Result := 'Пошло,Пошло!!!!';
    Form1.Hide;
    Form2.show;
  end;
  Source.Free;
end;

[Voody]

Что значит "переходите на Form2"?
У вас авторизация в компоненте Http в функции Authorization_bt. Всё, что за пределами этой процедуры, будет вне авторизации, т.к. Http - локальный компонент

[grafgrial]

как мне тогда на форме2 в компоненте webbrowser1 зайти на страницу которую можно просматривать только после авторизации

[Voody]

Передать куки из TIdHTTP в webbrowser1 это вообще что-то нереальное)

[grafgrial]

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

Передать куки из TIdHTTP в webbrowser1 это вообще что-то нереальное)

Это издевка? Или так нужно сделать. Если нужно сделать то как куки прописываются в webbrowser1?

[Voody]

это не издевка, это реальность.
главный вопрос как раз

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

как куки прописываются в webbrowser1?

раз webbrowser использует движок IE, то и куки использует от IE
Теперь ваша задача найти, как можно засунуть куки в IE

[grafgrial]

Где профессионалы по работе с сетью?

[Voody]

Internet Explorer сохраняет данные cookies в виде отдельных текстовых файлов в папке Cookies, расположенной в профиле пользователя.

пробуйте .

[grafgrial]

не могу понять. куки отсылаются но авторизация не идет
Предоставлю код и данные с http analyzer может кто-то поймет в чем дело
код немного изменил

function Authorization_bt(Login, Pass: string): string;
var
  Source, Post: TStringList;
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  Http.HandleRedirects := True;
  http.AllowCookies := true;

  http.Host:='bt.bashtel.ru';
  Http.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2) Gecko/20100115 Firefox/3.6 ( .NET CLR 3.5.30729)';
  HTTP.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  HTTP.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
  http.Request.AcceptEncoding:='gzip,deflate';
  HTTP.Request.AcceptCharSet :='windows-1251,utf-8;q=0.7,*;q=0.7';
  Http.Request.RawHeaders.Values['Keep-Alive']:='115';
  HTTP.Request.Connection := 'Keep-Alive';
  http.Request.Referer:='http://bt.bashtel.ru/index.php';
  HTTP.Request.CustomHeaders.Add('Cookie: mycook_showshoutbox=0');
  Http.CookieManager:=TIdCookieManager.Create(Form1.idckmngr1);
  HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
  Http.Request.ContentLength := 56;

  Source := TStringList.Create;
  try
   // Source.Text := Http.Get('http://bt.bashtel.ru');
  finally
    if Pos('Вы зашли как:', Source.Text) = 0 then begin
     // ShowMessage('Не авторизированы, авторизируемся...');
      Post := TStringList.Create;
      Post.Add('login_username='+ Login);
      Post.Add('login_password=' + Pass);
      if Form1.chk1.Checked=true then Post.Add('autologin=1');
      Post.Add('login=Вход');
      Source.Text := Http.Post('http://bt.bashtel.ru/login.php', Post);
      if Pos('Вы зашли как:', Source.Text) <> 0 then
        begin
        //ShowMessage('Авторизация прошла успешно!');
        //HTTP.Request.CustomHeaders.Clear;
        Http.Get('http://bt.bashtel.ru/index.php');
        Form1.Hide;
        Form2.show;
        Form2.mmo1.Text:=Source.Text;
        Form2.mmo2.Text:=Http.Response.RawHeaders.GetText;
        end
      else
        ShowMessage('Авторизироваться не вышло...');
      Post.Free;
    end else Result := 'Мы авторизированы!';
  end;
  Source.Free;
end;

При работе в браузере

01sait.jpg
______________________
02sait.jpg

В программе (почему то 3 запроса)

01my.jpg
______________________
02my.jpg
______________________
03my.jpg

[Voody]

У вас три запроса, потому что после первого происходит переадресация. Уберите второй запрос