{
Author: Jose Marques Pessoa : jmpessoa__hotmail_com
[1]Warning: at the moment this code is just a *proof-of-concept*


TXMLBridge class/component handle XML document in a manner not usual, something like easy direct access (read/write/create/remove) to DOM XML nodes by way of namespace like "root.node1.node2.node3"... 

Indeed, TXMLBridge class/component is being built on top of already existing FCL-XML parser: XMLRead, XMLWrite, DOM units (TXMLDocument class, TDOMNode class , etc...). 


(*.........................................................................*)

  
::New Add unit regxmlbridges.pas - 08/21023


(*.........................................................................*)

::TTreeViewXmlBridge - Version 0.1 - 08/2013

::New Add AppTreeViewXmlBridgeDemo1
::New Add Component TreeViewXmlBridge


(*.........................................................................*)

TFPXMLBridge - Version 0.1 - 01/2013;

::revision 06 minor fix and add overload for SetValue and InsertNode... 15-august-2013
::revision 05 add GetXMLAsString... 12-august-2013
::revision 04 add LoadFromString... 06-april-2013
::revision 03 add property public XMLDocument.... 02-march-2013
::revision 02 - minor fix for GetDOMNodeReference... 24/february/2013

::revision 02 - 23/February/2013

	NEW Add suport for read/write Attributes
	NEW function GetAttrList(query: string): string;
	NEW function GetAttrValueByName(query: string; attrName: string)
	NEW procedure SetAttribute(query: string)
	NEW Add    AppDemo3


::revision 01 - 09/February/2013

	NEW Sintaxe GetValue/SetValue by Node Index.
	NEW procedure SetCurrentNode(query: string).

	NEW change AppDemo1    (remove option "new documment")
	NEW Add    AppDemo2    (here is the option "new documment")
	NEW Tips..

[2]Tokens "Language" :
	Warning: change this tokens if necessary... or Application will crash!

	NamespaceSeparatorToken:  .
	BridgeLateBindingToken:  *    //default attribute=0 in late binding
	NameValueSeparatorToken:  #   //... equal
	AssignmentToken:  $           //... Assignment
	ConcatenationToken:  |
	AttributeNameValueStartToken:  (
	AttributeNameValueEndToken:  )
	AttributesSeparatorToken:   ;
	IndexStartToken:  [
	IndexEndToken:    ]

[3] Sintaxe Example:

3.1.0

    //take library as the root node:

    <?xml version="1.0" encoding="utf-8"?>
    <library>
    </library>

    Now, after the commands:

    InsertNode('library$book(id#100)')  //create node <book id="100">
    InsertNode('library$book(id#200)')  //create node <book id="200">

    the documment is:

    <?xml version="1.0" encoding="utf-8"?>
    <library>
         <book id="100">
         </book>
         <book id="200">
         </book>
    </library>

3.1.1    Insert item in library.book(100)           //library is root node

	library.book(100)$item(id#1;name#lazarus guide)  //sintaxe
	library.book(100)                 :namespace where some book attribute=100
	$item                           :insert new node item
	(id#1;name#lazarus guide)       :with attributes: name1#value1;name2#value2

3.1  Insert item in library.book

	library.book$item()out of print    //sintaxe
	library.book          :namespace base - first book child
	$item                 :insert new node item
	()                    :empty open/closed parenthesis: no attribute at all!
	out of print          :inner/content text!

3.2  Set value in item(lazarus guide)

	library.book(100).item(lazarus guide)$in stock    //sintaxe
	library.book(100)          :namespace base
	$in stock            :set item text inner/content/value =in stock

:TIP 1 InsertNode: The path to the left of the token "$" must already exist!
:TIP 2 InsertNode: If the right path of the token "$" not exists will be fully created!

3.3  Set value in author

	library.book(100).item(lazarus guide)author$Mattias Gartner        //sintaxe
	library.book(100).item(lazarus guide)      :namespace base
	(                         :open token - attribute
	lazarus guide             :item selected by attribute lazarus guide
	)                         :close token - attribute
	author$Mattias Gartner    :set author text content/inner/value = Mattias Gartner

:TIP 3 SetValue: Note that the symbol/token "$" is always placed at the end of the path
                 where you need/want to Set the value!

3.4  Generic Insert example: Insert nodes movie and item... then insert coauthor, publisher...

	library$movie(id#121).item(id#11;name#2001 A Space Odyssey).author()Stanley Kubrick //sintaxe
	library.movie(121).item(11)$coauthor()Arthur C Clarke   //sintaxe
	library.movie(121).item(2001 A Space Odyssey)$publisher()Metro Goldwyn Mayer //sintaxe

3.5  Generic Get example: Get value by some attribute

	library.book(200).item(InstallOverdom help).publisher(B)
	library.book(200)            :select book where some attribute=2
	item(InstallOverdom help)  :select item where some attribute=InstallOverdom help
	publisher(B)               :select publisher where some attribute=B

3.6 Generic GetValue by nodeIndex:

        //library is root node

        InsertNode('library$stationery') //create node <stationery>

        InsertNode('library.stationery$item()pencil') //create node <item>pencil</item>
        InsertNode('library.stationery$item()pen') //create node <item>pen</item>
        InsertNode('library.stationery$item()eraser') //create node <item>eraser</item>
        InsertNode('library.stationery$item()notebook') //create node <item>notebook</item>

        //this code read each item value...by index!

        query:='library.stationery';
        count:= FPXMLBridge1.CountElementNodeChildren(FPXMLBridge1.GetNode(query));
        for i:=0 to count-1 do
        begin;
          query:= 'library.stationery.item['+intToStr(i)+']';
          ShowMessage(FPXMLBridge1.GetValue(query));
        end;

3.7 Generic SetValue by node index:

        //this code (re)write each item value...by index!

        query:='library.stationery';
        count:= FPXMLBridge1.CountElementNodeChildren(FPXMLBridge1.GetNode(query));
        for i:=0 to count-1 do
        begin;
          query:= 'library.stationery.item['+intToStr(i)+']'+'$'+intToStr(i*100);
          FPXMLBridge1.SetValue(query);
          FPXMLBridge1.SaveToFile(FPXMLBridge1.XMLDocumentPath);
        end;

3.8 Select path to go "on the fly": Get value by attribute index late binding - handled by OnBuildingBridge

	library.book(*).item(*).publisher(*)        :select attribute index = [0] to all {default}
	library.book([0]).item([0]).publisher([1])  :select attribute index = [1] only to publisher...


3.9 Get all Attributes node... and attribute value by attribute name...

	query:= 'project.beams.beam(1).spans.span[1].loadp[0]';
	if FPXMLBridge1.GetNode(query).HasAttributes then
	begin
	   ShowMessage(FPXMLBridge1.GetAttrList(query));
	   ShowMessage(FPXMLBridge1.GetAttrValueByName(query, 'p'));
	end;
    
4.0 Set Attribute value....change attribute value or create new attribute

	//this code (re)write attribute...

        query:= 'project.beams.beam(1).spans.span[0]$(id#1)';  
        FPXMLBridge1.SetAttribute(query);

        query:= 'project.beams.beam(1).spans.span[1].loadp[0]$(p#444)';
        FPXMLBridge1.SetAttribute(query);


[4]Have fun!

}