FiveTech Software tech support forums

First prototype to create a function at runtime at assign a codeblock to it: 1. As we are using a static PHB_ITEM pCodeBlock, next call to CreateFunction() will overwrite it, so we need to find a solution for this. 2. We could enhance CreateFunction() to allow parameters: CreateFunction( cFunctionNa...

Dear Ari, In harbour/include/hbapi.h you find this: https://github.com/harbour/core/blob/master/include/hbapi.h typedef struct _HB_CODEBLOCK { const HB_BYTE * pCode; /* codeblock pcode */ PHB_SYMB pSymbols; /* codeblocks symbols */ PHB_SYMB pDefSymb; /* symbol where the codeblock was cre...

Buenas tardes. Alguien sabría decirme como ejecutar un CODEBLOCK de xHarbour en C++. Por ejemplo: Pasar bEjemplo := { |x,y| MiFuncion(x,y,nOtro,cOtro)} a una función en C++ para que se ejecute la función MiFuncion() desde allí. He encontrado la definición: hb_vmEvalBlockV( PHB_ITEM pBlockItem, USHOR...

Antonio, que direfencia hay entre estas dos funciones? extern HB_EXPORT HB_BOOL hb_arraySetC( PHB_ITEM pArray, HB_SIZE nIndex, const char * szText ); extern HB_EXPORT HB_BOOL hb_arraySetCL( PHB_ITEM pArray, HB_SIZE nIndex, const char * szText, HB_SIZE nLen ); asi esta quedando la funcion, ya en el e...

casi en forma similar, tengo la funcion que pasa a tabla, usando el api de harbour, ya me crea la tabla con las respectivas columnas, y agrego los registos, pero igual que el caso anterior deseo saber como pasar los datos segun su tipo a un PHB_ITEM para poder usar la funcion SELF_PUTVALUE( pArea, u...

#include <hbapiitm.h>

PHB_ITEM pBlock = NULL;

...

pBlock = hb_itemParam( 1 ); // 1 for first parameter. Automatically calls hb_gcGripGet()

...

hb_evalBlock0( pBlock );

...

hb_itemRelease( pBlock ); // automatically calls hb_gcGripDrop()

Tengo el siguiente código donde la función KeyPressEvent recive un PHB_ITEM en gpointer pero al convertir no me pasa los valores. Algo estoy haciendo mal ¿si alguien me puede ayuda? g_print("%d %s \n", (int)hb_arrayGetNL( aData, 1 ), (char *)hb_arrayGetC( aData, 2 )); Resultado en Pantalla...

The error happens without using FWH It seems a Harbour bug using bcc7 64 bits in source\harbour\vm\itemapi.c /* converts a numeric to a string with optional width & precision. */ HB_BOOL hb_itemStrBuf( char * szResult, PHB_ITEM pNumber, int iSize, int iDec ) used from: char * hb_itemStr( PHB_ITE...

I did it some weeks ago: for the EMF, in harbour I have: EnumEnhMetaFile(hDC,hMeta,{|pDC,pTable,pRECORD| MyCB(pdf,pTable,pRECORD) },{0,0,100,100}) and in C I have: int CALLBACK HBEnhEnumProc(HDC hDC,HANDLETABLE *lpHTable,const ENHMETARECORD *lpEMFR,int nObj,LP...

/* static PHB_SYMB pSymbol = NULL; if( ! pSymbol ) pSymbol = hb_dynsymSymbol( hb_dynsymGet( "OBTNEVENTS" ) ); if( pSymbol ) { hb_vmPushSymbol( pSymbol ); hb_vmPushNil(); hb_vmPushNumInt( ( LONG_PTR ) hButton ); hb_vmPushLong( Msg ); hb_vmPushNumInt( wParam ); hb_vmPushNumInt( lParam ); hb...

Here is the "calling program" = babu.prg modified After that is the "dll program" = babudll.prg modified you may want to remove the altd() breaks and the reference to the external debugging libraries. REQUEST HB_GT_WIN REQUEST HB_GT_WIN_DEFAULT ***********************************...

Señores, al alguien sabe de este problema. Al utilizar la instrucción hb_itemDoC el aplicativo deja de funcionar y debo forzar su cierre o también se me bloquea el equipo y debo apagarlo. La idea es ejecutar una función o procedimiento de harbour desde un bloque #pragma BEGINDUMP No se, si es, la de...

No funciona, continua el problema. Estoy trabajando con los ejemplos: testdllp.prg y pcodedll.prg a testdllp.prg le añadí el código que me indicas y el resultado de la compilación es el siguiente: Compiling... xHarbour 1.2.3 Intl. (SimpLex) (Build 20170513) Copyright 1999-2017, http://www.xharbour.o...

Antonio, I'm not sure that I have the Harbour DLL setup properly. I receive the following error An unhandled exception of type 'System.EntryPointNotFoundException' occurred in WindowsFormsApplication1.exe Additional information: Unable to find an entry point named 'OneParam' in DLL 'Mydll.dll'. This...

> We can implement it in the function HBDLLENTRY() itself

void pascal __export HBDLLENTRY1( char * cProcName, PHB_ITEM pParam1 )
{
hb_itemDoC( cProcName, 1, pParam1 );

if( HB_ISBYREF( pParam1 ) )
hb_itemPutC( pParam1, hb_retc( -1 ) ); // -1 mean the value returned from cProcName
}