yo tambien me anoto
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ayuda para pasar funci贸n a C
hola, yo tambien ,,,,, para que me apunte
saludos
Benjamin Casarrubias Moreno
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
Cd. Obreg贸n, Sonora, M茅xico
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturaci贸n Electr贸nica, XML DIOT 2025
Hola,
Evidentemente yo claro que s铆 
.
Muchas gracias. Many thanks.
Un saludo, Best regards,
Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]
Implementando MSVC 2010, FWH64 y ADO.
Abandonando uso xHarbour y SQLRDD.
Un saludo, Best regards,
Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]
Implementando MSVC 2010, FWH64 y ADO.
Abandonando uso xHarbour y SQLRDD.
Vamos, vamossss... esto se anima!!!
A ver si llegamos a 15 o 20. 
Habr铆a que pensar en crear un foro nuevo... ( quien se apunta a hacerlo? por ejemplo en los grupos de google o yahoo o no s茅...)
Y como ejemplo pr谩ctico de los ejemplos qu茅 quereis 
______________________________________________________________________________
Sevilla - Andaluc铆a
Sevilla - Andaluc铆a
Teneis docenas de ejemplos de usar C y Harbour en el c贸digo fuente en FWH\source\winapi*.c
...y ser谩n tomados como gu铆a a seguir, entre otras cosas porque est谩n hechos por un maestro y por si fuera poco un gran amigo...
Gracias Antonio...
PD: Tengo muchas ganas de verte. Si vienes por Sevilla me das un toque vale?
______________________________________________________________________________
Sevilla - Andaluc铆a
Sevilla - Andaluc铆a
Manu,
Era solo un recordatorio porque a veces obviamos lo que tenemos m谩s a mano 
Hace tiempo que no voy por Sevilla, a ver si voy y por supuesto que nos vemos
Yo tambi茅n estoy interesado.
Muchas gracias.
Saludos,
Eduardo
Eduardo
Manu,
Un peque帽o aporte de algunas funciones matematicas que desarrolle para manejar operaciones tipo bitwise de numeros con 64 bits de longitud; las probe en FWH64 y funcionaron perfectamente.
Saludos,
George
Un peque帽o aporte de algunas funciones matematicas que desarrolle para manejar operaciones tipo bitwise de numeros con 64 bits de longitud; las probe en FWH64 y funcionaron perfectamente.
// C functions call from Harbour
//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>
// Bitwise NOT (C Function)
HB_FUNC( C_NOT )
{
聽 聽 long long int nHexadecimal;
聽 聽 long long int nNot;
聽 聽 nHexadecimal = hb_parnll(1);
聽 聽 nNot = ~nHexadecimal;
聽 聽 hb_retnll( nNot );
}
#pragma ENDDUMP
//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>
// Bitwise AND (C Function)
HB_FUNC( C_AND )
{
聽 聽 long long int nHexadecimal1, nHexadecimal2;
聽 聽 long long int nAnd;
聽 聽 nHexadecimal1 = hb_parnll(1);
聽 聽 nHexadecimal2 = hb_parnll(2);
聽 聽 nAnd = nHexadecimal1 & nHexadecimal2;
聽 聽 hb_retnll( nAnd );
}
#pragma ENDDUMP
//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>
// Bitwise XOR (C Function)
HB_FUNC( C_XOR )
{
聽 聽 long long int nHexadecimal1, nHexadecimal2;
聽 聽 long long int nXor;
聽 聽 nHexadecimal1 = hb_parnll(1);
聽 聽 nHexadecimal2 = hb_parnll(2);
聽 聽 nXor = nHexadecimal1 ^ nHexadecimal2;
聽 聽 hb_retnll( nXor );
}
#pragma ENDDUMP
//-----------------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>
// Bitwise OR (C Function)
HB_FUNC( C_OR )
{
聽 聽 long long int nHexadecimal1, nHexadecimal2;
聽 聽 long long int nOr;
聽 聽 nHexadecimal1 = hb_parnll(1);
聽 聽 nHexadecimal2 = hb_parnll(2);
聽 聽 nOr = nHexadecimal1 | nHexadecimal2;
聽 聽 hb_retnll( nOr );
}
#pragma ENDDUMP
//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>
HB_FUNC( C_SHIFT_R )
{
聽 聽 long long int nHexadecimal1;
聽 聽 long long int nToShiftR;
聽 聽 long long int nShifted;
聽 聽 nHexadecimal1 = hb_parnll(1);
聽 聽 nToShiftR = hb_parnll(2);
聽 聽 nShifted = nHexadecimal1 >> nToShiftR;
聽 聽 hb_retnll( nShifted );
}
#pragma ENDDUMP
//---------------------------------
#pragma BEGINDUMP
#include <hbapi.h>
#include <math.h>
HB_FUNC( C_SHIFT_L )
{
聽 聽 long long int nHexadecimal1;
聽 聽 long long int nToShiftL;
聽 聽 long long int nShifted;
聽 聽 nHexadecimal1 = hb_parnll(1);
聽 聽 nToShiftL = hb_parnll(2);
聽 聽 nShifted = nHexadecimal1 << nToShiftL;
聽 聽 hb_retnll( nShifted );
}
#pragma ENDDUMPSaludos,
George
Muchas gracias George habr谩 que ternelo en cuenta...
De cualquier modo hechale un vistazo a hbbit.c que hay en harbour\src\rtl
______________________________________________________________________________
Sevilla - Andaluc铆a
Sevilla - Andaluc铆a
Manuel:
A mi tambi茅n me interesa por favor.
OK, Jos茅 Luis...
Creo que tambi茅n ir铆a bien meter la Programaci贸n Orientada a Objetos y como ejemplo del sistema extendido y la POO hacer un embri贸n de acceso a SQLite...
Qu茅 os parece? 
______________________________________________________________________________
Sevilla - Andaluc铆a
Sevilla - Andaluc铆a
Hola Manu.
Yo tambi茅n me apunto.
Carlos.
Como siempre bienvenido Carlos...
A prop贸sito Carlos, estoy preparando una versi贸n de Eagle1 que te va agustar
______________________________________________________________________________
Sevilla - Andaluc铆a
Sevilla - Andaluc铆a
Gracias Manu.
Estar茅 esperando tus noticias entonces.
Saludos.
Carlos.