FiveTech Software tech support forums

... Unresolved external '_HB_FUN_ADSSETSERVERTYPE' referenced from E:\PROGRAMA\DATASOL\XHARBOUR\OBJ\GEST.OBJ Error: Unresolved external '_HB_FUN_ADSSETFILETYPE' referenced from E:\PROGRAMA\DATASOL\XHARBOUR\OBJ\GEST.OBJ Estoy usandolo así: ----Código--------- ANNOUNCE ADS Request Hb_lang_es Request ...

Estimados, si tengo esto en un .res 1 VERSIONINFO FILEVERSION 1, 0, 0, 0 PRODUCTVERSION 1, 0, 0, 0 FILEOS VOS_NT_WINDOWS32 FILETYPE VFT_APP { BLOCK "StringFileInfo" { BLOCK "040904E4" { VALUE "CompanyName", "Megasoft\000\000" VALUE "FileDescription", "Libreria para placas CEM44\000" ...

... "FiveWin.ch" #include "ads.ch" FUNCTION main() REQUEST _ADS rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) AdsSetDeleted(.T.) SET SERVER LOCAL SET FILETYPE TO CDX select 4 USE METE x := "'9855564'" cFilter := "me_serial = "+ x bFilter = "{||"+cFilter+"}" DBSETFILTER(&bFilter,cFilter) DBGOTOP() ...

... HB_CODEPAGE_ES EXTERNAL AdsKeyNo, AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos Procedure main() …. rddsetdefault( "ADS" ) SET SERVER REMOTE SET FILETYPE TO CDX SET OPTIMIZE ON SET DEFAULT TO \\Sevillana\discod (d)\misapp\jardines2\datos\ … Return Procedure jardin() USE JARD NEW SHARED Browse() ...

James

The latest xHarbour has changed the way you set up ADS ..

REQUEST ADS

rddRegister ( "ADS", 1 ) // no underscore _ infront of ADS
rddsetdefault( "ADS" )
SET SERVER REMOTE
SET FILETYPE to CDX


Notice the underscore is gone .. just use as above.

Rick Lipkin

... SET SERVER happens: INI oIni FILE ".\MyApp.ini" Get xRDD SECTION "RDD" ENTRY "RDD-VERSION" OF oIni DEFAULT "LOCAL" ... rddsetdefault( "ADS" ) SET FILETYPE to NTX rddRegister ( "ADS", 1 ) AdsSetServerType( 7 ) //iif( xRDD == "REMOTE", 2, 1 ) ) I thought with AdsSetServerType( 7 ) it would automatically ...

... FILE ".\MyApp.ini" Get xRDD SECTION "RDD" ENTRY "RDD-VERSION" OF oIni DEFAULT "LOCAL" ENDINI rddsetdefault( "ADS" ) rddRegister ( "ADS", 1 ) SET FILETYPE to NTX IF upper( xRDD ) <> "LOCAL" SET SERVER REMOTE cADS := " Remote 32 bit -b" ELSE cADS := " Local 32 bit -b" SET SERVER LOCAL ENDIF ...

... "ADS" ANNOUNCE _ADS * REQUEST _ADS // does not work with latest xharbour cvs rddRegister ( "ADS", 1 ) rddsetdefault( "ADS" ) SET SERVER REMOTE SET FILETYPE to CDX cADS := " Remote 32 bit -b" ELSE cADS := " Local 32 bit -b" REQUEST DBFCDX REQUEST DBFFPT rddsetdefault( "DBFCDX" ) ENDIF SET DEFA to ...