Page 1 of 1
Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Mon Nov 30, 2015 11:32 pm
by jmartial
Buenas noches Antonio,
¿ Tienes idea por qué el siguiente código para conocer las carpetas del SO, funciona, pero si la llamo varias veces, al final da una especie de gpf como con el problema del curdir() del anterior mensaje. ?
Creo que tiene relación con la función WideToAnsi, pero no encuentro qué puede ser. Adjunto el código problemático:
Code: Select all
HB_FUNC( CESPECIALFOLDERDOMI )
{
LPTSTR lpszPath = ( LPTSTR ) hb_xgrab( MAX_PATH );
LPSTR pAnsi;
BOOL bRet ;
// (HWND) GetActiveWindow()
bRet = SHGetSpecialFolderPath( NULL, lpszPath , (INT) hb_parni(1) , 0 );
hb_retl( (BOOL) bRet );
if ( bRet )
{
pAnsi = WideToAnsi( ( LPWSTR ) lpszPath );
if ( ISBYREF( 2 ) ) // Quitamos el Null del final
hb_storclen( ( char * ) pAnsi, MAX_PATH, 2 ) ;
hb_xfree( pAnsi );
}
else
{
if ( ISBYREF( 2 ) ) // _ vacía
hb_storclen( ( char * ) lpszPath, 0 , 2 ) ;
}
hb_xfree( lpszPath );
}
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Mon Nov 30, 2015 11:50 pm
by jmartial
Antonio,
Si después de cada llamada a la función anterior, hago una llamada a la función CESysRefresh(), ya funciona por muchas llamadas que haga.
¿De donde podrá venir el problema?
Adjunto función:
Code: Select all
HB_FUNC( CESYSREFRESH )
{
MSG msg;
if(PeekMessage(&msg, 0, 0, 0, 1))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
hb_ret();
}
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 8:33 am
by Antonio Linares
Joaquín,
Mira a ver si te genera un archivo hb_out.log y muéstrame el contenido, gracias
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 9:44 am
by jmartial
No Antonio,
No genera nada.
Si puedes decirme como generar un fichero de traza de la aplicación para poder detectar errores o pérdidas de memoria, te lo agradecería.
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 9:50 am
by Antonio Linares
El fichero hb_out.log debería generarlo Harbour automaticamente
Prueba asi:
http://wiki.fivetechsoft.com/doku.php?i ... etresdebug
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 10:57 am
by jmartial
Antonio,
En fwppc no funciona, genera este error compilando:
error LNK2001: unresolved external symbol HB_FUN_SETRESDEBUG
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 2:27 pm
by Antonio Linares
Joaquín,
Habría que añadir el módulo checkres.prg de FWH a FWPPC.
Aqui tienes el código
Code: Select all
#include "FiveWin.ch"
static aResources := {}
//----------------------------------------------------------------------------//
function SetResDebug( lOnOff ) // for backwards compatibility
return nil
//----------------------------------------------------------------------------//
function FWAddResource( nHResource, cType )
local n := 3, cInfo := ""
while ! Empty( ProcName( n ) )
cInfo += ProcName( n ) + "(" + Alltrim( Str( ProcLine( n ) ) ) + ")->"
n++
end
if ! Empty( cInfo )
cInfo = SubStr( cInfo, 1, Len( cInfo ) - 2 )
endif
AAdd( aResources, { cType, nHResource, cInfo } )
return nil
//----------------------------------------------------------------------------//
function FWDelResource( nHResource )
local nAt
if ( nAt := AScan( aResources, { | aRes | aRes[ 2 ] == nHResource } ) ) != 0
ADel( aResources, nAt )
ASize( aResources, Len( aResources ) - 1 )
endif
return nil
//----------------------------------------------------------------------------//
function CheckRes()
local cInfo := "", n
for n = 1 to Len( aResources )
if aResources[ n, 2 ] != 0
cInfo = GetModuleFileName( GetInstance() ) + " -- " + ;
aResources[ n, 1 ] + "," + AllTrim( Str( aResources[ n, 2 ] ) ) + ;
"," + aResources[ n, 3 ] + CRLF
LogFile( "checkres.txt", { cInfo } )
endif
next
LogFile( "checkres.txt", { GetModuleFileName( GetInstance() ) + " -- " + ;
Replicate( "=", 100 ) } )
return nil
//---------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <windows.h>
#include <hbapiitm.h>
#include <hbvm.h>
void RegisterResource( HANDLE hRes, LPSTR szType )
{
PHB_ITEM pRet = hb_itemNew( hb_param( -1, HB_IT_ANY ) );
hb_vmPushSymbol( hb_dynsymGetSymbol( "FWADDRESOURCE" ) );
hb_vmPushNil();
hb_vmPushLong( ( LONG ) hRes );
hb_vmPushString( szType, strlen( szType ) );
hb_vmFunction( 2 );
hb_itemReturnRelease( pRet );
}
void pascal DelResource( HANDLE hResource )
{
PHB_ITEM pRet = hb_itemNew( hb_param( -1, HB_IT_ANY ) );
hb_vmPushSymbol( hb_dynsymGetSymbol( "FWDELRESOURCE" ) );
hb_vmPushNil();
hb_vmPushLong( ( LONG ) hResource );
hb_vmFunction( 1 );
hb_itemReturnRelease( pRet );
}
#pragma ENDDUMP
//----------------------------------------------------------------------------//
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 2:36 pm
by Antonio Linares
Joaquín,
No es necesario hacer lo que te he comentado.
Simplemente no llames a la función SetResDebug(), no hace falta en FWPPC
El módulo checkres.prg ya está incluido en FWPPC
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 4:48 pm
by jmartial
Buenas tardes,
El hb_out.log cuando da gpf si lo crea, pero NO en el directorio de la aplicación, sino en el directorio raíz.
Por otro lado, a mi no me genera nada poniendo checkRes() al terminar la aplicación. No sé como se haría.
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Tue Dec 01, 2015 6:49 pm
by Antonio Linares
Has buscado el fichero checkres.txt ?
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Wed Dec 02, 2015 9:55 am
by jmartial
Hombre Antonio,
En el escritorio, en el Raíz y en la carpeta de la aplicación.
No existe.
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Wed Dec 02, 2015 7:10 pm
by Antonio Linares
Joaquín,
Como todo el código está en FWPPC\source\function\checkres.prg podrias poner una traza
en la función CheckRes() para asegurarte de que está pasando por ahí
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Thu Dec 03, 2015 7:31 pm
by jmartial
Antonio Buenas tardes,
CheckRes.txt se crea perfectamente, unicamente ha sido un error mío, tenía unos defines para depuración y no pasaba por la línea donde ejecutaba checkRes().
Gracias,
Re: Nuevo GPF en win CE 6.0 y fwppc2015
Posted: Thu Dec 03, 2015 10:02 pm
by Antonio Linares
muy bien