FiveTech Software tech support forums

Hello,

I'm trying to get txml, but until now I don't know where can I get it, some body can help me to find it.

regards

Marcelo

Marcelo,

Sent to your private email.

James

This sounds useful. James may I have a copy also.
It may be useful to others as well. Thanks.

Jonathan,

TXML is included in the xHarbour source code if you have it. If not, then send me your email address and I will send you a copy.

James

James,

Could you send to me also? Is there any samples? My email is kleyber.ribeiro@grupoferraz.com.br

TIA,

I found the following in my notes. It may be of some help. I think it is what I used to get started.

James

--------------------------
1/4/2007 10:46 AM

There is a XMLDocument class in xHarbour. Below is from an Bablefish translated message on the newgroup.

------------------------------------
We created the document IN MEMORY!
oDoc: = TXmlDocument():New()

We added different nodes:
oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_PI, 'xml', ' version="1.0" encoding="iso-8859-1" '))
oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_COMMENT,, "Example USE"))
oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_COMMENT,, "Dates: "+ DToC(Date()) +" Time: "+ Time()))
oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_COMMENT,, "Last Access: "+ GetEnv("Username")))

Like habiamos commented, oRoot is the raiz, therefore, we are using
the raiz of arbol to be adding to nodes children, through method
AddBelow(oNode)

Also, we can observe like creating a node, and this with other nodes
with its properties:

oNewNodo: = TxmlNode():New(HBXML_TYPE_TAG, "NEW")

oConfig: = TxmlNode():New(HBXML_TYPE_TAG, "config")
oConfig:SetAttribute("reserve", "222")
oConfig:SetAttribute("habitacion", "AB2")

Fijaros as we added to the called node oConfig, to the node oNewNodo.
oNewNodo:AddBelow(oConfig)

And the node, oNewNodo, to arbol main of the document of the XML
oDoc:oRoot:AddBelow(oNewNodo)

Well, now, simply we created the file where to overturn all this information
hFile: = FCreate("Pepe.xml")
If hFile = -1
//And THIS I KEEP The WORK THAT MADE HABIAMOS!
oDoc:Write(hFile, HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES)
FClose(hFile)
Endif

Already this! It seems lie, is not so dificil when you see this position in
I cosay source, that it is what we needed.

Agracedimientos:
To freddy,
without its explanation, I do not believe that it had included/understood the importance
of the use of the classes of xHarbour

To Giancar It,
by its wonderful work made in xHarbour.
(By the way, this documented, but... english is not my fort...
to have if somebody is animated to translate the text hbxml.)
_________________
Greetings

More help.

See xHarbour\tests\xmltests.prg for example of using xHarbour's TXMLDocument class.

You should have this file even in the standard xHarbour setup (without CVS).

James