Página 1 de 1

Faltan unas Funciones. Cmo puedo obtenerlas???

Publicado: Sab Feb 11, 2006 10:59 pm
por Xevi
NLOBYTE()
NHIBYTE()
D2BIN()
Gracias.
Un Saludo,
Xevi.

Faltan unas Funciones. Cmo puedo obtenerlas???

Publicado: Dom Feb 12, 2006 6:03 pm
por 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

Faltan unas Funciones. Cmo puedo obtenerlas???

Publicado: Lun Feb 13, 2006 8:30 am
por 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
>
>

Faltan unas Funciones. Cmo puedo obtenerlas???

Publicado: Lun Feb 13, 2006 9:51 am
por 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

Faltan unas Funciones. Cmo puedo obtenerlas???

Publicado: Lun Feb 13, 2006 11:10 am
por 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
>
>