Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Manejar diálogo de Internet explorer (https://www.clubdelphi.com/foros/showthread.php?t=37442)

lpedrazzi 14-11-2006 22:30:11

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=mi:pass&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 14-11-2006 22:49:28

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 14-11-2006 23:04:48

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


La franja horaria es GMT +2. Ahora son las 08:24:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi