FiveTech Software tech support forums

HI, im trying use xharbour from repository, last version, after compile, receive the error:

error: unresolved external "_AdsSetNull" referenced from rddads.lib | adsfunc

something change ? last xharbour version have some error?

something related to this?

2018-05-28 11:20 UTC+0200 Enrico Maria Giordano <e.m.giordano@emagsoftware.it>
* contrib\rddads\adsfunc.c
! added functions ADSDDSETFIELDPROPERTY(), ADSSETTIMESTAMP() and ADSSETNULL(). Thanks to Reinaldo!


thanks

Someone else using ADS can check this, please?

EMG

Luiz, an xHarbour developer, wrote: "Probaly his ads client .lib is from an old version".

Please check.

EMG

EMG, very thanks, im using ads 10.10, we dont update to last version because we dont need new features and price of update too. but xharbour Always Works with ads 8, 9 ,10 in old versions, if i remenber in source of rddads have an #define like IF adsversion == x, adsversion == y.

i have to go back to old version of xharbour until problem is fix, very thanks again.

best regards

Please, try to ask to comp.lang.xharbour newsgroup.

EMG

EMG, i will, just let me know, there commit made for you, is to specific version of ads? why you add these functions, in changelog you say reinaldo advice, reinaldo can say if these function is specific to some version of ads?

another solution is go to harbour....

very thanks

Admpss wrote:EMG, i will, just let me know, there commit made for you, is to specific version of ads?

Don't think so but I'm not an ADS user, so I don't know for sure.

Admpss wrote:why you add these functions, in changelog you say reinaldo advice, reinaldo can say if these function is specific to some version of ads?

Probably yes. Reinaldo, are you listening?

Admpss wrote:another solution is go to harbour....

But even so, we better to fix xHarbour too, it there is a bug to fix.

EMG

EMG, in adsfunc.c adssetnull is commented,

/*HB_FUNC( ADSSETNULL )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();
ulRetVal = AdsSetNull( (hb_parnl(1)==0) ? pArea->hOrdCurrent : hb_parnl(1),(char*) hb_parc(2));
hb_retl( ulRetVal == AE_SUCCESS );
}*/

but in the same adsfunc.c have this:

HB_FUNC( ADSSETNULL )
{
UNSIGNED32 ulRetVal;
ADSAREAP pArea = hb_adsGetWorkAreaPointer();

ulRetVal = AdsSetNull( pArea->hStatement,
( UNSIGNED8 * ) hb_parcx( 1 ) ) ;// pucFldName ,

hb_retl( ulRetVal == AE_SUCCESS );
}

another reference is in ace32.c

UNSIGNED32 ENTRYPOINT AdsSetNull( ADSHANDLE hTable, UNSIGNED8 *pucFldName )
{
#if defined(__cplusplus)
static ADSSETNULL_PTR
#else
static ADSSETNULL_PTR pFunc = NULL;
if ( !pFunc )
#endif
pFunc = (ADSSETNULL_PTR) Ace32_GetProcAddress( "AdsSetNull" );

return pFunc( hTable, pucFldName );
}

thanks

I don't know why this is commented out... It could be an error from mine, sorry. Ok, let's try to uncomment it...

EMG

EMG, i guess the comented is the original one, and uncommented is the reinaldo sugestion.

i will try compile xharbour with rddads without your commit, to see if the error persist.

thanks

Done. Let's wait for Mel to make the new xHarbour builds...

EMG

Admpss wrote:EMG, i guess the comented is the original one, and uncommented is the reinaldo sugestion.

i will try compile xharbour with rddads without your commit, to see if the error persist.

thanks

Ops! Sorry, I'm going to revert my change...

EMG

Done.

EMG

EMG, thanks, but not solved. same error after your commit. can you see with reinaldo why this changes, they are to specific ads version? thanks again.