Manejar diálogo de Internet explorer

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

[lpedrazzi]

GRACIASSSSS!!!!! seoane SOS UN M A E S T R O!!!