Descargar archivo con redirección

[voci]

Saludos a todos, estoy intentando bajar un archivo de una página, debo decir que el navegador lo descarga sin falta de ninguna intervención.

Como no se si está permitido escribir la dirección de la web no la pongo directamente, además la web necesita trabajar con una cookie de sesión y por supuesto utiliza el método de redireccionamiento.

Este es el código que implemento:

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHttp: TIdHttp;
  Contenido: TMemoryStream;
  Url: String;
Begin
  Contenido := TMemoryStream.Create;
  IdHttp.HandleRedirects := true;
  IdHttp.AllowCookies := true;
  Url:='http://xxxxxx.com?id=xxxxxxx&key=yyyyyyy';
  IdHttp.Get(Url, Contenido);
  Contenido.SaveToFile('C:\archivo.rar');
  Contenido.Free;
  IdHttp.Free;
end;

Pero cuando miro el archivo creado veo que es el código html de la página web donde se encuentra la descarga en vez del archivo propiamente dicho.

Gracias a todos.

[[seoane]]

El problema puede ser que la descarga del archivo se inicie por medio de javascript, como el componente TIdHttp no interpreta el contenido de lo que descarga y mucho menos los scripts que contiene, no es capaz de iniciar la descarga del archivo.

Lo primero seria saber como se inicia realmente esa descarga, para eso analiza el código fuente de la pagina web. Si aun así no encuentras lo que buscas, utiliza un proxy para analizar la comunicación entre el navegador y el servidor web. Un buen proxy es http://www.fiddlertool.com/

[voci]

Estoy mirando la comunicación entre el navegador y el servidor web con el programa que comentas, de momento no he conseguido aclarar nada pero sigo intentando comprender alguno de los parámetros que devuelve dicho programa.

Gracias.

[dec]

Hola,

Tengo dudas acerca de lo que entendemos como "redireccionamiento". Si se trata de que al acceder a un determinado recurso de la Red, el Servidor indica que este se encuentra en otro lugar, al que se dispone a redireccionarnos, si se trata de esto, digo, el propio componente "TIdHttp" puede hacerse cargo de las redirecciones HTTP:

Código Delphi [-]
IdHTTP1.HandleRedirects := true;

Incluso podemos especificar un máximo de redirecciones antes de considerar perdido al archivo que requerimos:

Código Delphi [-]
  IdHTTP1.RedirectMaximum := 5;
  IdHTTP1.HandleRedirects := true;

[voci]

Si, precisamente a eso me refiero, he credo un simple programa que utilizo para descargar pequeños ficheros y cuando falla la descarga, como es el caso de esta dirección intentar comprender el motivo.

Lo que comentas lo tengo contemplado en el código, bueno el RedirectMaximum lo he elevado un poco:

Código Delphi [-]
IdHTTP1.RedirectMaximum := 15;

Gracias por el interés.