Aplicacioón Agota Recursos Gráficos de Windows XP

[juan fco. vasquez Mendoza]

Hola,

Tengo una de mis aplicaciones compilada en FW 2.4 y CLIPPER 5.2, cuando se ejecuta muchas veces se consumen los recursos gráficos del Windows XP, entonces hay que reiniciar el equipo, quisisera saber la solución para esta versión.

Gracias,

Juan Fco. Vasquez M.
Rep. Dominicana

[Antonio Linares]

Juan,

Eso se debe a que estas dejando objetos GDI sin liberar correctamente.

Llama a la función SetResDebug( .T. ) al comienzo de tu aplicación y a CheckRes() despues de cada opción general del programa. Se generará un fichero TXT que te indica los objetos GDI que hay sin liberar.

Con FWH (FiveWin para Harbour) 32 bits este control se ha mejorado mucho y se realiza de una forma mucho más cómoda:
viewtopic.php?f=6&t=15936&start=0&hilit=gdi

[juan fco. vasquez Mendoza]

Antonio,

Esta parte del programa CHECKRES.PRG me presenta errores debido a que no poseo estos archivos de estensió H. Donde los consigo.

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>
#include <hbvm.h>
#include <windows.h>

Gracias,
Juan Fco. Vasquez M.
Rep. Dom.

[Antonio Linares]

Juan Fco.

Ese código fuente es solo para FWH 32 bits.

En FW 16 bits esta incluido, aunque mas simple, y debería funcionarte tal cual, sin añadir ese código en C.

[juan fco. vasquez Mendoza]

Hola, Antonio


Probe con las funciones que me dijeste en los post anteriores, las acepta FW para clipper, pero no me genera ningún archivo en disco. Me gustaria poder resolver esto de los recursos graficos que se consumen.

Gracias,

Juan Fco. Vasquez M.

[Antonio Linares]

Juan Fco,

Has llamado a SetResDebug( .T. ) al comienzo de tu aplicación y a CheckRes() justo antes de salir ?

Revisa todos los bitmaps, cursores, fonts, brushes, etc que uses en tu aplicación y comentanos como los usas y como los liberas (normalmente usando :End() )

[juan fco. vasquez Mendoza]

Antonio,

Use las funciones como especificaste anteriormente, pero no me genera ningun archivo, (los END, solo se lo aplico a las ventanas, a los FONT que se definen hay que aplicarles END, para cerrarlos.

Gracias,

Juan F. V.

[Antonio Linares]

Juan Fco,

Cualquier elemento GDI que se cree independientemente, ha de ser destruido usando :End(),

por ejemplo en el caso de un font:

DEFINE FONT oFont NAME ... SIZE ..., ... // Se crea

// lo usamos con un control

@ ..., ... GET ... FONT oFont

ACTIVATE WINDOW ...

oFont:End() // Se destruye

[juan fco. vasquez Mendoza]

Gracias, por tu ayuda y atenciones, estoy arreglando los programas donde falta esto.

Bendiciones para ti,

Juan Fco. V. M.
Rep. Dom.