Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=369250&view=findpost&p=3248147 Tue, 11 Dec 2012 07:07:53 +0000 IdHttp.Get() возвращает пустоту https://forum.sources.ru/index.php?showtopic=369250&view=findpost&p=3248147 Куки и HandleRedirects включены.

Прицепил к IdHTTP компоненту для логирования TIdLogFile.
Посмотрел RequestHeaders у FireFox`a и указали эти же параметры у IdHTTP.
В лог сохраняется информация. Файл занимает ~134 Kb.

Вторая строка из лога:
Цитата
Recv 10.12.2012 23:04:49: HTTP/1.1 302 Moved Temporarily<EOL>Date: Mon, 10 Dec 2012 21:04:47 GMT<EOL>Server: Apache/2.2.17 (Unix) DAV/2 mod_fastcgi/2.4.6 mod_ssl/2.2.17 OpenSSL/0.9.8e<EOL>X-Powered-By: PHP/5.2.17<EOL>Set-Cookie: PHPSESSID=696b102ba4f354ce18d3388a106afcbd; path=/<EOL>Expires: Thu, 19 Nov 1981 08:52:00 GMT<EOL>Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0<EOL>Pragma: no-cache<EOL>Set-Cookie: cityid=3; expires=Tue, 10-Dec-2013 21:04:47 GMT; path=/<EOL>Location: /dnepropetrovsk/list.php?r=101<EOL>Transfer-Encoding: chunked<EOL>Content-Type: text/html<EOL><EOL>

дальше идёт информация вроде нужная, т.к. вижу в логе обрывки текста с названиями меню и т.д.


Вот что меня волнует: HTTP/1.1 302 Moved Temporarily

    procedure TForm11.Button2Click(Sender: TObject);
    var
     lData: TMemoryStream;
     s: string;
     
    begin
      lData := TMemoryStream.Create;
      IdHTTP1.Get(Edit1.Text, lData);
      lData.Seek(0, 0);
      lData.SaveToFile('d:.txt');
      lData.Free;
    end;



файл d:\22.txt полностью пустой, 0 байт!

Хочу скачать пару страничек отсюда: aviso.ua/dnepropetrovsk/list.php?r=101

DXE2, Indy10.5.8 (та версия, что входит в поставку Delphi XE2)

P.S. Не хотелось бы устанавливать и изучать доп. компоненты типа ICS, Synapse.]]> X11 Delphi: Сетевое программирование