FiveTech Software tech support forums

... que imprime información de seguimiento en la consola.
Se verifica si pItem es nulo. Si es así, se crea un nuevo objeto PHB_ITEM utilizando hb_itemNew(NULL).
Si pItem ya existe y es un objeto complejo (verificado con HB_IS_COMPLEX(pItem)), se llama a hb_itemClear(pItem) para limpiar el objeto.
Se ...

Carlos,

> hb_itemPutCLPtr(pItem, szResult, lLen);

Ese pItem que usas es NULL ó fué creado con hb_itemNew( NULL ); ?

Si es NULL, entonces se crea uno nuevo que tienes que liberar. Si pItem no es NULL, el que tendrás que liberar es pItem.

Pregunta:
SetResDebug devuelve la fuga de memoria o de recursos?

Lo digo porque una fuga de memoria es cuando hacemos un hb_xgrab o un hb_itemNew y no se libera.
Para esto último Harbour está preparado solo hay que crear las librerías de Harbour con estadísticas, realmente solo afecta a hbvm.lib y a ...

Pregunta:
SetResDebug devuelve la fuga de memoria o de recursos?

Lo digo porque una fuga de memoria es cuando hacemos un hb_xgrab o un hb_itemNew y no se libera.
Para esto último Harbour está preparado solo hay que crear las librerías de Harbour con estadísticas, realmente solo afecta a hbvm.lib y a ...

... Error: Unresolved external '_hb_xrealloc' referenced from X:\PROYECTOS\TEST\MARIA\LIB\DOLPHIN.LIB|function
Error: Unresolved external '_hb_itemNew' referenced from X:\PROYECTOS\TEST\MARIA\LIB\DOLPHIN.LIB|function
Error: Unresolved external '_hb_param' referenced from X:\PROYECTOS\TEST\MARIA ...

... for prod

procedure hb_gt_gui_default
return



*****************************************************

function Main()



// local hItem1 := ItemNew( "Hello world!-billy/don" )
// local hItem2 := ItemNew( "From a Harbour DLL-billy/don" )


local hItem1
local hItem2

local marray ...

... create a dialog in the calling program( babu.prg ) and added 1 control to it.

then, I pass to the .dll ( babudll.prg ) the following.

hItem1 := ItemNew( odialog:hwnd )
hItem2 := 'Dialog Handle Passed'

HbDLLEntry2( "TEST3", hItem1, hitem2 )

***************
within babudll.prg, the handle is ...

... se agradece cualquier ayuda.

#pragma BEGINDUMP
static void seleccion_menu( GtkWidget *widget, gpointer pdata )
{
int i;
PHB_ITEM pArg1 = hb_itemNew( NULL );
PHB_ITEM pArg2 = hb_itemNew( NULL );
PHB_ITEM pArg3 = hb_itemNew( NULL );
PHB_ITEM itemReturn = hb_itemNew( NULL );

for( i = 0; i ...

Perry,

> does each parm have to be the same data type in all functions?

They have to be Harbour "items", thats why you need to use the function ItemNew():

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22835&start=15

> Also, I am looking at the samples in FWH64 v1605 and the buildhd.bat ...

... given by Antonio Linares

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>

HB_FUNC( FESTRUCTURA_TABLA )
{
PHB_ITEM pArray = hb_itemNew( NULL );

hb_arrayNew( pArray, 4 ); // 4 elements

hb_arraySetC( pArray, 1, "Hello" ); // a string
hb_arraySetNL( pArray, 2, 123 ); // a number
hb ...

... entregado por Antonio Linares

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>

HB_FUNC( FESTRUCTURA_TABLA )
{
PHB_ITEM pArray = hb_itemNew( NULL );

hb_arrayNew( pArray, 4 ); // 4 elements

hb_arraySetC( pArray, 1, "Hello" ); // a string
hb_arraySetNL( pArray, 2, 123 ); // a ...

... 0 ;
#ifndef __HARBOUR__
WORD wLen = _VARRAYLEN( pAtext );
CLV_WORD lJustify;
#else
WORD wLen = hb_arrayLen( pAtext );
PHB_ITEM uElem = hb_itemNew( NULL );
#endif
WORD wType, wcLen;
LONG lValue;
char * cValue;
HPEN hOldPen, hPen;
BITMAP bmp;
WORD wRow, wCol;
LONG lColor ;
HBRUSH ...

... 0 ;
#ifndef __HARBOUR__
WORD wLen = _VARRAYLEN( pAtext );
CLV_WORD lJustify;
#else
WORD wLen = hb_arrayLen( pAtext );
PHB_ITEM uElem = hb_itemNew( NULL );
#endif
WORD wType, wcLen;
LONG lValue;
char * cValue;
HPEN hOldPen, hPen;
BITMAP bmp;
WORD wRow, wCol;
LONG lColor ;
HBRUSH ...

... malloc( qs_len );
HANDLE lphLookup;
INT nError;
BTH_ADDR result;
char buf[40] = {0};
DWORD bufsize = sizeof(buf);
PHB_ITEM aTemp = hb_itemNew( NULL );
PHB_ITEM aNew = hb_itemArrayNew( 0);
GUID guid = SVCID_HOSTNAME;

hb_arrayNew( aTemp, 5 );

lphLookup = (HANDLE) hb_parnl(1 ...

... HB_FUNC( INITENGINE )
{

proc_IP InitEng = (proc_IP)GetProcAddress((HMODULE)hb_parnl(1) , "InitEngine");

if (InitEng)
{
InitEng(1, &hb_itemNew);
InitEng(2, &hb_itemRelease);
InitEng(3, &hb_itemPutNI);
InitEng(4, &hb_itemGetNI);

InitEng(6, &hb_dynsymGetSymbol);

InitEng(10, &hb ...