Delphi Studio » Вопросы и ответы по Delphi » Получение URL из IdHTTP »

 
 
 
Приветствуем нового пользователя: Viktor_itp
 
Реклама на сайте

Получение URL из IdHTTP

Автор: Lepto | 26-04-2011, 23:42 | Просмотров: 96 | Категория: Вопросы и ответы по Delphi

4
Получение URL из IdHTTP

Авторизация на сайте вида
url:=url+'/reg/login2.php?login='+LabeledEdit_Login.Text+'&pass='+LabeledEdit_Pass.Text;
PageProfile:=Form1.IdHTTP1.Get(url);

Когда вбиваешь это в браузер, то он переходит на URL вида
.....index.php?page=overview&session=abf63c2ca56e&kid=&lgn=1

как можно ее получить из Tidhttp? То есть, чтобы он тоже после попытки Авторизации переходил или выводил ссылку, что и браузер
Прямая ссылка на страницу: HTML ссылка: Ссылка для форумов:
Теги: Авторизация, URL, IdHTTP, Браузер, Delphi
  • Распечатать
  • 0
 (голосов: 0)
А также:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
<
  • Публикаций: 574
  • Комментариев: 21
  • ICQ: 858106
  • OffLine

SkyLine32

  • Группа: Администратор
  • Регистрация: 12.04.2010
  • Добавлено: 27 апреля 2011 00:08
 
Lepto,
лично у меня нет перехода на главную после авторизации. вот сам проверь.
procedure TForm12.Button1Click(Sender: TObject);
var
  s: string;
begin
IdHTTP1.HandleRedirects := true;
  s := IdHTTP1.Get(
    'http://uni103.ogame.ru/game/reg/login2.php?logi
n=Lepto&pass=19903387');
  Memo1.Lines.Add(s);
end;

в Memo именно твоя страница

<
  • Публикаций: 2
  • Комментариев: 7
  • ICQ: --
  • OffLine

Lepto

  • Группа: Посетитель
  • Регистрация: 24.04.2011
  • Добавлено: 27 апреля 2011 00:10
 
Проблема решена... Можно удалять..

<
  • Публикаций: 574
  • Комментариев: 21
  • ICQ: 858106
  • OffLine

SkyLine32

  • Группа: Администратор
  • Регистрация: 12.04.2010
  • Добавлено: 27 апреля 2011 00:12
 
Lepto,
так в чем была проблема?

<
  • Публикаций: 2
  • Комментариев: 7
  • ICQ: --
  • OffLine

Lepto

  • Группа: Посетитель
  • Регистрация: 24.04.2011
  • Добавлено: 27 апреля 2011 02:16
 
В Мемо
<script>document.location.href='http://ogame.ru'</script

>

Это переход на главную)

Вот решение))

procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.HandleRedirects := true;
IdHTTP1.Get('http://uni103.ogame.ru/game/reg/login2.php?login=Lepto&pass=19
903387');
end;

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
Memo1.Lines.Add(idhttp1.Response.Location);
end;

Так смешно стало, когда допёр)) Мне просто нужен был ID Сессии))
Вот что появляется в Мемо
/game/index.php?page=overview&session=16e905fae837&kid=&lgn=1

Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
 
-й день
Онлайн:

Delphi Studio

Авторы сайта: SkyLine32 & FeniXElite
 2010-2011 © Delphi Studio
Наверх
rss