Aplicacioón Agota Recursos Gráficos de Windows XP

Aplicacioón Agota Recursos Gráficos de Windows XP

Postby juan fco. vasquez Mendoza » Thu Dec 03, 2009 10:56 pm

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
juan fco. vasquez Mendoza
 
Posts: 84
Joined: Fri May 09, 2008 8:19 pm

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby Antonio Linares » Fri Dec 04, 2009 9:57 am

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby juan fco. vasquez Mendoza » Fri Dec 04, 2009 4:28 pm

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.
juan fco. vasquez Mendoza
 
Posts: 84
Joined: Fri May 09, 2008 8:19 pm

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby Antonio Linares » Fri Dec 04, 2009 9:03 pm

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby juan fco. vasquez Mendoza » Tue Dec 08, 2009 12:18 am

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.
juan fco. vasquez Mendoza
 
Posts: 84
Joined: Fri May 09, 2008 8:19 pm

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby Antonio Linares » Tue Dec 08, 2009 12:23 am

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() )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby juan fco. vasquez Mendoza » Tue Dec 08, 2009 12:32 am

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.
juan fco. vasquez Mendoza
 
Posts: 84
Joined: Fri May 09, 2008 8:19 pm

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby Antonio Linares » Tue Dec 08, 2009 1:20 am

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Aplicacioón Agota Recursos Gráficos de Windows XP

Postby juan fco. vasquez Mendoza » Tue Dec 08, 2009 2:06 am

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

Bendiciones para ti,

Juan Fco. V. M.
Rep. Dom.
juan fco. vasquez Mendoza
 
Posts: 84
Joined: Fri May 09, 2008 8:19 pm


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 3 guests