Buenas Tardes Foro, una consultilla 
Tengo una aplicaci贸n en un punto de informaci贸n que est谩 constantemente ejecutandose. La pantalla principal es un dialogo asociado a una ventana que est谩 esperando a que pasen una tarjeta para que el sistema la valide. En funci贸n de la validaci贸n muestro un msgwait con la informaci贸n correspondiente. La aplicaci贸n est谩 terminada, ahora la estoy depurando, y me encuentro con un problema y es que cada vez que se ejecuta un msgwait, desde el administrador de tareas veo que el consumo de la aplicaci贸n crec铆a. Para buscarle una soluci贸n temporal, me he creado esta funci贸n que hace de msgwait, pero con fonts y un poco m谩s grande el di谩logo:
Viendo que el problema no se solucionaba, le a帽ad铆 la ultima l铆nea que v茅is
El problema sigue, y lo que me preocupa es que al ser una aplicaci贸n que est谩 constantemente ejecutandose, llegar谩 un momento, en que se pueda colapsar la memoria.
驴Sab茅is como puedo solicionar el problema?
Muchas Gracias a todos de antemano.
Tengo una aplicaci贸n en un punto de informaci贸n que est谩 constantemente ejecutandose. La pantalla principal es un dialogo asociado a una ventana que est谩 esperando a que pasen una tarjeta para que el sistema la valide. En funci贸n de la validaci贸n muestro un msgwait con la informaci贸n correspondiente. La aplicaci贸n est谩 terminada, ahora la estoy depurando, y me encuentro con un problema y es que cada vez que se ejecuta un msgwait, desde el administrador de tareas veo que el consumo de la aplicaci贸n crec铆a. Para buscarle una soluci贸n temporal, me he creado esta funci贸n que hace de msgwait, pero con fonts y un poco m谩s grande el di谩logo:
function BigMsg(Linea1,Linea2,Linea3,nSeconds,cTitulo)
local odlg, oSay1,oSay2,oSay3,ofont,i
default linea1:=""
default linea2:=""
default linea3:=""
default nSeconds:=5
default cTitulo := oConfiguracion:Titulo_Aplicacion
define font ofont name "Tahoma" size 0,35
define dialog odlg resource "BIGMSG" colors CLR_BLUE, RGB( 231,242,255 ) title cTitulo
redefine say oSay1 var Linea1 id 101 of odlg font ofont
redefine say oSay2 var Linea2 id 102 of odlg font ofont
redefine say oSay3 var Linea3 id 103 of odlg font ofont
oSay1:ltransparent:=.t.
oSay2:ltransparent:=.t.
oSay3:ltransparent:=.t.
activate dialog odlg center nowait
for i = 1 to 2595000*nSeconds
next i
odlg:end()
oFont:end()
hb_gcAll()
returnViendo que el problema no se solucionaba, le a帽ad铆 la ultima l铆nea que v茅is
hb_gcAll()El problema sigue, y lo que me preocupa es que al ser una aplicaci贸n que est谩 constantemente ejecutandose, llegar谩 un momento, en que se pueda colapsar la memoria.
驴Sab茅is como puedo solicionar el problema?
Muchas Gracias a todos de antemano.
