Faltan unas Funciones. Cmo puedo obtenerlas???

[Xevi]

NLOBYTE()
NHIBYTE()
D2BIN()
Gracias.
Un Saludo,
Xevi.

[jfgimenez]

Xevi,
> NLOBYTE()
LoByte()
> NHIBYTE()
HiByte()
> D2BIN()
No sé exactamente qué hace. ¿De dónde las has sacado y para qué las quieres?
--
Un saludo,
José F. Giménez

[Xevi]

Jose,
Como he escrito en un hilo de TFileXls de René, tengo esta clase funcionando
para C3,...
Es para poder tener esta clase que me funcione "personalmente", para Xailer.
Esta función la tengo en obj compilado con bcc para C3...
#include <Windows.h>
#include <ClipApi.h>
#include <mmsystem.h>
#include "extend.api"
//---------------------------------------------------------- ------------------//
CLIPPER D2BIN( PARAMS )
{
#ifdef __FLAT__
double dbl = _parnd( 1 );
#endif
#ifndef __FLAT__
_retclen( ( LPSTR ) _parnd( 1 ), 8 );
#else
_retclen( ( char * ) &dbl, sizeof( double ) );
#endif
}
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:43ef6a61$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> NLOBYTE()
>
> LoByte()
>
>> NHIBYTE()
>
> HiByte()
>
>> D2BIN()
>
> No sé exactamente qué hace. ¿De dónde las has sacado y para qué las
> quieres?
>
> --
> Un saludo,
>
> José F. Giménez
>
>

[jfgimenez]

Xevi,
Sería así:
#include "windows.h"
#include "xailer.h"
XA_FUNC( D2BIN )
{
double dbl = hb_parnd( 1 );
hb_retclen( ( char * ) &dbl, sizeof( double ) );
}
La puedes meter dentro un .prg entre #pragma BEGINDUMP y #pragma ENDDUMP
--
Un saludo,
José F. Giménez

[Xevi]

Jose,
Gracias.
Un saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:43f0489b$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
> Sería así:
>
> #include "windows.h"
> #include "xailer.h"
>
> XA_FUNC( D2BIN )
> {
> double dbl = hb_parnd( 1 );
>
> hb_retclen( ( char * ) &dbl, sizeof( double ) );
> }
>
> La puedes meter dentro un .prg entre #pragma BEGINDUMP y #pragma ENDDUMP
>
> --
> Un saludo,
>
> José F. Giménez
>
>