ProgressBar+tiempo en hacer POST HTTP

[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".

[BlackDaemon]

Hola Dec la verdad es que me ha gustado mucho tu explicación, haz sido muy detallista. así da dusto aprender lo he entendido todo, pero no lo he podido poner en práctica con mi aplicación, no se por que pero el ProgressBar no se mueve, la aplicación se sigue congelando miemtras está enviando/recibiendo los datos, y lo he echo igual que tu, no se.. la única idiferencia es que yo hago POST nada mas, lleno un formulario, y nada mas.. pero como lo he dicho, el progressBar no se mueve, aquí dejo mi código que tengo en los 3 eventos del componente idHTTP

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

procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Application.ProcessMessages();
  PBProgreso.Position := AWorkCount;
  gProgreso.Progress := AWorkCount;
end;

procedure TForm1.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  PBProgreso.Position := 0;
  gProgreso.Progress := 0;
end;

también he pueso un gauge, por que pensé que el problema no era el código, pero tampoco funcionó, no se que pueda ser, tampoco no entiendo por que devería afectar lo que haga con el componente idHTTP, si según lo que entiendo la barra avanzará de acuerdo a lo que el idHTTP se lo indique, osea que no tiene que afectar si uso un código o no, uso el mismo componente y tienen esos mismos eventos como dices, pero pues no se que pasará
Si es necesário pongo mi código que tengo, pero repito NO creo que sea problema del código, por que igual realiza bién el trabajo.


saludos y muchas gracias de nuevo Dec

[[seoane]]

Si la aplicación se "congela" vas a tener que usar anticongelante Y no estoy bromeando, entre los componentes Indy encontraras uno que se llama TIdAntiFreeze, colocalo sobre tu formulario y la aplicación ya no se congelara, y el código de dec debería de funcionar.

[BlackDaemon]

haha, en un principio pensé que estaba bromeando Seoane pero luego me di cuenta que no xD
Ahora con el código de Dec si que devería funcionar, pero no lo hace :S

Acabo de probar el antifreeze y dio buenos resultados por que ya no se queda así como congelado el form, pero igual me gustaría mucho que se pueda ver que tiempo tardará, y que el usuario vea el lindo ProgressBar avanzar leeeentamente miestras va por un vaso de agua

Como podrán ver tengo bién mi código, pero no he logrado hacerlo funcionar, alguna idea ?

PD Seone por cierto he visitado tu blog o web xD y esta interesante, aunque me haya gustado comentar, pero no podía, saludos y suerte

[dec]

Hola,

Bueno. Pues no sé. Si te fijas en el ejemplo que puse más arriba, mientras está descargándose el archivo todo "fluye" más o menos como se espera. Las barras de progreso se mueven como se espera y la interfaz de la aplicación no se congela. Sin embargo, haciendo unas pruebas, he hecho que el archivo que descargamos se guarde en disco y verás.

Mientras descargamos el archivo todo sigue yendo bien. Sin embargo, cuando se ha terminado de descargar el archivo y este va a ser escrito... (¿cerrado? ¿comprobado?) en el disco... son pocos segundos, uno o dos, pero, la aplicación se congela, efectivamente. ¿Y para qué demonios digo todo esto?

Pues porque me parece que acaso el mismo "HTTP POST" congele la interfaz de la aplicación, es decir, al fin y al cabo no estamos tratando con muchos bytes, supongo, es decir, que no ocurre como con el ejemplo que puse más arriba, que mientras se están descargando bytes va bien, pero, justo al terminar... la aplicación se congela.

No he probado el componente "IdAntiFreeze" (aunque lo conocía) y quizás esto solucionara el tema, empero, para mí que es algo que va un poco más allá, y que en el caso de un "HTTP POST" y acaso también dependiendo del tiempo de respuesta del Servidor que sea, la aplicación va a terminar congelándose más o menos...

Claro que nada de esto es una solución... pero, chico, ahora mismo no se me ocurre otra cosa que levantar este Hilo arriba del todo a ver si otro compañero se atreve con otra respuesta más oportuna que esta.

[BlackDaemon]

Hola:
Dec si, ya he visto y probado tu aplicación y todo anda perfecto, no necesita un anticongelante ni nada, todo lo muestra en el progresBar o el gauge, que se mueven a la par con la descarga, pero en mi caso no, no se por que, pero no quiere mostrar nada, el HTTP POST que tengo, lo tengo dentro de un bucle, pero como dije antetiormente, no creo que afecte en nada el código, pues el que hace el trabajo ahi es el idHTTP, Dec no se si será el problema mio o que sera, pero si tienes tiempo o alguien mas quisiera probarlo aquí les dejo un código con el cual rellenar un formulario por http POST

el formulario es este, es algo simple, pero que pienso que servirá a mas de uno.
http://tekkenbolivia.net/archivos/ph...ar_noticia.php

Ahora puden ver el código fuente y sacar los nombres de las variables que tenemos en nuestro envia_noticias.php como habrán podido ver.

Y aquí les dejo el código en delphi que se encarga de llenar los datos

Código Delphi [-]
procedure TFrmPrincipal.BEnviarClick(Sender: TObject);
var
  http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
  http := TIdHTTP.Create(Self);
  params := TStringList.Create;
  try
    params.Add('titulo='+ETitulo.Text);
    params.Add('autor='+EAutor.Text);
    params.Add('noticia='+MNoticia.Text);
    respuesta := http.Post('http://tekkenbolivia.net/archivos/php/noticias/envia_noticias.php', params);
    ShowMessage('Respuesta: ' + respuesta);
  finally
    http.Free;
    params.Free;
  end;
end;

para poder visualizar las noticias aqui.

http://tekkenbolivia.net/archivos/ph...cia_puesta.php

Bueno, ese no es mi código, pero el otro la única diferencia es que hace un POST a google y busca una palabra, pero en un bucle, una especie de robot google, pero mientras está buscando en google no muestra en el progresbar que tanto ya buscó, si quieren les pongo el código fuente.

saludos y gracias por las respuestas Dec

[[seoane]]

¿Donde asignas los eventos (IdHTTPWorkBegin, IdHTTPWork, IdHTTPWorkEnd) al objeto TidHttp?

[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