Archivos XML - para Antonio

[Jorge Jaurena]

Hola Antonio.

Hace varios dias consulte sobre como manejar archivos xml en harbour, me contestaste dandome un ejemplo.
Estoy tratando ahora de probarlo pero al enlazar con el ilink32 me da los siguientes errores:

Error: Unresolved external '_pcre_stack_malloc' referenced from C:\HARBOUR\LIB\RTL.LIB|hbregex
Error: Unresolved external '_pcre_stack_free' referenced from C:\HARBOUR\LIB\RTL.LIB|hbregex
Error: Unresolved external '_HB_FUN___CLSLOCKDEF' referenced from C:\HARBOUR\LIB\XHB.LIB|txml
Error: Unresolved external '_hb_itemGetWriteCL' referenced from C:\HARBOUR\LIB\XHB.LIB|hbxml
Error: Unresolved external '_HB_FUN___CLSUNLOCKDEF' referenced from C:\HARBOUR\LIB\XHB.LIB|txml

Estas son las lib que siempre uso:
FiveH.lib FiveHC.lib GtGui.lib HbSix.lib DbfFpt.lib Rddads.lib rtl.lib vm.lib lang.lib macro.lib rdd.lib dbfntx.lib debug.lib
common.lib pp.lib Ace32.lib SButtonH.lib gtwin.lib ct.lib cw32.lib msimg32.lib import32.lib dbfcdx.lib dbffpt.lib
dbfntx.lib xhb.lib odbc32.lib

Estoy compilando con harbour 1.1

Muchas gracias.
Jorge G. Jaurena

[Antonio Linares]

Jorge,

Estas usando una versión bastante antigua de Harbour. Que versión de FWH usas ?

[Jorge Jaurena]

8.05

[Jorge Jaurena]

Antonio, estoy probando con un ejemplo nuevo y sencillo pero no puedo completar el link.
Estoy usando harbour 3.0, fwh 8.05 y bcc55
El prg es este:

//////////////////////////////////////////////////////////////////////////////////
#include "FiveWin.ch"
#include "hbxml.ch"

Function Inicio()
Local vArch,ContXML,oDoc,oLinMae,oIterator,oCurrent,cLinea
Private ArchXML

vArch:=cGetFile32()

ArchXML:=vArch
ContXML:=MEMOREAD("&ArchXML")

oDoc:=TXmlDocument():New(ContXML,HBXML_STYLE_NOESCAPE)
IF oDoc:nError != HBXML_ERROR_NONE
MsgInfo("Error - "+Str(oDoc:nError),"ERROR")
Return nil
ENDIF

oLinMae:=oDoc:findfirst("LineaMaestro")
IF oLinMae == NIL
MsgInfo("Archivo vacio","ERROR")
Return nil
ENDIF

oIterator:=TXmlIterator():New(oLinMae)

DO WHILE .T.
cLinea :=""
oCurrent:=oIterator:Next()

IF oCurrent == NIL
EXIT
ELSE
IF oCurrent:cName == "LineaMaestro"
cLinea:=oCurrent:cData
? cLinea
ENDIF
ENDIF

oLinMae:=oDoc:findnext()
IF oLinMae == NIL
EXIT
ENDIF
ENDDO
Return nil
//////////////////////////////////////////////////////////////////////////////////

Compila perfecto, pero el ilink me da este error:

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_vmProcessSymbolsEx' referenced from C:\FWH\LIB\FIVEH.LIB|ERRSYSW
Error: Unresolved external '_HB_FUN_HB_DBG_VMSTKLCOUNT' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_HB_DBG_VMPARLLIST' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_HB_DBG_VMVARLGET' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_HB_DBG_VMVARSLEN' referenced from C:\FWH\LIB\FIVEH.LIB|HARBOUR
Error: Unresolved external 'AlphaBlend' referenced from C:\FWH\LIB\FIVEHC.LIB|BRUSHES
Error: Unresolved external '_pcre_config' referenced from C:\HARBOUR\LIB\HBRTL.LIB|hbregex
Error: Unresolved external '_pcre_stack_malloc' referenced from C:\HARBOUR\LIB\HBRTL.LIB|hbregex
Error: Unresolved external '_pcre_stack_free' referenced from C:\HARBOUR\LIB\HBRTL.LIB|hbregex

Muchas gracias
Jorge Jaurena

[Antonio Linares]

Jorge,

Tienes que enlazar tambien hbpcre.lib para las funciones _pcre_...

Para AlphaBlend tienes que enlazar la librería psdk\msimg32.lib de Borland

Las funciones _HB_FUN_HB_DBG_... declaralas vacias:

function HB_FUN_HB_DBG_VMSTKLCOUNT() ; return nil
etc...

De todas formas no puedes usar cualquier Harbour, sino uno que sea compatible con la versión de FWH que usas. Estamos buscando para indicarte cual puedes usar con FWH 8.5, o te aparecen los errores hb_vmProcessSymbolsEx u otros...

[Jorge Jaurena]

Problema resuelto.
En vez de usar el Harbour 1.1-1 1999-2007 que vengo usando desde hace mucho tiempo, probe con el Harbour 1.0.1 1999-2008 y
enlazo perfecto, no tengo idea de porque pero funciono.
Pude leer perfectamente el archivo xml, ahora me queda ver como grabar, espero tambien funcione, sino volvere a consultar.
Gracias Antonio, tambien a Rafa Carmona por su ayuda.

Saludos
Jorge Jaurena