ProgressBar+tiempo en hacer POST HTTP

[andresilvaus]

Empezado por dec

Hola,

Los componentes "ProgressBar" y "Gauge" cuentan con dos propiedades básicas en para su utilización: "MaxValue" y "Progress" -en el caso del "Gauge"-, y "Max" y "Position" en el caso del "ProgressBar". Estas dos propiedades indican el máximo valor que represente la barra de progreso, y el progreso actual, la posición actual del progreso. No dejes de revisar la ayuda para informarte sobre estas y otras propiedades.

Por otro lado, algunos componentes del paquete Indy añaden una serie de eventos para echarnos una mano a la hora de mostrar el progreso de las tareas que se llevan a cabo con ellos. Estos eventos son "OnWorkBegin", "OnWork" y "OnWorkEnd". También deberías revisar la ayuda sobre estos eventos, por supuesto.

Esto es lo que podría codificarse en el evento "OnWorkBegin" del componente "IdHttp" que estás usando:

Código Delphi [-]procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); begin Gauge1.MaxValue := AWorkCountMax; ProgressBar1.Max := AWorkCountMax; end;


"AWorkMode" indica qué está haciendo el componente: ¿está escribiendo datos (enviando) o los está leyendo (recibiendo)? Empero, como ves no tengo en cuenta este parámetro y me limito a usar "AWorkCountMax", que ha de indicar el número de "bytes" que se estiman necesarios para realizar la tarea. Este mismo número, sin más, lo usamos para las propiedades "MaxValue" y "Max" del "Gauge" y del "ProgressBar", respectivamente.

Ahora veamos el evento "OnWork":

Código Delphi [-]procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin Application.ProcessMessages(); Gauge1.Progress := AWorkCount; ProgressBar1.Position := AWorkCount; end;


Aquí como ves lo primero que hacemos es decirle a la aplicación "Oyes, procesa tus mensajes, no te quedes parada"... y aprovechamos este evento para ello puesto que será el que más se ejecute de los tres que estamos tocando, y para evitar, obviamente, que la interfaz de la aplicación "se congele". En todo caso, como ves, nos limitamos a usar el parámetro "AWorkCount", que indica el número de "bytes" leídos o escritos por el componente a la hora del evento.

Es decir, teníamos antes el máximo número de bytes que iban a ser necesarios para realizar la tarea, y ahora tenemos el número de "bytes" que llevamos leídos o escritos... y ya con esto podemos perfectamente mostrar el progreso de la tarea que estemos llevando a cabo. Como ves en el evento "OnWork" nos limitamos a establecer las propiedades "Progress" y "Position" de los componentes "Gauge" y "ProgressBar", respectivamente, con el valor de "AWorkCount".

Por último tal vez nos interese tratar con el evento "OnWorkEnd":

Código Delphi [-]procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode); begin Gauge1.Progress := 0; ProgressBar1.Position := 0; end;


Y como ves aquí no nos queda sino reinicializar a cero los valores del "Gauge" y del "ProgressBar", puesto que el trabajo (petición HTTP o POST en este caso) ya llegado a su término. Nota que estos eventos están presentes en varios componentes de Indy, no sólo en "IdHttp", y así tratar con ellos será siempre igual, sea cual sea el componente que los implemente.

Adjunto un sencillo ejemplo que descarga (pero no hace más que descargarlo) cierto programa de Internet, y va mostrando el progreso en un "Gauge" y en un "ProgressBar".

hola,

más onde está o ficheiro download? (googledestokp?)

[dec]

Hola,

más onde está o ficheiro download? (googledestokp?)

Si te entiendo bien te sorprende que descargamos el archivo (googledesktop.exe) pero este no aparece en ningún lado... y esto es porque únicamente lo descargamos "en memoria", pero, luego no lo guardamos a ningún archivo. Ten en cuenta que se trataba sólo del ejemplo, de ver funcionar a las barras de progreso, pero, nada más.

Adjunto ahora el mismo ejemplo, modificado para guardar el "googledesktop.exe" que descargamos. En realidad las modificaciones son mínimas y las muestro en negrita aquí:

Código Delphi [-]
procedure TfrmPrincipal.btnDescargaClick(Sender: TObject);
var
  fs: TFileStream;
begin
  btnDescarga.Enabled := false;
  try
    fs := TFileStream.Create(rsRutaArchivo, fmCreate);
    try
      IdHTTP.Get(rsUrlDescarga, fs);
    finally
      fs.Free;
    end;
  finally
    btnDescarga.Enabled := true;
  end;
  ShowMessage(rsFinDescarga);
end;

[andresilvaus]

my spanish is very BAD! sorry...

si, este nuevo code is work 100% (file save in c:\)!! now i'm change other directory :P ehehhe

gracias, vale!!

[BlackDaemon]

Alguna idea Dec con mi anterior post ??
Ese es el código en el que empleo la barra de progreso, pero creo que tendría que hacerlo de otra forma verdad ??
Creo que tendría que ser en el buble.

saludos

[dec]

Hola,

Disculpa, pero, pensaba que el tema quedaba solucionado.

Y la verdad es que no sé. Creo que en el código que refieres sólo hay algo extraño: destruyes el objeto "IdHttp", pero, no es lo habitual destruir objetos que "creamos" en tiempo de diseño, puesto que dejaríamos de tenerlos disponibles, además de que el propio formulario se encargará de su destrucción.

Es lo único raro, puesto que, lo que dices de que las barras de progreso "suben y bajan"... creo que es inevitable. Yo no conozco mucho los componentes conque tratamos, pero, creo que no puede evitarse ese "sube y baja", puesto que es lo que realmente está pasando, es decir, que las barras de progreso reflejan la realidad.

No sé si me explico. Si haces varias peticiones, en un corto período de tiempo, y estas se completan rápidamente (porque no requieren el transporte de muchos datos al fin y al cabo) pues verás que las barras de progreso "suben y bajan" aparentemente sin orden ni concierto, o al menos no como cuando descargas un archivo de cierto tamaño.

Pero, si todo esto que digo tiene algún sentido, insisto: creo que ese es el comportamiento que cabe esperar. Otra cosa es que convenza más o menos.

[BlackDaemon]

Hola Dec, si, si te entiedo, y sobre destruir el objeto idHTTP tienes razón, otra tontería que he cometido, pero creo que todo está bién, ya me han quedado las cosas bién claras.

saludos y gracias por todo