Ver Mensaje Individual
  #3  
Antiguo 23-09-2020
amadis amadis is offline
Miembro
 
Registrado: may 2005
Ubicación: San José, Colón, Entre Ríos, Argentina
Posts: 315
Reputación: 20
amadis Va por buen camino
Muchas gracias, estudiaré el link que mencionas.

Aprovecho para comentar que había logrado ejecutar el hilo de la siguiente forma.

En realidad son 4 querys que ejecuto, uno tras otro aunque es indistinto.

Entonces hice un procedimiento por cada query y dentro del hilo los ejecuto a todos.

Código Delphi [-]
AniIndicator1.Enabled := True;
  Timer1.Enabled := True;
  Button1.Enabled := False;

  TThread.CreateAnonymousThread(procedure
      begin
        Q1;
        Q2;
        Q3;
        Q4;
        TThread.Synchronize(TThread.Current, procedure
          begin
            //mostraba progreso
          end);
      end;
      TThread.Synchronize(TThread.Current, EndProgress);
    end).Start;

De esa forma el tocar el boton que ejecuta ya se largaban los 4 querys en carrera, funciona, pero no se cuando terminan. Me iba dando cuenta porque como sincroniza una tabla contra el clientdataset remoto estaba viendo los cambios, pero era tal cual carrera. Todos corriendo a la par.
Responder Con Cita