I've modified xmltest.prg found at
http://xharbour.cvs.sourceforge.net/viewvc/xharbour/xharbour/tests/xmltest/
and I've used for testing the xmltest.xml file found at the same location.
Here is my test code:
#include "hbxml.ch"
PROCEDURE Main()
local i, cXml, cFileName:="xmltest.xml"
// local oDoc, oNode
SET EXACT OFF
CLS
if !file( cFileName )
wait "File not found..."
RETURN
ENDIF
for i:=1 to 30
oDoc := TXmlDocument():New( cFileName )
oNode := oDoc:CurNode
IF oDoc:nStatus != HBXML_STATUS_OK
wait "Error while reading file..."
RETURN
else
? "read ok"
ENDIF
cXml := oDoc:ToString( HBXML_STYLE_NOINDENT )
? cXml
? "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
wait str(i) + " Continue..."
next
RETURN
[1] When running the test on my XP Pro SP3, after a number of loops (
usually less then 10 ) the executable do hung up, and in most cases I get
the below error message on the screen:
Unrecoverable error 9027: Premature String Release detected: 'xml'
Called from Inkey(0)
Called from __WAIT(64)
Called from MAIN(30)
[2] When running the test on my Vista Basic, after a number of loops ( less
then 10 ) I get the generic error message "text.exe has stopped working..."
Here is my .exe.log file geberated by xBuilder:
Type: C >>>xhb.exe -o"tst.c" -m -n -p -q -gc0 -I"C:\xHB\include"
-I"C:\xHB\include\w32" "tst.prg"<<<
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6715)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/
Generating object output to 'tst.obj'...
Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB
-subsystem:console -LIBPATH:"C:\xHB\lib" -LIBPATH:"C:\xHB\c_lib"
-LIBPATH:"C:\xHB\c_lib\win" "tst.obj" "xhb.lib" "dbf.lib" "nsx.lib"
"ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib
user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib
uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib
msimg32.lib mpr.lib OleDlg.lib version.lib -out:"tst.exe"<<<
Ella
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
