Hi:
When I make a function call in my xharbour app, I get this gpf from
xharbour:
---------------------------
Unrecoverable error 9000:
---------------------------
hb_vmRequestQuery() is set - Couldn't create error ADSISEMPTY '(null)'
---------------------------
OK
---------------------------
This is the function I'm trying to call. Please advise what I'm doing
wrong:
/*
// Use AdsIsEmpty to determine if the indicated field is NULL for ADTs
or empty for DBFs
HB_FUNC( ADSISEMPTY )
{
UNSIGNED32 ulRetVal = ~AE_SUCCESS;
UNSIGNED16 pbEmpty = FALSE;
ADSAREAP pArea;
UNSIGNED8* pucFldName;
pArea = hb_rddGetADSWorkAreaPointer();
if( ! ISCHAR( 1 ) || ! ISNUM( 1 ) )
{
hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSISEMPTY" );
}
else if( pArea )
{
pucFldName = (UNSIGNED8 *) ( ISCHAR( 1 ) ? hb_parcx( 1 ) :
ADSFIELD( hb_parni( 1 ) ) );
ulRetVal = AdsIsEmpty( pArea->hTable, pucFldName, &pbEmpty );
}
if ( ! pArea || ulRetVal != AE_SUCCESS )
{
hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, "ADSISEMPTY" );
}
hb_retl( pbEmpty );
}
*/
--
Luis Krause Mantilla
lkrausem at shaw dot ca
luis_krause at hotmail dot com
"May the Source be with GNU"
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Register now and save $200. Hurry, offer ends at 11:59 p.m.,
Monday, April 7! Use priority code J8TLD2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
