Ver Mensaje Individual
  #15  
Antiguo 13-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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

Última edición por roman fecha: 13-11-2006 a las 22:21:51.
Responder Con Cita