Files Needed - ADS / Harbour / MSVC 2013 (and FiveWeb info)

[TimStone]

I am in need of ADS files that will work with Harbour / MSVC 2013.
ACE32.lib
RDDADS.lib

There are some flaws within the older files I have that are causing errors, especially with the browse used in 15.09 ( and before ). The problem is NOT with FWH.

My files are dated 2011-12 and they are not a matched pair.

So if you are one of those who have been working with Advantage Database Server plus Visual Studio 2013, if you can provide me a link to download the two .lib files I would be most appreciative.

I know the problem is not in my code, or FWH, because the exact same code works perfectly using xHarbour (.com) / FWH.

Thank you very much

[Antonio Linares]

Tim,

I have sent Reinaldo Crespo an email asking him for help as he is a very much advanced ADS user

Lets wait for his answer

[TimStone]

Antonio,

He is not using Microsoft, he is using Borland.

Here is the problem. I built a file editor class ( dbu ). It has been working quite well. Take a look at this code snippet:

Code: Select all  Expand view

  @ 0,0 XBROWSE ::oBrw OF ::oEwndChild ALIAS ::oDbf ON CHANGE ::oDbfr:load() UPDATE ;
   AUTOCOLS AUTOSORT FOOTERS LINES CELL NOBORDER
    // Set the header and row heights
    ::oBrw:nHeaderHeight := 30
    ::oBrw:nRowHeight := 24
    // Set the styles
    ::oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
    ::oBrw:nColDividerStyle := LINESTYLE_RAISED
    ::oBrw:nRowDividerStyle := LINESTYLE_RAISED
    FOR nCCol := 1 TO LEN( ::oBrw:acols )
        ::oBrw:aCols[nCCol]:nHeadStrAlign  := AL_CENTER
    NEXT
    // Now create it
  ::oBrw:CreateFromCode()
  ::oEwndChild:oClient := ::oBrw
     // OK to hide columns
  ::oBrw:lAllowColHiding := .t.
 

oDbf is a database object which contains all of the records in a file. The user can highlight a record and click an edit button and then will receive a popup with the fields and data for editing.

Building this with xHarbour ( .com ) and those ADS files, we have absolutely no problems. Everything works perfectly.

Building this with Harbour / MSVC 2013, it all loads and appears to work well. However, if I take the scroll bar slider and move it to the bottom, then click on a record to highlight it, I get the following error:
Error description: Error ADSCDX/5018 The handle given was not recognized by Advantage. Verify specified handle is open/active.
The error is generated from Database.prg, line 156.

So, this error occurs when using Advantage Database Server ( REMOTE ). If I switch to DBFCDX, same exact build, there is no problem. If I use the Advantage Database Server with xHarbour ( .com ), exact same code, there is no problem.

The only difference here is the ADS files, specifically ACE32.lib and RDDADS.lib.

You have a 64 bit build for RDDADS.lib on your download but not a 32 bit, built with MSVC. My file is quite old ( over 4 years ) so it is likely a new, 32bit RDDADS.lib built with MSVC 2013 might resolve this issue.

Tim

[Antonio Linares]

Tim,

> The only difference here is the ADS files, specifically ACE32.lib and RDDADS.lib

We can build ACE32.lib from your used ACE32.DLL

And we can build RDDADS.lib from the most recent Harbour build sources

[TimStone]

I'm afraid I'm not very successful at doing that ...

If you can rebuild the rddads.lib for 32 bit ( you have built one for 64 bit ), I think that is the first / major step. It could be posted on your download site.

[rhlawek]

Tim/Antonio,

You should probably check/update your version of ace32.dll. The version that ships with my version of xharbour is 9.10.0.0, the version in FWH15.09 (in the samples folder) is 9.10.0.11.

The current version of all of this is 11.10.0.24.

Robb

[Antonio Linares]

Robb,

Could you please provide me ACE32.dll version 11.10.0.24 ?

many thanks

[Antonio Linares]

Tim,

I need ace.h

Could you please email it to me ? thanks

[rhlawek]

Antonio,

You can get the full ACE packages for msvc, msvc64 and linux here:

https://devzone.advantagedatabase.com/d ... spx?Key=20

Click on the 11.1 link, you'll find "Advantage Client Engine" at the bottom of the page.

This includes all the libs, dlls and header files needed.

Robb

[TimStone]

Antonio,

I used the ACE32.LIB that came with the Advantage SDK, and the matching .dll. The Microsoft linker had no problem with it, and it behaves the same.

I think the issue is the RDDADS.lib that I have, dated 5/16/2012. A lot has happened since then ...

Tim

[Antonio Linares]

Tim,

Please try this one:
https://bitbucket.org/fivetech/harbour-xharbour-builds/downloads/rddads_vs2013.lib rename it as rddads.lib

I have built it this way:
@ECHO OFF
CLS

set oldpath=%path%
set oldinclude=%include%
set oldlib=%lib%
set oldlibpath=%libpath%
if exist "%ProgramFiles%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat" call "%ProgramFiles%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat"
if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat" call "%ProgramFiles(x86)%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat"

"%VCINSTALLDIR%"bin\cl -TP -W3 -c /GS- /I%hdir%\include /GA ads1.c
"%VCINSTALLDIR%"bin\cl -TP -W3 -c /GS- /I%hdir%\include /GA adsfunc.c
"%VCINSTALLDIR%"bin\cl -TP -W3 -c /GS- /I%hdir%\include /GA adsmgmnt.c
"%VCINSTALLDIR%"bin\cl -TP -W3 -c /GS- /I%hdir%\include /GA adsx.c
"%VCINSTALLDIR%"bin\lib /DEF:rddads.DEF /OUT:rddads.lib
"%VCINSTALLDIR%"bin\lib rddads.lib /OUT:rddads.lib ads1.obj adsfunc.obj adsmgmnt.obj adsx.obj
@set path=%oldpath%
@set include=%oldinclude%
@set lib=%oldlib%
@set libpath=%oldlibpath%
@set oldpath=""
@set oldinclude=""
@set oldlib=""
@set oldlibpath=""

[TimStone]

I'm having the same problem with the new file.

The error is occurring essentially at the end of file. I can move up and down the browse, but if I use Page Down key or drag the slider to the bottom, when it reaches the end of file, if I click on any row, it errors.

The call is in xbrowse to:
ASSIGN Keyno( n ) INLINE ( Eval( ::bKeyNo, n, Self ), Eval( ::bKeyNo, nil, Self ) )

Which passes it to tDatabase:
METHOD KeyGoTo( nkeyNo ) INLINE ( ( ::nArea )->( OrdKeyGoTo( nKeyNo ) ), ::Load() )

Which generates
Error ADSCDX/5018 The handle given was not recognized by Advantage. Verify specified handle is open/active.

The problematic build is using FWH 15.09(3), MSVC 2013 ( latest rev ), and Harbour files dated 12/31/2014. I don't think you have provided anything later for 32 bit MSVS 2013.

Tim

[Antonio Linares]

Tim,

Couldn't this help ?

viewtopic.php?p=175898#p175898

It seems as Manuel experienced the same error

[TimStone]

Antonio,

OK ... the changes Rao made are in 15.09.

They pinpointed the problem, but the fix is not sufficient.

When working with a browse and not specifying the index, we have this problem, but only with ADS.
If we tell it to open the file, and set the order to index 1, there is no error. However, often we want to look at the last record added, and the index may make that difficult.

So ... the problem is still existing with xBrowse not being able to properly reposition without an index being open. I haven't seen this before because almost everything else where I use xBrowse uses an index.

I think Rao may need to revisit this to see if we can get a solution that works when no order is set.

Tim

[Antonio Linares]

Tim,

I have commented it to Rao and I am waiting for his answer, thanks