de C a xHarbour

[Antonio Linares]

Pablo,

Ok, ya vi lo que pasa SPP_DEVICE_INFO es un puntero. Tenemos que usar SP_DEVICE_INFO:

Code: Select all  Expand view

HB_FUNC( SFNTGETDEVICEINFO )
{
   SP_DEVICE_INFO deviceInfo;

   hb_retnl( SFNTGetDeviceInfo( ( SP_HANDLE ) hb_parnl( 1 ), &deviceInfo ) );  // OJO al &
   hb_storclen( ( char * ) deviceInfo, sizeof( SP_DEVICE_INFO ), 2 );
}
 

Y

Code: Select all  Expand view

HB_FUNC( SFNTGETDEVICEINFO )
{
   SP_DEVICE_INFO deviceInfo;

   SFNTGetDeviceInfo( ( SP_HANDLE ) hb_parnl( 1 ), &deviceInfo );

   hb_reta( 10 ); // vamos a devolver un array de 10 elementos

   hb_stornl( ( LONG ) deviceInfo.formFactorType, -1, 1 );
   hb_stornl( ( LONG ) deviceInfo.productCode, -1, 2 );
   hb_stornl( ( LONG ) deviceInfo.hardlimit, -1, 3 );
   hb_stornl( ( LONG ) deviceInfo.capabilities, -1, 4 );
   hb_stornl( ( LONG ) deviceInfo.devID, -1, 5 );
   hb_stornl( ( LONG ) deviceInfo.devSN, -1, 6 );
   hb_stornl( ( LONG ) deviceInfo.timeValue, -1, 7 );
   hb_stornl( ( LONG ) deviceInfo.memorySize, -1, 8 );
   hb_stornl( ( LONG ) deviceInfo.freeSize, -1, 9 );
   hb_stornl( ( LONG ) deviceInfo.drvVersion, -1, 10 );
}
 

[pablovidal]

Ufff... por fin!!!!

Antonio al Final la funcion quedo asi:

Code: Select all  Expand view

HB_FUNC( SFNTGETDEVICEINFO )
{
   SPP_DEVICE_INFO deviceInfo;
   SFNTGetDeviceInfo( ( SP_HANDLE ) hb_parnl( 1 ), deviceInfo ); //<-Quite el &

   hb_reta(6);
   hb_stornl( ( LONG ) deviceInfo->timeValue.year, -1, 1 ); // <- Quite el "." y puse "->"
   hb_stornl( ( LONG ) deviceInfo->timeValue.month, -1, 2 );
   hb_stornl( ( LONG ) deviceInfo->timeValue.dayOfMonth, -1, 3 );
   hb_stornl( ( LONG ) deviceInfo->timeValue.hour, -1, 4 );
   hb_stornl( ( LONG ) deviceInfo->timeValue.minute, -1, 5 );
   hb_stornl( ( LONG ) deviceInfo->timeValue.second, -1, 6 );
}
 

y Funciono Perfecto... De esta funcion solo necesito acceder a la fecha y hora del dispositivo

MUUUUUUUUCHAS GRACIAS ANTONIO

[pablovidal]

Antonio,
Como dicen por aqui, "Nunca Falta un pelo en la sopa"

La funcion me devuelve el Array perfecto... No hay problema con eso
El asunto es que cuando hago esto

Code: Select all  Expand view

 cRetorno := SFNTGetDeviceInfo( hHeader )
 ? cRetorno[1] // <- Aqui Funciona bien, me devuelve el año
 ? ValType( cRetorno[1] ) // <- Aqui error
 

Me da error...

[Antonio Linares]

Pablo,

? ValType( cRetorno[1] ) // <- Aqui error

Que error ?

[pablovidal]

Es un error de tiempo de ejecucion un GPF,

Esto ocurre cuando trato de acceder el dato con cualquier funcion de xharbour

[Antonio Linares]

Pablo,

Que valor te muestra aqui ?

? cRetorno[1] // <- Aqui Funciona bien, me devuelve el año

[pablovidal]

Me muestra el valor 2009

Hice una prueba ahora,

Sume cRetorno[1] + cRetorno[2] + cRetorno[1] y me sumo bien...

El problema es que si pongo el resultado con dentro de cualquier funcion me da un GPF

EJ.

Code: Select all  Expand view

? cRetorno[1] // <- Pasa sin problema, aqui devuelve 2009
? Transform( cRetorno[1], "9999" ) // <- Me da un GPF
 

[Antonio Linares]

Pablo,

Es muy extraño...

Prueba a asignarle el valor a una variable local:

nValor = cRetorno[1]

y luego usa esa local

[pablovidal]

Si ya lo he hecho y nada

[Antonio Linares]

Pablo,

Necesitaríamos construir y probar tu código aqui para poder ayudarte.

Asi, sin ver más, y sin poder probarlo, es casi imposible resolver ese problema.

Envíanos todo lo necesario por email, gracias