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

#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   USERETURN NIL 

Code: Select all | Expand

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   -16Stack 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

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

#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 FWVERSIONreturn nilREQUEST 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