topic-17531

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Liberar Recursos
Posted: Wed Dec 02, 2009 01:51 AM

Estimados:
la consulta es si ahora, compilando con xHarbour, es recomendable para los casos de:
h1:oImgLst:= TImageList():New( 32, 32 )
h1:oImgLst:AddMasked( TBitmap():Define( "bmp_AgrMov",, oWndAd ), nRGB( 255, 0, 255 ) )
...
o,
h1:ahBmp[1]:= LoadBitmap( GetResources(), "bmp_Alerta" )

o, idem para FONTs

hacer luego:
h1:oImgLst:End()
DeleteObject( h1:ahBmp[1] )

o, como es mi caso, que las variables declaradas son todas static y a su vez de tipo Hash() (dentro de un prg.); no es necesario y cierro el programa sin las llamadas a las respectivos liberadores

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Liberar Recursos
Posted: Wed Dec 02, 2009 07:34 AM

Mario,

Usa este código para comprobar los recursos que te falten por liberar:

viewtopic.php?f=6t=15936p=82506hilit=objetos+gdi#p82506

&&&

regards, saludos

Antonio Linares
www.fivetechsoft.com

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Liberar Recursos
Posted: Wed Dec 02, 2009 09:30 AM

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Liberar Recursos
Posted: Mon Dec 07, 2009 01:29 PM

Antonio; vuelvo con este tema

Tome el sample toolbar4.prg y lo compile junto a rescheck.prg. Me arroja el siguietne error:

Code (fw): Select all Collapse

Applicación
___________________________________________________

Ubicación y Nombre     : D:\Fuen32\Pru32\toolbar4.exe (32 bits)
Tamaño de la Aplicacion: 1,731,072 bytes

Estación de Trabajo: VIAS_M1
Usuario en Sesión: mariog
Ocurrido el:    07 DIC'2009
Ocurrido a las: 10:19:31
Transcurrido desde el inicio: 0 hours 0 mins 0 secs 

Descripción de Error generado: 
___________________________________________________

Error BASE/1068  Error de argumento: acceso al array
   Args:
     [   1] = N   0
     [   2] = N   1


Llamadas al Stack:
___________________________________________________

Llamado desde:  BITMAP.prg TBITMAP:DEFINE(249)
Llamado desde:  toolbar4.prg CREABARRA(28)
Llamado desde:  toolbar4.prg (b)MAIN(14)
Llamado desde:  DIALOG.prg TDIALOG:INITIATE(691)
Llamado desde:  DIALOG.prg TDIALOG:HANDLEEVENT(855)
Llamado desde:   DIALOGBOX(0)
Llamado desde:  DIALOG.prg TDIALOG:ACTIVATE(264)
Llamado desde:  toolbar4.prg MAIN(14)

Esto ocurrió con tan solo incluir rescheck, o sea, sin llamar a ninguna de las funciones propuestas.
Lo compilo con el buildxh.bat poniendo al final de Toolbar4, #include "rescheck.prg"

Algo que este haciendo mal?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Liberar Recursos
Posted: Mon Dec 07, 2009 03:07 PM

Mario,

Te funciona samples\Toolbar4.prg sin añadirle el código de control de handles GDI ?

Que versión de FWH estás usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Liberar Recursos
Posted: Mon Dec 07, 2009 11:08 PM

Antonio
efectivamente si solo compilo toolbar4.prg se ejecuta

Uso FWH 2.7 Dec 2005

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Liberar Recursos
Posted: Tue Dec 08, 2009 12:21 AM

Mario,

Puedes mostrarnos que código tienes en ?

BITMAP.prg TBITMAP:DEFINE(249)

gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Liberar Recursos
Posted: Tue Dec 08, 2009 10:33 AM

El código en bitmap.prg: (15/12/25005)

Code (fw): Select all Collapse

247   if ! Empty( cResName )
248      aBmpPal    = PalBmpLoad( cResName )
249      ::hBitmap  = aBmpPal[ 1 ]
250      ::hPalette = aBmpPal[ 2 ]
251      cBmpFile   = nil
252   endif

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Liberar Recursos
Posted: Tue Dec 08, 2009 11:03 AM

Mario,

Para la versión de FWH que usas, prueba a cambiarlo asi:

Code (fw): Select all Collapse

if ! Empty( cResName )
   ::hBitmap  = PalBmpLoad( cResName )
   ::hPalette = 0
   cBmpFile   = nil
endif

regards, saludos

Antonio Linares
www.fivetechsoft.com

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Liberar Recursos
Posted: Tue Dec 08, 2009 01:30 PM

Lo pruebo y te comento

gracias, Antonio

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion