Manejar diálogo de Internet explorer

[[seoane]]

Puede que el problema no sea la dirección si no la Sesión o las Cookies. Si copias y pegas directamente esa dirección en un navegador ¿puedes bajar el archivo?, o por el contrario necesitas abrir primero otra pagina para poder acceder a la descarga del archivo. Si es así, date una vuelta por el hilo de Automatización Web del compañero Al, donde intentamos hacer algo parecido

[roman]

Bueno, peroooo... esta telepatía

[lpedrazzi]

si copio y pego esa direccion me da un error por eso usé anteriormente idhttp con el método post poniendo usuario y contraseña, pero aparentemente cuando se ejecuta el post no me devuelve la pagina en donde están dichos enlaces...

[[seoane]]

Si ya hablamos de temas de autenticación reitero mi propuesta de que leas el post sobre Automatización Web, allí encontraras consejos sobre como utilizar el componente IdHttp para que acepte cookies, redirecciones, etc. Tampoco dices que te esta devolviendo, solo dices que no es lo que tu esperabas pero seria interesante si se trata por ejemplo de algún mensaje de error.

Y por ultimo te recomiendo una herramienta que te puede ser muy útil

http://www.fiddlertool.com/fiddler/

con ella podrás echarle un vistazo a la comunicación entre el explorador y la pagina que te interesa y asi saber mejor como reproducirlo.

[roman]

Mira a ver si te sirve esta función que hice:

Código Delphi [-]
(**
 * Descarga un recurso http
 *
 * @param Url - recurso a descargar
 * @param UrlInicio - url de la página para iniciar sesión
 * @param Usuario, Password - usuario y contraseña para autenticación
 * @param Contenido - Stream que recibe los datos, debe estar ya creado.
 *)
procedure Descargar(const Url, UrlInicio, Usuario, Nip: String; Contenido: TStream);
var
  IdHttp: TIdHttp;
  Campos: TStringList;

begin
  IdHttp := TIdHttp.Create;
  Campos := TStringList.Create;

  try
    IdHttp.HandleRedirects := true;
    IdHttp.AllowCookies := true;
    IdHttp.HTTPOptions := IdHttp.HTTPOptions + [hoForceEncodeParams];

    Campos.Values['usuario'] := Usuario;
    Campos.Values['nip'] := Nip;

    IdHttp.Post(UrlInicio, Campos);

    IdHttp.Get(Url, Contenido);
    Contenido.Position := 0;

  finally
    IdHttp.Free;
    Campos.Free;
  end;
end;

// Saludos

[lpedrazzi]

Muchas gracias comienzo a probar y te comento.

[[seoane]]

Empezado por lpedrazzi

Quisiera saber si sabes de que se trata este valor que me devuelve
SESSIONID=amXCdPaluGH4s29AL7.. sera la cookie session para validar el login?

Exactamente esa cookie se utiliza para identificar la sesión. La cosa funciona así, la primera vez que acedes a la pagina, este te devuelve la cookie con un identificador. Tu navegador cada vez que accedes a esa misma pagina o a otra del mismo sitio, manda esa cookie, de esa forma el servidor puede rastrear la sesión. Si cierras el navegador y vuelves a acceder a la pagina, el servidor mandara un identificador diferente para identificar la nueva sesión.

Ahora pensemos en un ejemplo. Accedemos a la pagina de login, entonces recibimos una cookie con el identificador de sesión. Enviamos el nombre de usuario y contraseña por POST, y también enviamos la cookie. Ahora estamos identificados en esa sesión, de esta forma cada vez que accedamos a una pagina en ese servidor en esa misma sesión el servidor sabrá que estamos logueados.

Esto puede parecer complicado, pero es tan simple como decirle idHttp que acepte cookies, o usar Wininet. Ellos se encargaran de manejar las cookies sin que tengas tu que hacer nada.

[lpedrazzi]

Empezado por seoane

Exactamente esa cookie se utiliza para identificar la sesión. La cosa funciona así, la primera vez que acedes a la pagina, este te devuelve la cookie con un identificador. Tu navegador cada vez que accedes a esa misma pagina o a otra del mismo sitio, manda esa cookie, de esa forma el servidor puede rastrear la sesión. Si cierras el navegador y vuelves a acceder a la pagina, el servidor mandara un identificador diferente para identificar la nueva sesión.

Ahora pensemos en un ejemplo. Accedemos a la pagina de login, entonces recibimos una cookie con el identificador de sesión. Enviamos el nombre de usuario y contraseña por POST, y también enviamos la cookie. Ahora estamos identificados en esa sesión, de esta forma cada vez que accedamos a una pagina en ese servidor en esa misma sesión el servidor sabrá que estamos logueados.

Esto puede parecer complicado, pero es tan simple como decirle idHttp que acepte cookies, o usar Wininet. Ellos se encargaran de manejar las cookies sin que tengas tu que hacer nada.

Amigo aqui esta el pedacito e código que estoy intentando implementar sin conseguir resultados positivos aun, he puesto las propiedades en true del idhttp1 para haceptar las cookies, me parece que ahora estoy fallando en lo que envío en el post, el action de la etiqueta del form dice action="/md" method="post" como debería armar el post...en el fiddler me figura

http://www.alfabeta.net/md-downloads...mdat=miusuario

Código Delphi [-]
var
datosPost: TIdMultiPartFormDataStream;
begin
datosPost := TIdMultiPartFormDataStream.Create;
try
datosPost.AddFormField('cmd', 'login');
datosPost.AddFormField('stylesheet', 'md.xls');
datosPost.AddFormField('Usuario', 'mi_usuario');
datosPost.AddFormField('pwd', 'mi_contraseña');
datosPost.AddFormField('x', '0');
datosPost.AddFormField('y', '0');
try
idhttp1.AllowCookies := true;
idHttp1.Request.Referer := 'http://www.alfabeta.net/md.xtp';
memo1.Clear;
memo1.lines.Add(idHttp1.Post('http://www.alfabeta.net/md.xtp', datosPost));
finally
idHttp1.Free;
end;
finally
datosPost.Free;
end;