Form "Procesando..." que no se congele

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

[Casimiro Noteví]

Parece interesante, habrá que probarlo

[aladelta]

Muchas gracias, querido amigo, ni te imaginas lo que te agradezco tu ayuda, ahora mismo hoy a por el y a ponerme a probarlo. Si hay algun contratiempo ya comentare aqui....Mientras tanto, muchas gracias de nuevo.

[[gatosoft]]

Sobra decir amigo aladelta, que este componente es, a final de cuentas, una implementación de un Thread... asi que debes tener cuidado en QUE, COMO y CUANDO accesas... bye