FiveTech Software tech support forums

karinha, gracias por su ayuda, ya no genera el resources.txt si activo SetResDebug(.t.), se genera el res.log con este contenido 487194999 FONT /*,-+0,*0/ FONT /-.,),-,/, FONT /(,./)+'0 BMP /,+'.(/.(- BMP -> ResizeImg /*)/0)).) FONT /'/..*)*(+ BMP (+,+(/*(. BRUSH /0).*(*''( BRUSH /*,-//)-/. BRUSH...

...  RELEASE ALL   SysRefresh()   HB_GCALL( .T. )   CLEAR MEMORY   IF FILE( "checkres.txt" )      FErase( "checkres.txt" )   ENDIF   CheckRes()  // CREA ...

...  DbCloseAll()   FreeResources()   Release All   SysRefresh()   HB_GCALL( .T. )   CLEAR MEMORY   CheckRes()   PostQuitMessage( 0 )   __QUIT()RETURN NIL 

No use PUBLIC en el FONT o BRUSH.

Intenta con:

Code: Select all  Expand view

   // oBrush:End()
   // oFont:End()

   ó

   RELEASE BRUSH oBrush
   RELEASE FONT oFont

   ó

   DeleteObject( oFont )
   DeleteObject( oBrush )
 

Saludos.

  DEFINE BRUSH oBrush FILE cNomFon  RESIZE                   IF oBrush <> NIL                      oMetPri:SetBrush( oBrush )                      oBrush:End()                   ENDIF  FUNCTION SALIR() IF oBrush <> NIL oBrush:End() ENDIF oMetro:End()

Y en el módulo como estás cerrando las fuentes y el brush()?

Saludos.

SET RESOURCES TO
ResAllFree( )
MEMORY( - 1 )



DbCommitAll()
DbUnLockAll()
DbCloseAll()

FreeResources()
Release All
SysRefresh()
HB_GCALL( .T. )
CLEAR MEMORY


CheckRes()


PostQuitMessage( 0 )
__QUIT()

Muestre cómo está cerrando las FUENTES o haga esto: FUNCTION Salida()   FreeResources()   SysRefresh()   RELEASE All   Hb_GCAll( .T. )   CLEAR MEMORY   PostQuitMessage( 0 )   __QUIT()...

Buen dia. Obtengo este reporte con CheckRes(), pregunto me afecta el sistema, si es así como lo soluciono 03/09/2020 09:32:46: DeleteObject( ::hBrush ) failed from TBrush:End() 437262946 03/09/2020 09:32:46: DeleteObject( ::hFont ) failed ...

I see, My advice is to put at the beginning of your main function     SetResDebug (.T.)  and before finishing the Main function      CheckRes()   Return nil  and check the file checkres.txt that is generated, to verify that it has no resources without destroying The code you ...

... sigo con el problema de recursos con harbour y me tira el .log esto : Called from PROCNAME(0) Called from FWADDRESOURCE(17) in .\source\function\CHECKRES.PRG Called from MSGPAINT3L(0) Application Internal Error - C:\sistema\villacredGestion\GESTION2018.exe Terminated at: 2019-01-31 12:58:58 recurrentemente, ...

I got the CHECKRES function data. But I do not know how to interpret. The file checkres.txt contents: 15/10/18 23:34:22: D:\ACESSOSOFT\G-AUTO\BIN\g-auto.exe -- FONT,-485879873,MAIN(185)    15/10/18 23:34:22: D:\ACESSOSOFT\G-AUTO\BIN\g-auto.exe ...

Hi James,

Nothing yet. Checkres() Always is returning na empty string, so by this way i didn't find a solution.

James,
I really have so much care with resources and good practises, as a result checkres() is returning an empty string. I will try the tool recommend by Cnavarro.

Vilian, OK, I ran a test program just to make sure that checkRes() is working. #include "fivewin.ch"Function Main()   local oDlg, oFont   setResDebug(.t.)   ferase("checkres.txt")  ...