topic-18902

Posts: 401

Joined: Thu Oct 06, 2005 10:15 PM

Una ayudita con "C"
Posted: Tue May 25, 2010 07:51 PM

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 (fw): Select all Collapse

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 (fw): Select all Collapse

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;
}

Saludos,

Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Una ayudita con "C"
Posted: Tue May 25, 2010 11:24 PM

Pablo,

Tienes que modificar esta línea:

Code (fw): Select all Collapse

   SPP_UPDATE_INFO pUpdateInfo = ( SPP_UPDATE_INFO ) hb_parnl( 1 );

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

Code (fw): Select all Collapse

CREATEOTHERUPDATEDEVICETIME( pUpdateInfo )

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion