evitar que la pantalla se ponga en blanco

[nextor]

Buen dia amigos del mejor foro de Delphi

yo como siempre molestando con preguntillas, bueno el problema que tengo es el siguiente: estoy utilizando MS SQL 2005, el componene BDE y los TQuery y TstoredProcedure con conexion ODBC, el problema es que cada vez que ejecuto un TstoredProc la pantalla se queda en blanco y windows dice que no responde, aunque se que el programa esta funcionando, el usuario cree que se trabo el programa y le da finalizar con el administrador de tareas, he intentado poner images gif de barras de proceso de todos modos la pantalla se blanquea, alguien sabe como solucionarlo?

cualquier comentario se los agradesco bastante desde ya, se que a mas de una persona nos va a ayudar

GRACIAS !!!

[[BlueSteel]]

Empezado por nextor

Buen dia amigos del mejor foro de Delphi

yo como siempre molestando con preguntillas, bueno el problema que tengo es el siguiente: estoy utilizando MS SQL 2005, el componene BDE y los TQuery y TstoredProcedure con conexion ODBC, el problema es que cada vez que ejecuto un TstoredProc la pantalla se queda en blanco y windows dice que no responde, aunque se que el programa esta funcionando, el usuario cree que se trabo el programa y le da finalizar con el administrador de tareas, he intentado poner images gif de barras de proceso de todos modos la pantalla se blanquea, alguien sabe como solucionarlo?

cualquier comentario se los agradesco bastante desde ya, se que a mas de una persona nos va a ayudar

GRACIAS !!!

Hola...

has probado con los componentes ADO.... si el problema persiste...

Tambien puedes agregar alguna barra de porcentaje.. (gauge)... es muy simple de usar...

La aplicación se pega en el mismo computador.. probastes en otro computador... puede ser por velocidad del equipo... problemas en la conexión de red... ejecución de otros programas que consuman memoria... etc...

lo ideal es que empieces a descartar que es lo que pone lento tu sistema...

Salu2

[nextor]

bueno no he probado poner la barra ya que no se como usarla, el caso es que en cualquier maquina se pone en blanco ya que se manejan muchos datos y en efecto el stored proce se tarda alrededor de 5 min ejecutandolo en el servidor, lo unico que quisiera es que la pantallita que utilizo como interfaz no se ponga blanca

Gracias por sus valiosas repuestas

[[Delphius]]

Este tipo de duda me resulta un deya-vú... Me pregunto si Jhonny se acordará . Me juego a que en tu código tienes un ciclo while o repeat.
Si estoy en lo cierto, dicho ciclo se está ejecutando indefinidamente.

Normalmente la ventana se pone en blanco cuando algo dentro de la aplicación está acaparando muchos recursos y cuando se presentan ciclos infinitos.

Saludos,

[[ElDioni]]

¿El proceso ha llegado a terminar después de los 5 minutos que comentas?, si termina y hace lo que tenía que hacer es que no entra en un bucle infinito pero 5 minutos es mucho, prueba como dice caral con objetos ado y pon un gauge o un progressbar dentro del bucle, si es que lo tienes, y también tendrás que poner dentro del bucle un application.processmessage, para que vaya refrescando la pantalla y veas la progresión de la barra.

Un saludo.

[Neftali [Germán.Estévez]]

El problema aquí, no es de bucles ni de máquina, sino que la instrucción que ejecuta tarda 5 minutos (el Exec del Stored Procedure). La ejecución del Stored es síncrona, por lo tanto el programa no continuará hasta que el stored no acabe.

Se me ocurren 2 formas de solventarlo.
La primera es que hagas unas pruebas a conectarte con ADO; El componente TADOStredProc posee una propiedad llamada ExecuteOptions con los valores:

-----------------------------------------------------------
type
TExecuteOption = (eoAsyncExecute, eoAsyncFetch, eoAsyncFetchNonBlocking, eoExecuteNoRecords);
Execute Option Meaning

eoAsyncExecute
The command is executed asynchronously.
eoAsyncFetch
The command fetches remaining rows after the initial quantity specified in the Cache property asynchronously.
eoAsyncFetchNonBlocking
Execution is performed without blocking the thread.
eoExecuteNoRecords
A command or stored procedure that does not return. If any rows are retrieved, they are discarded and not returned.

-----------------------------------------------------------

Aunque no lo he probado, me da la impresión de que te pueden servir; Tendrás que tener en cuenta eso sí, las cosas que haces (o que no puedes hacer) mientras no acabe el Stored y cómo detectar la finalización.

En segundo lugar, la otra opción es utilizar un Thread diferente para lanzar el StoredProcedure, pero me da la impresión que esto es un poco más complejo (sobre todo si no tienes experiencia con threads).

[[BlueSteel]]

Empezado por ElDioni

prueba como dice caral con objetos ado y pon un gauge o un progressbar dentro del bucle

primera vez que me confunden con el Maestro Novato...

Salu2