FiveTech Support Forums

    case SQL_CHAR: {
      char *szResult = (char *) hb_xgrab(lLen + 1); //crea var string zero de un tamaño lLen
      hb_xmemset(szResult, ' ', lLen); //rellena de espacios
      szResult[lLen] = '\0'; //define fin de cadena
      hb_itemPutCLPtr(pItem, szResult, lLen); //pone en puntero pItem la cadena creada, y algo mas???
      hb_xfree(szResult);//kdsoft - no se si se debe liberar la memoria ocupada por szResult o si lo hizo hb_itemPutCLPtr
      break;

extern HB_EXPORT PHB_ITEM     hb_itemPutCLPtr  ( PHB_ITEM pItem, char * szText, HB_SIZE nLen );

! hb_itemPutCPtr(), hb_itemPutCLPtr() fixed to put empty
string to item if szText is NULL and length is non-zero,
instead of trying to free NULL pointer causing internal
error.

* contrib/examples/rdddbt/dbfdbt1.c
* I did a mistake in 1999 by giving the name hb_itemPutCPtr()
to the function which would have to be correctly named
hb_itemPutCLPtr() (notice the 'L' for 'length').

seria bueno una rama en el foro para las api de harbour. para clarar que hacen muchas de ellas.

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.

Antonio, no es tanto el código, mi duda es más de como es la forma correcta de usar la liberación de memoria,...

Este bloque de código es una función en C que se encarga de asignar un valor de cadena a un objeto PHB_ITEM. A continuación, te explicaré paso a paso lo que hace esta función:

Parámetros

pItem: Un puntero a un objeto PHB_ITEM que se va a modificar.
szText: Un puntero a una cadena de caracteres que se va a asignar al objeto pItem.
nLen: La longitud de la cadena szText.
Funcionamiento

La función comienza con una llamada a HB_TRACE, que probablemente es una función de depuración 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 establece el tipo de objeto pItem como una cadena (HB_IT_STRING).
Se establece la longitud de la cadena en pItem->item.asString.length con el valor de nLen.
Ahora, se verifica si la longitud de la cadena es menor o igual a 1 (nLen <= 1). Si es así:
Se establece pItem->item.asString.allocated en 0, lo que indica que no se ha asignado memoria adicional para la cadena.
Se asigna un valor especial a pItem->item.asString.value utilizando HB_UNCONST(hb_szAscii[nLen? (unsigned char) szText[0] : 0]). Esto parece ser un arreglo de cadenas ASCII predefinidas, y se selecciona la cadena correspondiente según el valor de nLen y el primer carácter de szText. Por ejemplo, si nLen es 0, se asigna una cadena vacía (hb_szAscii[0]). Si nLen es 1, se asigna la cadena que contiene solo el carácter szText[0].
Se llama a hb_xfree(szText) para liberar la memoria asignada para szText.
Si la longitud de la cadena es mayor que 1 (nLen > 1), se hace lo siguiente:
Se agrega un carácter nulo ('\0') al final de la cadena szText para indicar su fin.
Se establece pItem->item.asString.allocated en nLen + 1, lo que indica que se ha asignado memoria adicional para la cadena.
Se asigna la cadena szText directamente a pItem->item.asString.value.
Finalmente, se devuelve el objeto pItem modificado.
Por qué libera si nLen es menor o igual a 1

La razón por la que se libera la memoria asignada para szText cuando nLen es menor o igual a 1 es que, en ese caso, se utiliza una cadena ASCII predefinida en lugar de la cadena original. Al asignar una cadena predefinida, no se necesita la memoria original asignada para szText, por lo que se libera para evitar fugas de memoria.

En resumen, esta función asigna una cadena a un objeto PHB_ITEM y maneja los casos especiales cuando la longitud de la cadena es menor o igual a 1.

Increíble..., gracias Antonio...