FiveTech Support Forums

Paco,

Mantén abierto el administrador de tareas de Windows y selecciona desde su menú el ver la memoria que consume tu aplicación y observa si va consumiendo más y más, pudiera ser eso llegando a un punto en que se cae la aplicación

Gracias antonio,

revisando cuando acceso al sistema le memoria esta en 12,000 kb aprox. con 110 handles y 250 gdi, conforme trabajo aumenta la memoria a 30,000 kb con 120 handles y hasta 530 gdi y conforme cierro procesos los gdi bajan hasta 350 pero ya no en los originales y la memoria ya no baja sino hasta 29,000 kb, es esto normal? se supone que todas las font, brush, print, bitmaps, querys todo los finalizo con end() y algunos con deleteobject()
se me paso comentar que el programa se queda en procesos (memoira) cuando lo finalizo, durante la operacion no me da problemas...
gracias
paco

Si los valores se estabilizan no hay problema, el problema viene cuando no paran de crecer. Observalo...

asi es Antonio, parece que se estabilizan en cierto punto, pero me di cuenta de una cosa por la noche se me colgo hasta para el inicio y cheque con el administrador de tareas y la memoria estaba en 540,000 kb, se me hizo raro que de pronto de estar trabajando de 28000 a 30000 kb subiera tanto, dentro del sistema actualizo un archivo .log para guardar ciertos movimientos del sistema, entonces ese archivo estaba con menos de 2mb, pero al revisarlo cuando se me colgo el sistema estaba en 191mb, entonces llego a la conclusion que por ahi puede estar el problema,
si ese archivo .log se me hace muy grande se cuelga mucho el sistema, aqui el detalle es que no detecte en que momento crecio casi 190mb,
uff muchisisisimo
alguna sugerencia?
gracias
paco

Paco,

Que contiene ese archivo log ?

Lo mantienes en memoría hasta que finalmente lo grabas en disco ?

Prueba a ir grabándolo a disco, conforme se genera, para asi saber que es lo que está ocurriendo

Antonio,
el el Main.prg tengo esto:
LOCAL cErrText := "", cErrOld := MemoRead("Cambios.log")
luego cuando accesan al sistema hago esto:
cErrText := ""
cErrText += Replicate("*",50) + CRLF
cErrText += "ACCESO AL SISTEMA" + CRLF
cErrText += "Fecha : "+Dtoc(FechaServer())+Space(18)+"Hora: "+Time() + CRLF
cErrText += "==> Usuario : (" + oApp:cIdUsuario + ") - " + oApp:cIniciales + " - " + ALLTRIM(oApp:cUsuario) + CRLF
cErrText += "==> Nivel : " + oApp:cNivel + CRLF
cErrText += Replicate("-",50) + CRLF + CRLF
cErrText += cErrOld
MemoWrit("Cambios.log",cErrText)

como se si el cambio.log se queda en memoria?

y cuando salen del sistema:
cErrText := ""
cErrOld := MemoRead("Cambios.log")
cErrText += Replicate("*",50) + CRLF
cErrText += "SALIDA DEL SISTEMA" + CRLF
cErrText += "Fecha : "+Dtoc(FechaServer())+Space(18)+"Hora: "+Time() + CRLF
cErrText += "==> Usuario : (" + oApp:cIdUsuario + ") - " + oApp:cIniciales + " - " + ALLTRIM(oApp:cUsuario) + CRLF
cErrText += "==> Nivel : " + oApp:cNivel + CRLF
cErrText += Replicate("-",50) + CRLF + CRLF
cErrText += cErrOld
MemoWrit("Cambios.log",cErrText)

gracias
paco
p.d. estoy pensando en guardar el registro de los movimientos en una tabla y olvidar este proceso del archivo .log

El problema esta en la salida del programa en este codigo:

cErrOld := MemoRead("Cambios.log")

La variable cErrOld se carga con muchas mb. de datos.

Hacerlo de forma mas adecuada, sin necesidad de cargar en una variable el contenido de Cambios.Log, seria asi:

.................
.................
hCambios:= FOpen("Cambios.Log")
FWrite(hCambios, cErrText)
FClose(hCambios)

Paco,

Si, usar una DBF te permitiría poder hacer login de todo lo que el usuario haga, procesos, etc. Es una muy buena idea

hmpaquito, no hay problema por usar MemoRead(), basta con hacer la variable a nil y la memoria usada se liberará

Paco,

La primera comprobación a hacer y que no te he comentado es controlar el consumo de objetos GDI (fonts, bitmaps, brushes, etc.), puesto que un consumo incorrecto de objetos GDI puede acabar tirando una aplicación. Para ello lo primero que debes hacer es llamar a esta función al inicio de tu aplicación:

SetResDebug( .T. )

y justo antes de salir de tu aplicación llamar a:

CheckRes()

esto te generará un fichero checkres.txt en donde te aparecen los objetos GDI que no se han destruido ( llamando al método :End()) correctamente en tu aplicación, ó porque sea un error de programación en alguna clase, etc. Por favor haz esto y muestra aqui su contenido

Antonio,

Es cierto que no debe haber problema en cargar una variable string con muchas mbs. desde un memoread().
Pero en lo que yo pensaba es que ese memoread() más la siguiente concatenación de una string ENORME se produce en un momento "delicado" del programa: al salir del mismo.

¿ Qué puede pasar si se le manda el PostQuitMessage() a la aplicación, y justo en ese momento la aplicación empieza a hacer el memoread() que es de muchas mbs. más además la concatenación a la cadena obtenida que es enorme ? Pues me imagino que lo que está pasando: mucho tiempo de proceso y la aplicación termina como ventana pero en cambio se queda "pillada" leyendo el memoread() y concatenando; ya a partir de ahí el comportamiento, que quede abierta como tarea, es totalmente incontrolado. Esa es mi teoría.

Saludos

He utilizado esta function desde hace tiempo, y hasta el momento no he tenido problemas.

//--------------------------------
Function CrlProceso(cCadena)
local cFile := (cPathDef)+"\Bitaco.txt", nHand
local cCad:=Dtoc(date())+" "+time()+": "+cCadena
local FO_READWRITE:=2, FO_SHARED:=64 , FS_END:=2 //Fileio.ch

if !file(cFile)
nHand := FCreate( cFile ) // creamos el archivo
FWrite(nHand, cCad + CRLF+"") // escribimos en el archivo
FClose(nHand) // cerramos el fichero
else
nHand := FOpen( cFile, FO_READWRITE + FO_SHARED ) // abrimos el fichero lect-escrit-compartido
FSeek(nHand, 0, FS_END) // nos colocamos al final del fichero
FWrite(nHand, cCad + CRLF+"") // escribimos en el fichero
FClose(nHand) // cerramos el fichero
endif

//WinExec("NotePad.exe "+cFile)
SysRefresh()
Return nil

Saludos.

Antonio,
probando el
SetResDebug( .T. )

y justo antes de salir de tu aplicación llamar a:

CheckRes()

revisando el .txt se quedaban abiertos como 6 fonts y 14 bitmaps de unos menus, corregi el programa, volvi a ejecutar y parece que todo vuelve a la normalidad, esto me arroja el checkres.txt
20/02/2012 12:31:35: ====================================================================================================

de cualquier forma a hmpaquito y mi tocayo, por ahi me parece buena su sugerencia del fope,fwrite y fclose, voy a probar, por lo pronto el programa ya no se queda cogado en memoria, seguire haciendo pruebas
gracias
saludos
paco