topic-22912

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Fuga de recursos
Posted: Fri Nov 18, 2011 09:12 PM

Hola a todos,

Cuando el usuario lleva algo asi como cinco horas trabajando salta un error tal que:
Descripcion Error: Error BASE/1004 Class: 'SYMBOL' has no exported method: ADDCONTROL
Args:
[ 1] = U SYMBOL
[ 2] = U nil NIL

Me huele que la cosa es tema de recursos; que en mi aplicacion tengo que tener un puñado de "fugas" que multiplicado por no se cuantas horas de ejecucion/navegacion por el programa produce el error.
¿ No deberia arreglarse si en el metodo :End() de la clase TDialog pusiera
FOR i:= 1 to Len(::aControls)
::aControls[i]:End()
NEXT ?

Si ya se que puede haber objetos gdi como pen, brush y otros que pueden no estar ligados al dialogo... en fin...

Vosotros, ¿ por donde empezariais a buscar ? La cosa se me hace cada vez mas urgente.
¿ Hay alguna forma de saber que objetos son y donde, en el programa se crearon ?

Saludos

lucasdebeltran

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: Fuga de recursos
Posted: Fri Nov 18, 2011 10:38 PM

hola

prueba con checkres() y setresdebug

Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Fuga de recursos
Posted: Fri Nov 18, 2011 10:55 PM

Lucas,

Es que no se bien cuando tengo que liberar los recursos;

Si yo tengo

DEFINE DIALOG oDlg

DEFINE IMAGE oImg;
OF oDlg

DEFINE FONT oFont

ACTIVATE DIALOG oDlg

Solo tengo que liberar el oFont ¿ no es asi ? Aunque viendo el codigo fwh no encuentro como libera el oImg...
A ti ¿ que te parece ?

Saludos

lucasdebeltran

Posts: 1303

Joined: Tue Jul 21, 2009 08:12 AM

Re: Fuga de recursos
Posted: Fri Nov 18, 2011 11:30 PM

hola,

después del activate deberías poner ofont:end()

y aquí tienes un ejemplo con checkres

Code (fw): Select all Collapse

// prueba 
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
   local oWndEdit, oBar, oIcon, oImage
   local cName := "FiveWin power"
   local oFont

   SetResDebug(.t.)
   DEFINE FONT oFont NAME "Arial" SIZE 10, 16

   DEFINE ICON oIcon RESOURCE "test"
   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "I am the MDI Frame" ;
      MDI ;
      MENU BuildMenu() ; // COLOR "GR+*/RB"
      ICON oIcon
   SET MESSAGE OF oWnd TO "Main Window"
   DEFINE WINDOW oWndEdit MDICHILD OF oWnd FROM 2, 2 TO 20, 50 ;
      TITLE "I am a MDI Child" COLOR "W+/R"
   @ 4, 2 GET cName OF oWndEdit SIZE 170, 25 COLOR "BG+/B"
   DEFINE BUTTONBAR oBar _3D OF oWndEdit
   DEFINE BUTTON OF oBar
   SET MESSAGE OF oWndEdit TO "Child Window"
   ACTIVATE WINDOW oWndEdit
   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Want to End ?" )

   RELEASE FONT oFont
   CHECKRES()
return nil

//----------------------------------------------------------------------------//

function BuildMenu()
   local oMenu
   MENU oMenu
      MENUITEM "&Information"
      MENU
         MENUITEM "&About..." ACTION MsgAbout( "FiveWin", "FiveTech" )
         SEPARATOR
         MENUITEM "&End..." ACTION oWnd:End()
      ENDMENU
      MENUITEM "&Child Windows"
      MENU
         MENUITEM "&Tiled" ACTION oWnd:Tile()
         MENUITEM "&Cascade" ACTION oWnd:Cascade()
      ENDMENU
   ENDMENU
return oMenu
//----------------------------------------------------------------------------//

Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Fuga de recursos
Posted: Fri Nov 18, 2011 11:36 PM

Hola

Todos los controles hijos son liberados automaticamente...

una forma util de ver el consumo de recursos es por medio del Task Manager de windows

abre el task manager -> View -> Select Columns, selecciona Gdi Object

ahora puedes ver de forma dinamica el consumo de gdi,puedes redimencionar tus pantallas para provocar el repintado de los controles, tambien puedes entrar y salir de los modulos y detectar cuanto tenias antes y despues de salir

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Fuga de recursos
Posted: Sat Nov 19, 2011 02:05 AM

Lucas y Daniel,

Gracias por vuestra ayuda; utilizando la funcion checres(), que me comento lucas, y otra que he encontrado en el foro: GetGdiObjects() he disminuido bastante el uso de recursos. Daniel: todo los que encuentro en el archivo resxxx.txt son bitmap, brush y font... claro... entonces fwh, como bien dices tu, libera los recursos "hijo" de nuestros dialogos.

Bueno... ya tengo la cosa en buen camino. De nuevo, muchas gracias a los dos.

Saludos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Fuga de recursos
Posted: Sat Nov 19, 2011 10:36 AM

hmpaquito,

Que versión de Harbour ó xHarbour estás usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Fuga de recursos
Posted: Sat Nov 19, 2011 11:45 AM

Antonio,

xHarbour 1.0.0 beta 1 (marycastaña's time)

Saludos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Fuga de recursos
Posted: Sat Nov 19, 2011 05:53 PM

Lo más aconsejable es que actualices tango xHarbour como FWH y casi seguro que esos problemas desaparecen :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Fuga de recursos
Posted: Sun Nov 20, 2011 05:22 PM

Antonio,

Gracias por el consejo. Debido a la dualidad enormidad del programa/ falta tiempo, me es, ahora mismo, muy difícil plantear actualizaciones, bien hrb, bin fwh. En cualquier caso, es algo que siempre tengo en mete.

Saludos

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Fuga de recursos
Posted: Mon Nov 21, 2011 08:53 AM

Hola de nuevo,

Una ultima cuestion. El archivo que genera CheckRes(), me muestra una cantidad de recursos...., en cambio GetGdiObjects(), o el mismisimo visor de procesos de Windows, me muestra una cantidad MAYOR, siempre.

Acaso el CheckRes() no muestra todos los recursos... ¿ qué faltaría ? ¿ quizá los handles de archivo ? Pero los handles de archivo no son gdi objects...

Saludos

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: Fuga de recursos
Posted: Tue Jul 30, 2013 01:29 PM

Hola,

"Revivo" este post porque me interesaría conocer algo sobre la función mencionada "GetGdiObjects()".

Aclaro que busqué en el foro y la única referencia que encuentro es en este post, por esto consulto: ¿existe esta función realmente?.

De ser así, por favor un ejemplo. Gracias.

Rolando

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Fuga de recursos
Posted: Tue Jul 30, 2013 02:55 PM

Rolando,

No existe la function GetGdiObjects() pero si existe la función GetGuiResources():

http://msdn.microsoft.com/en-us/library/ms683192.aspx

de todas formas solo te da el número de objetos en uso, y nada más.

Usando SetResDebug( .T. ) y CheckRes() y WinExec( "notepad checkres.txt" ) puedes ver todos los que tu aplicación no ha liberado y además te indica desde que lugar de tu aplicación cada uno de ellos se creó

regards, saludos

Antonio Linares
www.fivetechsoft.com

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: Fuga de recursos
Posted: Tue Jul 30, 2013 03:56 PM

Antonio,

Ya vengo usando SetResDebug( .T. ) y CheckRes() como indicaras hace un tiempo en otro post. Es más, la "adapté" a mis necesidades y con una tecla de función llamo a la CheckRes() y mediante un xBrowse muestro un array conteniendo la info mientras ejecuto la aplicación.

Me llamó la atención esta función "GetGdiObjects()" , que ahora sé que no existe, y por eso consultaba. Muchas Gracias.

Rolando

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Fuga de recursos
Posted: Tue Jul 30, 2013 04:13 PM

Rolando,

He vuelto a buscar por si acaso, y de casualidad he encontrado esto que tambien puede resultar muy util:

http://www.nirsoft.net/utils/gdi_handles.html

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums