>> ////////////////////////////////////////////////////
>> //   xml1.prg
>> ////////////////////////////////////////////////////
>> 
>> #include "/home/ivan/src/harbour/contrib/xhb/hbxml.ch"
> 
> Rather use -i option or point to xhb.hbc file.
> (or simply copy your sample to contrib/xhb/tests/ dir 
> and issue hbmk2 from there)
> 
>> function main()
>>   local cFile:="./test.xml", cString
>>   local cNote, cDiscount
>>   local oDoc, oBook, oIterator, oCurrent
>> 
>>   cString:=memoread( cFile )
>>   if !( len(cString) > 0 )
>>      wait "xml file unavailable"
>>      return NIL
>>   endif
>>   oDoc:=TXmlDocument( cString, HBXML_STYLE_NOESCAPE )
> 
> You need to replace 'TXmlDocument(' with 'TXmlDocument:New('

Typo. Replace it with: 'TXmlDocument():New('

Anyhow not everything is fine with xhb xml support, 
as I'm getting memory corruption with the posted 
sample when trying it with mingw. It runs fine 
with msvc64.

Viktor

_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to