Whre can I get TXML

[Marcelo Via Giglio]

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

[James Bott]

Marcelo,

Sent to your private email.

James

[Jonathan Hodder]

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

[James Bott]

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

[Kleyber]

James,

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

TIA,

[James Bott]

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

[James Bott]

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