vložil Radek Červinka
3. října 2010 00:31
Pro přístup k XML v Delphi je možno použít několik různých komponent nebo tříd. Součástí instalace Delphi je implementace XML zapouzdřující ActiveX implementaci XML od MS (MSXML6) - komponenty TXMLDocument atd.
JCL má nativní implementaci v JvSimpleXML nebo můžete použít třeba NativeXML. Posledně jmenovaný zástupce je původně komerční komponenta, kterou ale autor otevřel jako open source. Jedná se o velmi rychlou záležitost s podporou od Delphi 5 až do aktuální verze. V projektu stačí přidat jeden soubor .pas a jeden .inc - pro mne velmi sympatická vlastnost.
Proč použít nativní komponentu? Hlavním plusem je nezávislost na MS knihovnách. Nejen s ohledem na další verzi (multiplatformnost a 64bit) si člověk ušetří dost problémů.
Použití je snadné - viz ukázka:
1program Project1;
2
3
4
5uses
6 SysUtils, NativeXml;
7var
8 oXML: TNativeXml;
9 oNode: TXmlNode;
10
11begin
12 oXML := TNativeXml.Create;
13 try
14 oXML.LoadFromFile('test.xml');
15 writeln(oXML.Root.Name);
16 oNode := oXML.Root.FindNode('appchecks');
17 writeln(oXML.Root.AttributeByName['version']);
18
19
20 oNode.NodeNew('novynode').AttributeAdd('novyattr', 20);
21 oXML.SaveToFile('test2.xml');
22 finally
23 FreeAndNil(oXML);
24 end;
25end.
RSS