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?

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?

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

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

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.