Form "Procesando..." que no se congele

[[felipe88]]

Probablemente sea un propio error mio, la rutina consiste en pasar datos de un ADODataset a un ClientDataset (Esto porque uso DBExpress), pero quizá la forma en que cree el thread no fuera la más optima, y en cuanto a los componentes visuales solo una grilla un progressbar y un par de botones.
Buscaré el código tal para que le demos una mirada

[roman]

Si el paso de datos lo hace en un ciclo, entonces quizá te bastaría un Application.ProcessMessages en cada vuelta.

// Saludos

[[felipe88]]

Empezado por roman

Si el paso de datos lo hace en un ciclo, entonces quizá te bastaría un Application.ProcessMessages en cada vuelta.

// Saludos

Acabo de ver el código y todo normal, como si es un cilco bastará con probar lo que dices, pero bien ¿esto no afectría el tiempo del proceso haciendo lo más lento?

Cosas que se me ocurren

Saludos!

[roman]

No lo había pensado. Es posible que así sea.

// Saludos

[[Lepe]]

ratifico lo dicho por roman. Cuando hice mis pruebas sí se ralentizaba el bucle, obvio ya que en cada ciclo tiene que "respirar".

Solución intermedia: "respirar 1 vez cada x ciclos"

Código Delphi [-]
  if i mod 10 = 0 then
     Application.processMessages

Saludos

[Casimiro Noteví]

Empezado por Lepe

[..]Solución intermedia: "respirar 1 vez cada x ciclos"[..]

Esa es una solución a la que recurro en esos casos, y funciona muy bien

[aladelta]

Hola a todos, perdon por retomar un tema tan antiguo pero creo que es mejor que crear uno nuevo puesto que me gustaria hacer un comentario sobre un problema que tengo a raiz del Thread, ya que he usado la propuesta de Roman, pero con un error inesperado ya que este error sale a intervalos irregulares, es decir, que cada vez de ejecuto el thread no me da el error ni a un numero de veces determinado...
Estoy utilizando XE2 y firebird 2.5, asi que hago una conexion con dbexpress y utilizo sus componentes de manera que en un datamodulo tengo un Tsqlquery con un Tdatasetprovider con su TClientdataset, asi que con el Thread de Roman quiero abrir el Tclientdataset pero algunas veces obtengo este error y el programa ya no muestra ningun dato o bien queda bloqueado, y me ha sido imposible poder recuperar la excepcion

error: "raised exception class EAccessViolation with message 'Access Violation at address 71998841 in module 'comctl32.dll'. Read of address 00000000'.

El codigo que uso, dentro del mismo datamodulo es este

Código Delphi [-]
  
TQueryThread = class(TThread)
  private
    tabla: TClientDataSet;
  protected
    procedure Execute; override;
  public
    class procedure Run(tabla: TClientDataSet);
  end;

implementation

uses 
{$R *.dfm}

procedure TQueryThread.Execute;
begin
  tabla.DisableControls;
  if tabla.Active then tabla.Close;
  tabla.Open;
  tabla.EnableControls;
end;

class procedure TQueryThread.Run(tabla: TClientDataSet);
var Thread: TQueryThread;
begin
  Thread := TQueryThread.Create(true);
  Thread.FreeOnTerminate := true;
  Thread.tabla := tabla;
  Thread.Start;
end;

Luego tengo un form del tipo "Procesando..." que es StayOnTop y showmodal aqui tengo la llamada al Thread que es

Código Delphi [-]
  TQueryThread.Run(dm.ventas);

Claro, el problema es el error, pero es que no se puede hacer esto porque hay algun componente que no es Thread-safe?, o alguien podria indicarme algun camino para que al abrir el Tclientdadaset que tarda unos 15 segundos, el programa no quede bloqueado y se pueda ver esta
ventana donde pone el "Procesando..."??

Muchas gracias por todo...

[[gatosoft]]

Bueno, aunque sea un tema tan viejo, siempre tendrá vigencia... Yo por mi parte manejo el tema de hilos con el componente TBackgroundWorker de www.DelphiArea.com, super-recomendados sobre todo para aquellos que no quieren complicarse con temas de hilos....


Este componente tiene cuatro eventos principales:

OnWork: Que es el hilo en si, es decir el proceso que se ejecuta cuando damso la orden de ejecución : BackgroundWorker1.Execute;

OnWorkComplete: Evento llamado cuando forzamos el fin del hilo (BackgroundWorker1.Cancel) o cuando el proceso termian normalmente.

Adicionalmente hay dos eventos intermedios, que se ejecutan para dos propósitos diferentes:

OnWorkFeedBack: envia dos parametros que peuden utilizarse para reportar una incidencia o éxito en una búsqueda... (depende).

OnWorkProgress: Envia dos parametros para controlar el avance de un progressbar por ejemplo


El componente se descarga free con un par de Demos, el de los números primos es el mas claro para entender su funcionamiento...

[cipce22]

Empezado por roman

Si el paso de datos lo hace en un ciclo, entonces quizá te bastaría un Application.ProcessMessages en cada vuelta.

// Saludos

Esto me sirviò, muchas gracias.