VPF::Определить адрес после редиректа

aldari

Дата 11.8.2007, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

Здраствуйте, уважаемые программисты!

Я хочу дописать в свой код возможность определения текущего
адреса после запроса(если сервер меня переправил куда-нибудь).

Код


// первый параметр URL, во второй запоминаем страницу которая приходит на запрос
procedure URLGet(const URL: AnsiString;var pagebody:AnsiString);
var
 HTTP:TidHTTP;
 body:TStringList;
begin
  HTTP:=TidHTTP.Create(nil);
  body:=TStringList.Create;
  try
    // разрешаем перенаправление
    HTTP.HandleRedirects:=true;
    //запрос
    body.Add(HTTP.Get(URL));
    if body.Count<>0 then
      begin
        // помещаем результат запроса в pagebody
       pagebody:=body.Text;
       //здесь как-нибудь узнать откуда я скачал страницу ведь меня перенаправили!
      end 
   finally
     HTTP.Free;
     body.Free;
   end;
end;

По документации следует, что необходимо обратиться к свойству IdHTTP->Response->Location.
Но как я не тистировал это поле всегда остаётся пустым ''. Как мне решить задачу?

Это сообщение отредактировал(а) aldari - 12.8.2007, 16:50

Matematik

Дата 16.8.2007, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Цитата(aldari @ 11.8.2007, 18:40

)

По документации следует, что необходимо обратиться к свойству IdHTTP->Response->Location.
Но как я не тистировал это поле всегда остаётся пустым

Правильно. Оно перезаписывается.
Попробуй посмотреть параметры
idhttp1.Request.URL
idhttp1.URL.URI

aktuba

Дата 17.8.2007, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

В OnRedirect сохраняй адрес.

--------------------

aldari

Дата 19.8.2007, 10:47 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 5.3.2007

Репутация: нет
Всего: нет

2 Matematik, aktuba
Спасибо вам большое! smile

Извините, что долго не отвечал, надо было попробывать и решить вопросы, которые я не осветил здесь.

Код выглядит теперь так:

Код


    body.Add(HTTP.Get(URL));
    if body.Count<>0 then
      begin
        // помещаем результат запроса в pagebody
       pagebody:=body.Text;
       Location:=http.URL.Protocol+'://'+http.URL.Host+http.URL.Path;
      end

Правильно, обращаться надо к свойству URL.
Если HandleRedirects в false, то получаем новый адрес и делаем запрос в OnRedirect.

Еще раз спасибо!

diablist

Дата 11.12.2007, 22:51 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 6.12.2007

Репутация: нет
Всего: нет

Блин не могу допереть.
Напишите плиз простой пример такого:
Я жму на кнопку, там такое событие:
IdHTTP1.Get('http://www.site.ru/downloads/file.exe');
Теперь оно должно определить что редерект на ftp://site.ru/downloads/file.exe и начать закачку уже отсюда (я так понимаю

Код


IdFTP.get();

)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »