6 replies to this topic

[Gaston]

Hola, de seguro me está faltando algo que escapa a mis conocimientos. Quiero mostrar un contador, un mensaje o una barra de progreso mientras actualizo una tabla, el problema es que me actualiza la tabla y luego aparece el mensaje o lo que fuese que llame, es decir, no sirve. Primero probé con un formulario, como no dio resultado pensé en poner un label no visible en el form y hacerlo visible cuando se actualiza y de paso mostrar la cantidad de registros a procesar de modo que quede: Calculando Saldos, por favor espere: Registro: 1 de 200.

El label9 tiene el texto 'Calculando Saldos, por favor espere: Registro:'

delphi

procedure TfrmReg.btnCalcSaldosClick(Sender: TObject);
var
  banco:Integer;
  sqltxt:String;
  saldo:Currency;
  actual, ultimo:Integer;
begin
  Label9.Visible:=true;
  Label10.Visible:=true;
  saldo:=0;
  sqltxt:='SELECT * FROM reg WHERE banco='+IntToStr(cmbBanco.KeyValue)+
  ' ORDER BY banco, fecha, id;';
  actual:=0;
  DataM.ZQSaldos.Close;
  DataM.ZQSaldos.SQL.Text:=sqltxt;
  DataM.ZQSaldos.Open;
  DataM.ZQSaldos.First;
  ultimo:=DataM.ZQSaldos.RecordCount;
  WHILE NOT DataM.ZQSaldos.EOF DO
  begin
    actual:=actual+1;
    Label10.Caption:=IntToStr(actual)+'de '+IntToStr(ultimo);
    saldo:=saldo+DataM.ZQSaldos.FieldByName('debitos').AsCurrency-DataM.ZQSaldos.FieldByName('creditos').AsCurrency;
    DataM.ZQSaldos.Edit;
    DataM.ZQSaldos.FieldByName('saldo').AsCurrency:=saldo;
    DataM.ZQSaldos.Post;
    DataM.ZQSaldos.Next;
  end;
  ShowMessage('Finalizado');
  Label9.Visible:=false;
  Label10.Visible:=false;
  DataM.ZQGridReg.Close;
  DataM.ZQGridReg.Open;
  DBGrid1.Refresh;
end;

Con este código cuando se hace click en el botón Actualizar saldos el botón queda presionado, actualiza y luego hace visible los labels y un showmessage que puse ahí para probar.

Lo que pretendo es primero muestre el label9 y luego entre al while, pero no entiendo por qué no lo hace. Tema aparte es el tiempo que tarda, unos 4 segundos con apenas 50 registros, pero ese es otro tema.

 

Saludos.

[Gaston]

Perdón pero estuve toda la tarde con este tema sin encontrarle la vuelta, lo posteo acá y a los 15 minutos encuentro la solución, intenté eliminar el post pero creo que no se puede, entonces comento que lo que me faltaba era simplemente un

delphi

Application.ProcessMessages;

Es decir quedó el while de esta forma:

delphi

WHILE NOT DataM.ZQSaldos.EOF DO
  begin
    ProgressBar1.Position:=actual;
    Application.ProcessMessages;
    actual:=actual+1;
    Label10.Caption:=IntToStr(actual)+'de '+IntToStr(ultimo);
    saldo:=saldo+DataM.ZQSaldos.FieldByName('debitos').AsCurrency-DataM.ZQSaldos.FieldByName('creditos').AsCurrency;
    DataM.ZQSaldos.Edit;
    DataM.ZQSaldos.FieldByName('saldo').AsCurrency:=saldo;
    DataM.ZQSaldos.Post;
    DataM.ZQSaldos.Next;
  end;

Eso sí, es terriblemente lento, así que si alguien ve algo que me pueda estar ocasionando esa lentitud, me avisa.

 

Saludos. 

[Agustin Ortu]

Es que ese codigo se ejecuta de manera secuencial. Osea, para que se entienda, se ejecuta todo de un "plumazo". Lo que vos necesitas es tener "dos bloques" de codigo ejecutandose al mismo tiempo. La forma de lograr esto es usando hilos (Threads)

 

Toda aplicacion Delphi/FreePascal, tienne un hilo principal, o main thread. A grandes rasgos y en windows (no creo que sea muy diferente en otra plataforma), es este thread el que recibe todos los mensajes del sistema operativo tales como: minimizar form, mostrar form, pintar form, ocultar form, presionar boton, etc.

 

Osea, aunque te parezca que una aplicacion no esta haciendo nada, en realidad esta haciendo mucho: constantemente dibuja todos los controles, estos tambien responden a cosas como "el mouse esta encima" (que pasa cuando pones el puntero sobre un boton? este "cambia" visualmente)

 

Ahora bien, si vos pones codigo a ejecutar para que haga algo, y este tarda, la aplicacion esta "trabada" en ese punto y no puede hacer todo lo demas. Por eso parece tildada. Ni siquiera podes moverla si queres arrastar el form, ni maximiar, minimizar, nada de nada. En realidad todo eso va quedando guardado en una cola de mensajes que maneja el sistema operativo, y despues tu aplicacion va a ir desencolando y procesando uno por uno. Osea tu aplicacion, cuando no esta haciendo "nada" o tiene "tiempo libre" saca un mensaje de esa cola y lo procesa. Eso es justamente lo que hace el Application.ProcessMessages

 

La solucion "correcta" es crear otro hilo que se dedica a realizar calculos o lo que fuera, dejando el hilo principal para que continue su trabajo. 

 

No te recomiendo para nada Application.ProcessMessages. Aca y aca tambien mas info. Respuesta corta: no lo hagas porque en muchos casos puede ocasionar problemas dificiles de encontrar en el largo plazo

 

Te di un panorama mas o menos teorico y explicado de forma "amigable" de que sucede tras los bastidores, porque ejemplos de como escribir Threads en Delphi y FPC creo que sobran. Ahora, te advierto que la programacion concurrente (en cualquiera de sus formas) es un arte, pero como todo arte, muy apasionante

[Gaston]

Hermoso balde de agua fría jaja

Gracias Agustín, entiendo lo me decis, me leí los links y todos coinciden con lo que vos muy bien me explicas. La solución sería crear otro hilo que ejecute la actualización de la tabla y muestre la barra de progreso, al menos es lo que entendí.

El tema es que no es algo simple de implementar y requiere tiempo de estudio y práctica. Ahora me conformaría con poder poner un cartel que diga 'Espere, procesando datos' y mientras tanto deshabilito el Form para que el usuario no pueda tocar nada. Es esto posible de implementar de manera sencilla?

[apexcol]

Prueba con información los métodos DisableControls y EnableControls del DataSet, pues probablemente estés ingresando con el DBGrid conectado, y mientras Windows intenta actualizar la pantalla, se presenta lentitud... aquí un ejemplo...

 

DBGrid1.DataSource.DataSet.DisableControls;

 

{metes todo el proceso arriba descrito}

 

DBGrid1.DataSource.DataSet.EnableControls;

 

un consejo... es más rápido Inc(actual) que actual := actual + 1;

[luk2009]

I'm not dead, just busy!

 

revisa este hilo, por si te sirve de ayuda

Enviado desde mi KFFOWI mediante Tapatalk

[poliburro]

Para situaciones de este estilo lo mejor es usar Threads....