Form "Procesando..." que no se congele

[look]

Empezado por ContraVeneno

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

[Mauro®]

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

[roman]

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

[jmandrake]

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

[Mauro®]

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

[[felipe88]]

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

Saludos!

[roman]

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:

You do not need to use the Synchronize method for the following objects:

Data access components are thread-safe as follows: For BDE-enabled datasets, each thread must have its own database session component. The one exception to this is when you are using Microsoft Access drivers, which are built using a Microsoft library that is not thread-safe. For dbExpress, as long as the vendor client library is thread-safe, the dbExpress components will be thread-safe. ADO and InterBaseExpress components are thread-safe.

When using data access components, you must still wrap all calls that involve data-aware controls in the Synchronize method. Thus, for example, you need to synchronize calls that link a data control to a dataset by setting the DataSet property of the data source object, but you don't need to synchronize to access the data in a field of the dataset.

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