Manejar diálogo de Internet explorer

[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;

[roman]

No entiendo. El código que muestras sólo maneja la parte del login, ¿en qué momento haces la petición del archivo?

¿Probaste la función que puse?

// Saludos

[lpedrazzi]

Empezado por roman

No entiendo. El código que muestras sólo maneja la parte del login, ¿en qué momento haces la petición del archivo?

¿Probaste la función que puse?

// Saludos

El problema es que todavía no puedo pasar del login, en teoría una vez ya iniciada la sesion me mostraría los links para descargar dichos archivos. En cuanto a la funcion me dice que el stream lo tengo que tener creado pero me salta un error con el stream me dice que no puse el seek.

asi estoy haciendo el llamado..

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  Contenido:TStream;
begin
  Descargar('http://www.alfabeta.net/md.xtp','http://www.alfabeta.net','mi_usuario','mi_pass',Contenido);
end;

[lpedrazzi]

Gente gracias a todos por su aporte la verdad es que estoy aprendiendo un montón, les comento que felizmente he podido acceder a dicho contenido la cuestion estaba en que al realizar el post me devolvia "HTTP/1.1 302 Found" Gracias seoane por brindarme la herramienta Fiddler y los conocimientos basicos de HTTP, Gracias tambien a Román por la funcion aportada, fue de mucha utilidad, solo me faltaría un detalle. El archivo que intento descargar en el idHttp1.get es un zip como hago para sacarlo del stream?, pongo el código para que vean como resolví junto a uds. el tema.

procedure TForm1.Button1Click(Sender: TObject);
var
IdHttp: TIdHttp;
Campos: TStringList;
Url, UrlInicio, Usuario, Nip: String;
Contenido: TStringStream;
begin
Campos := TStringList.Create;
try
Contenido := TStringStream.Create('');
IdHttp1.HandleRedirects := true;
IdHttp1.AllowCookies := true;
IdHttp1.HTTPOptions := IdHttp1.HTTPOptions + [hoForceEncodeParams];
UrlInicio:='http://www.alfabeta.net/md.xtp';
Campos.Values['cmd'] := 'login';
Campos.Values['stylesheet'] := 'md.xls';
Campos.Values['usuario'] := 'mi_usuario';
Campos.Values['pwd'] := 'mi_pass';
Campos.Values['y'] := '0';
Campos.Values['x'] := '0';

IdHttp1.Post(UrlInicio, Campos);
UrlInicio:='http://www.alfabeta.net/md?cmd=login&stylesheet=md.xsl&usuario=mi_usuario&pwd=miass&x=0&y=0';
memo1.Clear;
memo1.Lines.Add(IdHttp1.Post(UrlInicio, Campos));
Url:='http://www.alfabeta.net/md?cmd=download&numero=12945&producto=4';
IdHttp1.Get(Url, Contenido);
Contenido.Position := 0;
finally
IdHttp1.Free;
Campos.Free;
end;
end;

[[seoane]]

Para empezar podemos usar un TMemoryStream en vez de un TStringStream, es decir:

Código Delphi [-]
...

Contenido: TMemoryStream;
begin

 ...

Contenido := TMemoryStream.Create;

Para guardarlo solo tendríamos que hacer algo como esto:

Código Delphi [-]
Contenido.SaveToFile('c:\1.zip');