Progreso mientras carga datos...

[[cHackAll]]

Empezado por jarlos

...cuando cargo data con muchos detalles, la aplicación [n]se paraliza[/n]...

Bueno amigo jarlos... lo que sucede es bastante simple, y te lo explico; la librería que está dando soporte al .AVI (el que te permite verlo) es la winmm.dll mediante la unidad MMSystem del Delphi (si estas utilizando DirectShow es prácticamente el mismo caso)… éstas librerías son solo una interfaz que permiten al codex adecuado (como su nombre lo dice), poder decodificar el formato del .AVI y así producir los frames (cuadros de imágenes consecutivos), de video y sonido. Para realizar dichas operaciones; éstas librerías crean un grupo de hilos en el proceso que así lo solicita indirectamente. Lo que significa que tu hilo principal (el que maneja tu ventana), mientras anda ocupado comunicándose vía OLE al motor de la BD (y que en dicha acción ni si quiera le permite procesar los mensajes para refrescar la ventana), los hilos creados por el sistema multimedia se encargan de permitir al usuario visualizar el video como si estuviese “separado” del proceso afectado.

Y bueno, sin intentar dar mas vueltas en la causa, te adjunto la solución que está basada en la creación de un hilo, el cual a su ves crea una ventana del cual los mensajes son procesados en el mismo. Lo que responde exactamente a aquellos problemas causados por un hilo principal “ocupado”. El modo de empleo es simple;

Código Delphi [-]
var Rect: TRect;
begin
 Rect := BoundsRect;
 BusyStatus('Sistema ocupado, por favor espere...', @Rect);
...

Procura que la función BusyStatus sea llamada justo antes del inicio del problema, el la misma unidad "detectará" cuando debe "ocultarce", y si quieres utilizar la unidad en otros momentos te sugiero que lo utilices (por ejemplo) al momento en que esta en plena creación tu aplicación:

Código Delphi [-]
  BusyStatus('Inicializando el sistema...');
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
…
  Continue;
  Application.Run;

"Función Continue, creada para aquellas aplicaciones que no utilizan GUI o cuando no funciona por no tener controles, o simplemente para asegurar un funcionamiento adecuado"

De seguro será de utilidad y una base para solucionar otro tipo de problemáticas de la misma índole.

Saludos!

[courtois]

En el evento OnFetchProgress de los componentes ADO te da Progress y MaxProgress que corresponden a "donde va" y "hasta donde llega", respectivamente

[maro]

Hola,

Si estás tarbajando en 3 capas con Capas sql y capas clientes usando TClientdataset para la consulta de datos es normal que te suceda esto.

Si tu consulta retorna un número considerable de registros, es lógico que durante un cierto tiempo, la capa cliente se quede esperando una respuesta de la capa SQL.

Para estos casos te recomiendo implementar un procedimiento auxiliar que "obtenga" los datos por bloques de registros y los valla adjuntando a un tClientDataset final.

El resultado final es más lento, pero el usuario no tiene la sensación de que su aplicación se ha colgado, además de que puedes poner un gauge indicando el progreso de la operación. Una vez finalizado el proceso podrás manipular como siempre el tClientdataset final.

Ten en cuenta que cuando ejecutas una consulta de datos con un tClientDataset, éste no conoce el número de registro que se le retornará de la capa SQL y no te puede dar información sobre esto.

Igualmente, cuando un tClientadataset recibe un conjunto de registro, no los va recibimiento de uno en uno, ni de "x" en "x" registros, sino, que recibe un "paquete" que contiene la respuesta de la capa SQL, incluyendo estructura de la tabla, restricciones, formato de campos, etc... y por último los registros solicitados.

Un Saludo.

[juniorSoft]

Hola a todos, he encotrado esta conversacion y quisiera ver un pequeño ejemplo de como se haria lo mensionado en tres capas . gracias ante todo

[capo979]

este mensaje va para [cHackAll]

Probe _Busy y lo uso antes de hacer una consulta que me tarda el tema es que lo unico que hace es mostrar el cartel y lo que indica que esta haciendo algo que esta de verde no mueve, tenes alguna idea de que puede ser

saludos