TProgressBar va retrasado

[atani123]

Tengo un problema de visualizacion y no encuentro como solucionarlo. A ver si alguien sabe como hacerlo.

Supongamos esta parte de codigo (pgbfile es un TProgressBar)

Código Delphi [-]
var i, j : integer;
begin
  pgbfile.Min := 1;
  pgbfile.Max := 100000;
  for j := 1 To 5 do
  begin
    for I := 1 To 100000 do
    begin
      pgbfile.Position := I;
    end;
    sleep(1000);
    application.ProcessMessages;
  end;
  showmessage( 'fin');
end;

Vale pues el progressbar no sigue el ritmo, las cuatro primeras veces la barra solo llega hasta el 10% y vuelve a comenzar, y la ultima vez, sale el mensaje de "fin" y el progressbar aun va por el 70%.

Supongo que el tema es que el ProgressBar lleva un Thread independiente, pero es posible evitar esto y sincronizarlo exacto. Antes con Delphi 7 esto era clavado pero ahora con XE tengo este problema. Solo es estetico, pero queda muy feo que un proceso finalice cuando en pantalla la barra va por el 80%.


gracias a todos de nuevo.

[[duilioisola]]

Prueba movieno la línea Application.ProcessMessages
Será mas lento, pues por cada iteración del bucle (100.000 veces) debe verificar si hay mensajes pendientes de procesar.

Código Delphi [-]
var i, j : integer;
begin
  pgbfile.Min := 1;
  pgbfile.Max := 100000;
  for j := 1 To 5 do
  begin
    for I := 1 To 100000 do
    begin
      pgbfile.Position := I;
      Application.ProcessMessages;
    end;
    sleep(1000);
  end;
  showmessage( 'fin');
end;

Puedes mejorar el rendimiento si ejecutas esta línea solo cada n pasadas.

Código Delphi [-]
    for I := 1 To 100000 do
    begin
      pgbfile.Position := I;
      // Solo procesa esto cada 1000 iteraciones del bucle
      if (I mod 1000 = 0) then
         Application.ProcessMessages;
    end;

[atani123]

Nada tio, el resultado es el mismo, quiza avanza un poco mas, pero el resultado sigue siendo el mismo

[[duilioisola]]

He probado tu código, sin modificar y me funciona perfectamente.
Cinco veces avanza de 0 a 100% la barra de progreso.
Al final la barra está completa y sale el mensaje de "fin".

Esto me hace pensar que lo que tu tienes no es exactamente lo que has publicado aquí.
Yo solo he creado un proyecto de prueba con un ProgressBar y un botón, que en su evento OnClick ejecuta tu código.
Has la prueba con un proyecto nuevo para verificar que no se trata de alguna otra cosa que influya en tu aplicación.

También puedes porbar con Repaint.

Código Delphi [-]
    for I := 1 To 10000 do
    begin
      pgbfile.Position := I;
      pgbfile.Repaint;
    end;

[atani123]

He hecho lo que tu dices, proyecto nuevo, 2 button y un progressbar, el codigo y el resultado es el mismo, no llega al 100%.

Si pongo el repaint, si que funciona pero el tiempo se multiplica. Me puedes pasar tu exe compilado, a ver si es problema de compilacion o de procesador o tarjeta grafica.

Si puedes mandamelo a esta direccion xxxxxx@xxxxxx.xx

2 botones y y progress bar, esta es la Unit tal cual

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    pgbfile: TProgressBar;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  pgbfile.Min := 1;
  pgbfile.Max := 100000;
  for j := 1 To 5 do
  begin
    for I := 1 To 100000 do
    begin
      pgbfile.Position := I;
      pgbfile.repaint;
    end;
    sleep(1000);
  end;
  showmessage( 'fin');
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j : integer;
begin
  pgbfile.Min := 1;
  pgbfile.Max := 100000;
  for j := 1 To 5 do
  begin
    for I := 1 To 100000 do
    begin
      pgbfile.Position := I;
      Application.ProcessMessages;
    end;
    sleep(1000);
  end;
  showmessage( 'fin');
end;

end.

Gracias.

[atani123]

Nuevos datos

Si State = pbsNormal el recorrido (1 pasada) lo hace en menos de 1 segundo pero no repinta bien
Si State es pbsError o pbsPaused tarda bastante mas y repinta bien.

¿Cuanto te tarda a ti mas o menos en hacer los 100000 ciclos?