Form "Procesando..." que no se congele
 

Hola gente del foro.
Tengo un pequeño problema que no se como resolver.
Resulta que en mi aplicación tengo que ejecutar unas Query's que demoran entre 1 a 3 minutos en ejecutarse por la cantidad de datos que deben recoger.
He colocado una form con un "Procesando..." en la cuál quiero mostrar una pequeña animación, pero la cuestión es que cuándo se ejecuta la Query se congela todo, la aplicacion y la animación, hasta que esta termina de ejecutarse y muestra los datos.
Alguien tiene idea que puedo hacer para que no se quede estatica de mi Form y el usuario piense por ello que todo se tildó.

Desde ya muchas gracias.
Saludos para todos.
Mauro;-)

utiliza Application.ProcessMessages , utilizalo en los procesos de ejecucion que son algo largos, esto actualiza la vista del formulario, mas bien le da un respiro a tu aplicacion... :)

Lo he probado...
 

Amigo Look, gracias por responder.
He probado el Application.ProcessMessages, pero no funciona, se congela todo igualmente... O bien lo estoy aplicando mal.
lo utilizo así por ej.
miQuery.open;
Procesar.show;
Application.ProcessMessages

Voy a seguir probando.

Gracias nuevamente.
Saludos.
Mauro :)

el problema aqui radica en que la consulta tarda un tiempo en ejecutarse, y hasta que termine de ejecutarse la query, esta devuelve el form.
no se que tal alocado sea pero puedes poner un timer y asignarle un determinado tiempo, en el evento on timer pones el application.p...
esto actulizara tu aplicacion cada sierto tiempo... prueba y me cuentas como te fue..:)

Timer...
 

No amigo, justo estaba probando eso del timer. Pero tampoco funciona.
:(

Ya veremos como lo podemos solucionar.
Muchas gracias por las respuestas.
Saludos

bueno en ese caso porq no simplificas las consultas , y las ejecutas en porciones , algo como:

querytal.ExecSQL;
applicacion.proc...
querytal.ExecSQL;
applicacion.proc...
querytal.ExecSQL;
applicacion.proc...
querytal.active...

puede que funcione... :)

Dos Alternativa: Hilos de Ejecusion y/o Procedimiento Almacenados
 

Es importante al momento de plantear tu dudas o problema que revise la guia de estilo.

Cuando habla de que esta usando un Query entendemos que esta ejecutando proceso contra un servicio de base de datos, asi que seria bueno que informe sobre cual motor de base de datos estas usando (SQL Server, Firebird, MySQL, PostgreSQL, etc). Asi podriamos saber por donde viene la cosa.

Si esta usando un Motor de Base de datos que soporta procedimiento almacenados, te sugiero que, si ese query es algo complejo y se relaciona con varias tablas algo gorda, que mejor metas el query en un procedimiento almacenado que devuelva un set de dato, en SQL Server se le llaman Function y en Firebird Store Procedure; esto haria que la sentencia se ejecute mucho mas rapido y no tarde, evitando asi que se te congele la ventana.

La otra alternativa es meter el proceso en donde lanza el query dentro de un hilos de ejecusion (threads). Si no ha trabajado con Threads solo tiene que dentro del IDE de Delphi presionar F1, dedicar unos minutos a revisar la ayuda que te muestra y veras como te hace todo un experto.

Saludo, espero haber sido util...

creo que la mejor opción sería crear hilos de ejecución (THreads)
http://www.clubdelphi.com/foros/show...28&postcount=8

pues se ve muy interesante el tema de los Threads , una buena oportunidad para aprender algo nuevo, tal parece q esta es la mejor opcion, jeje y yo con mis novatadas... bueno hoy he aprendido otra cosa.. :)

Respuestas...
 

Gracias antes que nada por las ideas y respuestas.
Lamento no haber sido lo suficientemente específico con respecto a la expliación de mi problema, es que pensaba era algo más sencillo.
En realidad lo que estoy ejecuntando es un Procedimiento Almacenado contra un servidor Interbase 7.5.
El tamaño de las tablas y la cantidad de datos a analizar hacen que el store Proc sea lento. Esta seleccionando registros de tablas con las de 3000000 de registros, y es solo la venta de 1 año y no puedo dividir la misma.
Igualmente analizare el tema de los THreads.
Muchas gracias de antemano a todos.

Saludos,
mauro.-

Aquí un ejemplito:

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

implementation

procedure TQueryThread.Execute;
begin
  Query.Open;
end;

class procedure TQueryThread.Run(Query: TQuery);
var
  Thread: TQueryThread;

begin
  Thread := TQueryThread.Create(true);
  Thread.FreeOnTerminate := true;
  Thread.Query := Query;
  Thread.Resume;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  TQueryThread.Run(Query1);
end;

// Saludos

Creo que con el Ejemplo de Roman se cierra el Hilo...
 

:) Mejor ejemplo sencillo y facil de como utilizar un thread que el mostrado por Roman no puede haber...

Para mucho preguntar aqui le resulta mas comodo que presionar F1...jeje

Muchas Gracias
 

Roman, muchas gracias por el ejemplo.
Intentaré utilizarlo, pero antes tratando siempre de leer la Ayuda (F1). Generalmente siempre antes de preguntar, investigo en el foro y google.... Quizas esta vez no encontre nada que lo solucionara o me orientara a la solución.
Desde ya gracias a todos los que han respondido.
Looke, Roman, JMandrake... Saludos a todos y mucho suerte.
Mauro.-

Hola,
Román, a mi me pasó algo curioso con un código igual a tu ejemplo donde ejecuto unas multiples inserciones aunque no mediante SQL; todo muy bien hasta ahi, pero si cambias a otra ventana e intentas regresar a esta, pues ya aparece frita :D.
Ahora bien, si el trabajo con la base de datos se hace en otro thread, ¿como sería la mejor forma de evitar que se bloquee el principal? :confused:

Saludos!

En realidad no sé, Felipe.

Se supone que un hilo no puede interactuar con componentes de la VCL y esto incluye componentes de acceso a datos como un Query, aunque el manual dice:

por lo que parece que el Query está a salvo.

Hice una pequeña prueba con dos ventanas y no tuve problema, pero había que ver con más detalle qué estás haciendo tú. Quizá estés interactuando de alguna manera con componentes visuales o que no son thread-safe.

// Saludos

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 ;)

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? :confused:

Cosas que se me ocurren :rolleyes::D

Saludos!

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

// Saludos

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

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

buenas tardes roman primeramente perdon por revivir un hilo viejo y otra disculpa por hacerte una consulta directa, estoy un poco enredado con esto de los hilos :eek: y los querys, ya tengo el codigo un .exe que se encuentra en el server que segun yo seria el encargado de ejecutar los querys que atacan a las bd de access y mysql, pero me he dado cuenta que no podra funcionar asi por el empalme de peticiones de maquinas diferentes, he leido que puedes mandar la conexion y los querys por medio de hilos pero no logro encontrar informacion de ocmo hacerlo, con esto segun yo se quitara mi problema te agradeceria cualquier manual o referencia que me puedas proporcionar mil gracias.


//codigo del .exe server donde truena la aplicaion

Código Delphi [-]
procedure TFrm_Interfaces.ServerExecute(AThread: TIdPeerThread);
var
  ActClient, RecClient: PClient;                                                                              
  CommBlock, NewCommBlock: TCommBlock;
  RecThread: TIdPeerThread;
  i: Integer;
begin
  if not AThread.Terminated and AThread.Connection.Connected then
  begin
    AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));
    ActClient := PClient(AThread.Data);
    ActClient.LastAction := Now;  // update the time of last action
 //*****************************************Interfaz Aldelo********************************************
         md_Gral.Con_Gral.Connected:=false;
         md_Gral.Con_Gral.Connected:=true;
         Md_Gral.Qry_VerIntAld.close;
         Md_Gral.Qry_VerIntAld.Open;
         if  Md_Gral.Qry_VerIntAld.FieldByName('status').Value=1 then
         begin
          //Busca que no tenga customerid
          Qry_BusCusID.Close;
          Qry_BusCusID.Parameters.ParamByName('nconf').Value:=CommBlock.nconf;
          Qry_BusCusID.Open;

          if Qry_BusCusID.FieldByName('customerid').IsNull then
          begin
            try
             Md_Gral.Con_Aldelo.Connected:=true;
            except
              ShowMessage('Mistake to Try establish The Conection With The ALDELO Server');
              Md_Gral.Con_Aldelo.Connected:=false;
              exit;
             end;

              Md_Gral.Con_Aldelo.BeginTrans;
             try
               Qry_Busowner.close;
               Qry_Busowner.Parameters.ParamByName('aowner').Value:=Qry_BusCusID.fieldbyname('aowner').Value;
               Qry_Busowner.Open;

               Qry_Aldelocustomerfiles.Close;
               Qry_Aldelocustomerfiles.Parameters.ParamByName('customername').Value:=midstr(Qry_Busowner.fieldbynam  e('nombre').Value, 1, 30);
               Qry_Aldelocustomerfiles.Parameters.ParamByName('phonenumber').Value:=Qry_BusCusID.fieldbyname('ncvec  onf').Value;
               Qry_Aldelocustomerfiles.Parameters.ParamByName('rowguid').Value:='{'+Qry_Busowner.fieldbyname('nombr  e').Value+'-'+inttostr(Qry_BusCusID.fieldbyname('ncveconf').Value)+'}';
               Qry_Aldelocustomerfiles.ExecSQL;
               Md_Gral.Con_Aldelo.CommitTrans;
             except
               on E:Exception do Md_Gral.Con_Aldelo.RollbackTrans;
             end;//try

               //Md_Gral.Con_Aldelo.BeginTrans;
               //Busca el customerid
               Qry_AldeloBusCustomerFiles.Active:=false;
               Qry_AldeloBusCustomerFiles.SQL.Clear;
               Qry_AldeloBusCustomerFiles.SQL.Text:='SELECT CustomerFiles.CustomerID FROM CustomerFiles where  phonenumber='+QuotedStr(Qry_BusCusID.fieldbyname('ncveconf').Value);
               //showmessage(Qry_AldeloBusCustomerFiles.sql.Text);
               Qry_AldeloBusCustomerFiles.Active:=true;
               //************************
               
               //Md_Gral.Con_Aldelo.CommitTrans;
              try
               Md_Gral.Con_Aldelo.BeginTrans;
               Qry_AldeloCustomersCreditAccounts.close;
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('customerid').Value:= Qry_AldeloBusCustomerFiles.fieldbyname('customerid').Value;
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('firstname').Value:=midstr(Qry_Busowner.fie  ldbyname('sfirst').Value, 1, 15);
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('lastname').Value:=midstr(Qry_Busowner.fiel  dbyname('slast').Value, 1, 15);
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('totalcreditlimit').Value:=20000.00;
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('creditaccountstatus').Value:='1';
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('rowguid').Value:='{'+midstr(Qry_Busowner.f  ieldbyname('nombre').Value, 1, 40)+'-'+inttostr(Qry_BusCusID.fieldbyname('ncveconf').Value)+'}';
               Qry_AldeloCustomersCreditAccounts.Parameters.ParamByName('creditaccountexpiredate').Value:= FormatDateTime('dd/mm/yyyy',IncDay(Qry_BusCusID.fieldbyname('ddeparturedate').Value,2));
               Qry_AldeloCustomersCreditAccounts.ExecSQL;
               Md_Gral.Con_Aldelo.CommitTrans;
              except
               on E:Exception do Md_Gral.Con_Aldelo.RollbackTrans;
              end;//try

              //inserta en reserva
              Qry_AldeloModResCreAcc.close;
              Qry_AldeloModResCreAcc.Parameters.ParamByName('customerid').Value:=Qry_AldeloBusCustomerFiles.fieldb  yname('customerid').Value;
              Qry_AldeloModResCreAcc.Parameters.ParamByName('ncveconf').Value:=Qry_BusCusID.fieldbyname('ncveconf'  ).Value;
              Qry_AldeloModResCreAcc.ExecSQL;
              //inserta en reserva
            Md_Gral.Con_Aldelo.Connected:=false;
          end;
         end;
      //*****************************************Interfaz Aldelo********************************************
      //**************codigo del boton de Frm_posgue boton Btb_Inh
      Protocol.Lines.Add (TimeToStr(Time)+' !! "'+CommBlock.MyUserName+'": '+CommBlock.Command);
      NewCommBlock.Command := 'DIALOG';       // the message should popup on the client's screen
      NewCommBlock.MyUserName := '[Server]';  // the server's username
      NewCommBlock.Msg := 'The process was done  ';  // the message to show
      NewCommBlock.ReceiverName := '[return-to-sender]'; // unnecessary

      AThread.Connection.WriteBuffer (NewCommBlock, SizeOf (NewCommBlock), true);  // and there it goes...
    //end;
  end;
end;

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

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

Parece interesante, habrá que probarlo :)

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.

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

Funcionó
 

Esto me sirviò, muchas gracias.