Una ayudita con "C"

[pablovidal]

Saludos amigos,

Tengo esta función en "C" y tengo que pasarla a xHarbour, pero no me sale.-
Esta no esta en ninguna dll ni lib, es construida enteramente en "C"




Funcion Original

Code: Select all  Expand view

int CreateOtherUpdateDeviceTime(SPP_UPDATE_INFO pUpdateInfo)
{
   pUpdateInfo->devID                 = DEVELOPERID;               // Este valor lo tengo
   pUpdateInfo->updateCommand         = SP_UPDCMD_CHANGE_DEVICE_TIME;  //y este también
   pUpdateInfo->deviceTime.year       = 2012;
   pUpdateInfo->deviceTime.month      = 12;
   pUpdateInfo->deviceTime.dayOfMonth = 12;
   pUpdateInfo->deviceTime.hour       = 13;
   pUpdateInfo->deviceTime.minute     = 50;
   pUpdateInfo->deviceTime.second     = 50;

   return 0;
}
 

como yo la puse en xHarbour

Code: Select all  Expand view

HB_FUNC( CREATEOTHERUPDATEDEVICETIME )
{
   SPP_UPDATE_INFO pUpdateInfo;

   pUpdateInfo->devID                 = DEVELOPERID;               // Este valor lo tengo
   pUpdateInfo->updateCommand         = SP_UPDCMD_CHANGE_DEVICE_TIME;  //y este también
   pUpdateInfo->deviceTime.year       = 2012;
   pUpdateInfo->deviceTime.month      = 12;
   pUpdateInfo->deviceTime.dayOfMonth = 12;
   pUpdateInfo->deviceTime.hour       = 13;
   pUpdateInfo->deviceTime.minute     = 50;
   pUpdateInfo->deviceTime.second     = 50;

   return 0;
}
 

[Antonio Linares]

Pablo,

Tienes que modificar esta línea:

Code: Select all  Expand view

   SPP_UPDATE_INFO pUpdateInfo = ( SPP_UPDATE_INFO ) hb_parnl( 1 );
 

y le pasas el valor del puntero a la función:

Code: Select all  Expand view

CREATEOTHERUPDATEDEVICETIME( pUpdateInfo )
 

pUpdateInfo has de haberlo obtenido a partir de otra función