Отправлено: 25.09.19 17:37. Заголовок: XML – библиотека mxml.lib – не работают функции

Подключил к программе библиотеку mxml.lib при вызове функции mxmlLoadFile() – возвращает nul.

В примере …\HARBOUR\contrib\hbmxml testmxml.prg все работает.

В чем может быть дело?

 Отправлено: 26.09.19 08:56. Заголовок: Aleksandr_D пишет: ..

Aleksandr_D пишет:

цитата:

В чем может быть дело?

Покажите параметры функции

 Отправлено: 26.09.19 11:17. Заголовок: Покажите параметры функции….

«Покажите параметры функции….»

Параметры функции одинаковы.

LOCAL hTree
hTree := mxmlLoadFile( NIL, cFileArg, @type_cb() )

&& cFileArg – Полный путь на файл. Например: C:\Test_XML\Test.xml
&& type_cb() – Функция из примера (…\HARBOUR\contrib\hbmxml testmxml.prg)

FUNCTION type_cb( hNode )
LOCAL cType /* Type string */
/* You can lookup attributes and/or use the element name, hierarchy, etc... */
IF Empty( cType := mxmlElementGetAttr( hNode, "type" ) )
cType := mxmlGetElement( hNode )
ENDIF
SWITCH Lower( cType )
CASE "integer" ; RETURN MXML_INTEGER
CASE "opaque" ; RETURN MXML_OPAQUE
CASE "real" ; RETURN MXML_REAL
ENDSWITCH

RETURN MXML_TEXT

 Отправлено: 26.09.19 14:51. Заголовок: Aleksandr_D пишет: ..

Aleksandr_D пишет:

цитата:

&& cFileArg – Полный путь на файл. Например: C:\Test_XML\Test.xml

Перед вызовом mxmlLoadFile проверьте
? FOpen(cFileArg, 0)

 Отправлено: 27.09.19 14:48. Заголовок: Перед вызовом mxmlLoadFile проверьте ....

«Перед вызовом mxmlLoadFile проверьте ? FOpen(cFileArg, 0)» - Проверяю.

Перенес функционал (без изменений) из основной программы в программу сателлит (EXE-ник) все заработало.

Параметры сборки
ZUH_D.HBP
# Дебагерная версия
-hbexe
-n
-prgflag=-D__NO_HWGUI__
-prgflag={win}-DGTWVT
-std
# folder where there will be all * .obj
-workdir=D:\PRG\ZUH\OBJD\
# the name of the EXE module
-oE:\BOLZ_H\ZUH__d.exe
# paths to the main and extension * .Lib
-lhbct
-lmxml

MAIN /b /n /q
menu /b /n /q
errorsys /b /n /q
XmlPar /b /n /q