Ads Xbrowse problem in fhw 16.11

[dbmanfwh]

Dear,

I use ads in xBrowse.
but Error appears in xharbour.
Harbour work fine.

FWH 16.11 32bit
Harbour 2016.12.16
xHarbour 2016.11.24
bcc72

Code: Select all  Expand view

#include "FiveWin.ch"
#include "ads.ch"   // Ads.ch Can not found at Fwh, Harbour, xHarbour folders

* ---------------------------------------
FUNCTION main()
* ---------------------------------------

   ANNOUNCE RDDSYS
   REQUEST ADS

   REQUEST DBFCDX
   REQUEST DBFFPT

   RddRegister(   "ADS", 1 )
   RddSetDefault( "ADS"    )

   REQUEST ADSKeyNo
   REQUEST ADSKeyCount
   REQUEST ADSGetRelKeyPos
   REQUEST ADSSetRelKeyPos

   SET DELETE OFF
   SET DATE ANSI
   SET CENT ON

   SET SERVER   LOCAL
   SET FILETYPE TO CDX
   SET OPTIMIZE ON

   USE customer NEW ALIAS customer  VIA "ADS"  SHARE

   // ads Xbrowse problem in fhw 16.11
   // Harbour work fine.
   // but Error appears in xharbour.

   XBROWSER 'customer' TITLE 'ads test' FASTEDIT

   USE

RETURN NIL

 

Code: Select all  Expand view

Application
===========
   Path and name: c:\fwh\samples\xbrads.exe (32 bits)
   Size: 3,487,744 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20161123)
   FiveWin  Version: FWHX 16.11
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 2016.12.18, 22:11:35
   Error description: Error BASE/1004  Class: 'NUMERIC' has no exported method: LDRAG
   Args:
     [   1] = N   -16

Stack Calls
===========
   Called from:  => LDRAG( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETRDD( 4835 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 480 )
   Called from:  => TXBROWSE:SKIP( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CALCROWSELPOS( 1642 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1609 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 511 )
   Called from:  => TXBROWSE:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 14107 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3306 )
   Called from:  => WNDWIDTH( 0 )
   Called from: .\source\classes\CONTROL.PRG => (b)TCONTROL:TCONTROL( 179 )
   Called from:  => TXBROWSE:_NWIDTH( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:BRWFITSIZE( 1220 )
   Called from: .\source\function\XBROWSER.PRG => FITSIZES( 292 )
   Called from: .\source\function\XBROWSER.PRG => (b)XBROWSE( 262 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 706 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 898 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\XBROWSER.PRG => XBROWSE( 262 )
   Called from: xbrads.prg => MAIN( 33 )

 

[dbmanfwh]

Also, FWH 16.11 character is seen differed from FWH1504 version in Xbrowse.
Perhaps, unicode?

FWH 16.11 Poor



FWH 15.04 Right

[nageswaragunupudi]

Code: Select all  Expand view

but Error appears in xharbour.
 

Surprising. I am unable to figure out how the problem is coming.
Can you confirm if this working fine with xHarbour and DBFCDX ?

Unicode characters:
============
I need to study the problem more closely.
Can you please send me the DBF to my personal email?

nageswaragunupudi [at] gmail [dot] com

Also please try to use the xharbour version downloaded from FWH. (from the same page that you downloaded FWH 16.11)

[nageswaragunupudi]

This my test program, built with buildx.bat in the fwh\samples folder.

Code: Select all  Expand view

#include "fivewin.ch"
#include "ads.ch"

function main()

   RddRegister( "ADS", 1 )
   AdsSetServerType( ADS_LOCAL_SERVER )
   RDDSetDefault( "ADSCDX" )

   USE CUSTOMER NEW ALIAS CUST VIA "ADSCDX"
   XBROWSER "CUST" FASTEDIT TITLE FWVERSION

return nil

REQUEST ADSKEYCOUNT, ADSGETRELKEYPOS, ADSSETRELKEYPOS, ADSKEYNO
 

This is running well and I could see the browse.
I found ads.ch in \xharbour\include.
Probably I might have copied it from \xharbour\contrib\rdd_ads.

xHarbour 1.2.3 Intl. (SimpLex) (Build 20151110)
Used ace.dll in \fwh\samples folder

[dbmanfwh]

Dear Rao,

Thank you for your response.

I downloaded xhabour (20161124 version) from whosaway.com.
But I thought that the xharbour had any problems.

In FWH that you let me know, I downloaded xhabour and tried to compile, and checked that all work fine.

Thank you for helping me.

But,
the problem that some korean characters are broken isn't still solved.
So I tried to use hb_unicode(.t.), hb_unicode(.f.), But they didn't affect to solve the problems.

I sent you the dbf.

The GET system for korean has much problems but I'm hard to explain all things.
Please help me whenever it happens to me.

[nageswaragunupudi]

In FWH that you let me know, I downloaded xhabour and tried to compile, and checked that all work fine.

Thank you for helping me.

Glad it is now working with xHarbour. For sometime I request you to use this version of xHarbour.

But,
the problem that some korean characters are broken isn't still solved.
So I tried to use hb_unicode(.t.), hb_unicode(.f.), But they didn't affect to solve the problems.

Just now, I received your email.
Please give some time to study the issue.

[Enrico Maria Giordano]

The official xHarbour distribution is whosaway.com and you should use it.

EMG

[dbmanfwh]

I'm missing.
hb_unicode(.t.) is wrong and the fw_Setunicode(.t.) fits.
But they didn't affect