LMDXML Tutorial - Revision history

Fduch at 12:35, 18 August 2017

2017-08-18T12:35:02Z

← Older revision		Revision as of 14:35, 18 August 2017
Line 3:		Line 3:
	== Example 1. Creating and saving document ==		== Example 1. Creating and saving document ==

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	var		var
	aDoc: ILMDXmlDocument;		aDoc: ILMDXmlDocument;
Line 26:		Line 26:
	aDoc.Save('Test.xml');		aDoc.Save('Test.xml');
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	There is content of saved file:		There is content of saved file:
	<~~pre class~~="~~brush:~~xml">		<syntaxhighlight lang="xml">
	<?xml version="1.0" encoding="windows-1251"?>		<?xml version="1.0" encoding="windows-1251"?>
	<base>		<base>
Line 35:		Line 35:
	<elem2 a1="elem2 a1" a2="elem2 a2"/>		<elem2 a1="elem2 a1" a2="elem2 a2"/>
	</base>		</base>
	</~~pre~~>		</syntaxhighlight>

	== Example 2. Reading and analyzing documents ==		== Example 2. Reading and analyzing documents ==

	External xml file to parse. Test.xml		External xml file to parse. Test.xml
	<~~pre class~~="~~brush:~~xml">		<syntaxhighlight lang="xml">
	<?xml version="1.0" encoding="window-1251"?>		<?xml version="1.0" encoding="window-1251"?>
	<root>		<root>
Line 47:		Line 47:
	<elem2 a1="v1" a2="v2"> 2</elem2>		<elem2 a1="v1" a2="v2"> 2</elem2>
	</root>		</root>
	</~~pre~~>		</syntaxhighlight>

	Delphi code <~~pre class~~="~~brush:~~delphi">		Delphi code <syntaxhighlight lang="delphi">
	var		var
	aDoc: ILMDXmlDocument;		aDoc: ILMDXmlDocument;
Line 76:		Line 76:
	Memo1.Lines.Add(anElem2.GetAttr('a2'));		Memo1.Lines.Add(anElem2.GetAttr('a2'));
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	== Example 3. It shows how to save structures to xml ==		== Example 3. It shows how to save structures to xml ==

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	type		type
	TSex =(sxMale, sxFemale);		TSex =(sxMale, sxFemale);
Line 162:		Line 162:
	LXMLLib.Save('library.xml');		LXMLLib.Save('library.xml');
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	== Example 4. How to read XML with unknown structure an fill TTreeView with it ==		== Example 4. How to read XML with unknown structure an fill TTreeView with it ==

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	procedure XMLToTreeView(const AFileName, AOptElement, AOptAttr: String; ATreeView: TTreeView);		procedure XMLToTreeView(const AFileName, AOptElement, AOptAttr: String; ATreeView: TTreeView);
	var		var
Line 200:		Line 200:
	FillTree(LXMLDoc.DocumentElement, nil);		FillTree(LXMLDoc.DocumentElement, nil);
	end;		end;
	</~~pre~~>		</syntaxhighlight>

Fduch at 18:42, 20 October 2009

2009-10-20T18:42:05Z

← Older revision		Revision as of 20:42, 20 October 2009
Line 28:		Line 28:
	</pre>		</pre>

	There is content of saved file: <xml>		There is content of saved file:
			<pre class="brush:xml">
	<?xml version="1.0" encoding="windows-1251"?>		<?xml version="1.0" encoding="windows-1251"?>
	<base>		<base>
Line 34:		Line 35:
	<elem2 a1="elem2 a1" a2="elem2 a2"/>		<elem2 a1="elem2 a1" a2="elem2 a2"/>
	</base>		</base>
	</~~xml~~>		</pre>

	== Example 2. Reading and analyzing documents ==		== Example 2. Reading and analyzing documents ==

	External xml file to parse. Test.xml <xml>		External xml file to parse. Test.xml
			<pre class="brush:xml">
	<?xml version="1.0" encoding="window-1251"?>		<?xml version="1.0" encoding="window-1251"?>
	<root>		<root>
Line 45:		Line 47:
	<elem2 a1="v1" a2="v2"> 2</elem2>		<elem2 a1="v1" a2="v2"> 2</elem2>
	</root>		</root>
	</~~xml~~>		</pre>

	Delphi code <pre class="brush:delphi">		Delphi code <pre class="brush:delphi">

Fduch at 18:34, 20 October 2009

2009-10-20T18:34:22Z

← Older revision		Revision as of 20:34, 20 October 2009
Line 47:		Line 47:
	</xml>		</xml>

	Delphi code <delphi>		Delphi code <pre class="brush:delphi">
	var		var
	aDoc: ILMDXmlDocument;		aDoc: ILMDXmlDocument;
Line 74:		Line 74:
	Memo1.Lines.Add(anElem2.GetAttr('a2'));		Memo1.Lines.Add(anElem2.GetAttr('a2'));
	end;		end;
	</~~delphi~~>		</pre>

	== Example 3. It shows how to save structures to xml ==		== Example 3. It shows how to save structures to xml ==

	<delphi>		<pre class="brush:delphi">
	type		type
	TSex =(sxMale, sxFemale);		TSex =(sxMale, sxFemale);
Line 160:		Line 160:
	LXMLLib.Save('library.xml');		LXMLLib.Save('library.xml');
	end;		end;
	</~~delphi~~>		</pre>

	== Example 4. How to read XML with unknown structure an fill TTreeView with it ==		== Example 4. How to read XML with unknown structure an fill TTreeView with it ==

	<delphi>		<pre class="brush:delphi">
	procedure XMLToTreeView(const AFileName, AOptElement, AOptAttr: String; ATreeView: TTreeView);		procedure XMLToTreeView(const AFileName, AOptElement, AOptAttr: String; ATreeView: TTreeView);
	var		var
Line 198:		Line 198:
	FillTree(LXMLDoc.DocumentElement, nil);		FillTree(LXMLDoc.DocumentElement, nil);
	end;		end;
	</~~delphi~~>		</pre>

Fduch: /* Example 1. Creating and saving document */

2009-10-20T18:32:16Z

Example 1. Creating and saving document

← Older revision		Revision as of 20:32, 20 October 2009
Line 3:		Line 3:
	== Example 1. Creating and saving document ==		== Example 1. Creating and saving document ==

	<delphi>		<pre class="brush:delphi">
	var		var
	aDoc: ILMDXmlDocument;		aDoc: ILMDXmlDocument;
Line 26:		Line 26:
	aDoc.Save('Test.xml');		aDoc.Save('Test.xml');
	end;		end;
	</~~delphi~~>		</pre>

	There is content of saved file: <xml>		There is content of saved file: <xml>

Fduch at 16:19, 5 November 2008

2008-11-05T16:19:16Z

@@ Line 160: / Line 160: @@
    LXMLLib.Save('library.xml');
 end;
 </delphi>

Fduch at 15:17, 5 November 2008

2008-11-05T15:17:24Z

← Older revision		Revision as of 17:17, 5 November 2008
Line 1:		Line 1:
			{{Head-Getting started}}

	== Example 1. Creating and saving document ==		== Example 1. Creating and saving document ==

	<delphi>		<delphi>
	var		var
Line 25:		Line 28:
	</delphi>		</delphi>

	There is content of saved file:		There is content of saved file: <xml>
	<xml>
	<?xml version="1.0" encoding="windows-1251"?>		<?xml version="1.0" encoding="windows-1251"?>
	<base>		<base>
Line 34:		Line 36:
	</xml>		</xml>

	== Example 2. Reading and analyzing documents ==		== Example 2. Reading and analyzing documents ==
	External xml file to parse. Test.xml
	<xml>		External xml file to parse. Test.xml <xml>
	<?xml version="1.0" encoding="window-1251"?>		<?xml version="1.0" encoding="window-1251"?>
	<root>		<root>
Line 45:		Line 47:
	</xml>		</xml>

	Delphi code		Delphi code <delphi>
	<delphi>
	var		var
	aDoc: ILMDXmlDocument;		aDoc: ILMDXmlDocument;

Fduch at 12:25, 10 April 2008

2008-04-10T12:25:23Z

← Older revision		Revision as of 14:25, 10 April 2008
Line 76:		Line 76:

	== Example 3. It shows how to save structures to xml ==		== Example 3. It shows how to save structures to xml ==

	<delphi>		<delphi>
	type		type
Line 155:		Line 156:
	LXMLLib := LMDCreateXmlDocument('library');		LXMLLib := LMDCreateXmlDocument('library');
	for i := Low(LLibrary) to High(LLibrary) do		for i := Low(LLibrary) to High(LLibrary) do
	WriteBook(LXMLLib, LLibrary[i]);		WriteBook(LXMLLib.DocumentElement, LLibrary[i]);
	LXMLLib.Save('library.xml');		LXMLLib.Save('library.xml');
	end;		end;
	</delphi>		</delphi>

Fduch at 17:46, 29 February 2008

2008-02-29T17:46:30Z

@@ Line 73: / Line 73: @@
     Memo1.Lines.Add(anElem2.GetAttr('a2'));
   end;
 </delphi>

Fduch at 15:18, 21 February 2008

2008-02-21T15:18:30Z

← Older revision	Revision as of 17:18, 21 February 2008
Line 1:	Line 1:
		== Example 1. Creating and saving document ==
		<delphi>
		var
		aDoc: ILMDXmlDocument;
		anElem: ILMDXmlElement;
		begin
		// Create empty XML document with root element 'base'
		aDoc := LMDCreateXmlDocument('base');

		// Create 'elem1' element and add it as child node for root element
		anElem := aDoc.DocumentElement.AppendElement('elem1');

		// Add 'a1' and 'a2' attributes to 'elem1'
		anElem.SetAttr('a1', 'elem1 a1');
		anElem.SetAttr('a2', 'elem1 a2');

		// Add another element 'elem2'
		anElem := aDoc.DocumentElement.AppendElement('elem');
		anElem.SetAttr('a1', 'elem2 a1');
		anElem.SetAttr('a2', 'elem2 a2');

		// Save document to file
		aDoc.Save('Test.xml');
		end;
		</delphi>

		There is content of saved file:
		<xml>
		<?xml version="1.0" encoding="windows-1251"?>
		<base>
		<elem1 a1="elem1 a1" a2="elem1 a2"/>
		<elem2 a1="elem2 a1" a2="elem2 a2"/>
		</base>
		</xml>

		== Example 2. Reading and analyzing documents ==
		External xml file to parse. Test.xml
		<xml>
		<?xml version="1.0" encoding="window-1251"?>
		<root>
		<elem1 a1="v1" a2="v2"> 1</elem1>
		<!-- -->
		<elem2 a1="v1" a2="v2"> 2</elem2>
		</root>
		</xml>

		Delphi code
		<delphi>
		var
		aDoc: ILMDXmlDocument;
		anElem2: ILMDXmlNode;
		begin
		// Create empty XML document
		aDoc := LMDCreateXmlDocument;

		// Read content from file
		aDoc.Load('Test.xml');

		// Show in Memo1 full text of xml that we read above
		Memo1.Lines.Text := aDoc.Xml;

		Memo1.Lines.Add('------------------------');

		// Search element with tag 'elem2'
		anElem2 := aDoc.DocumentElement.SelectSingleNode('elem2');

		// Show in Memo1 XML-text anElem2
		Memo1.Lines.Add(anElem2.Xml);

		Memo1.Lines.Add('------------------------');

		// Show in Memo1 value of 'a2' attribute from anElem2 element
		Memo1.Lines.Add(anElem2.GetAttr('a2'));
		end;
		</delphi>

Fduch at 15:17, 21 February 2008

2008-02-21T15:17:31Z

← Older revision		Revision as of 17:17, 21 February 2008
Line 1:		Line 1:
	~~== Example 1. Creating and saving document ==~~
	~~<delphi>~~
	~~var~~
	~~aDoc: ILMDXmlDocument;~~
	~~anElem: ILMDXmlElement;~~
	~~begin~~
	~~// Create empty XML document with root element 'base'~~
	~~aDoc := LMDCreateXmlDocument('base');~~

	~~// Create 'elem1' element and add it as child node for root element~~
	~~anElem := aDoc.DocumentElement.AppendElement('elem1');~~

	~~// Add 'a1' and 'a2' attributes to 'elem1'~~
	~~anElem.SetAttr('a1', 'elem1 a1');~~
	~~anElem.SetAttr('a2', 'elem1 a2');~~

	~~// Add another element 'elem2'~~
	~~anElem := aDoc.DocumentElement.AppendElement('elem');~~
	~~anElem.SetAttr('a1', 'elem2 a1');~~
	~~anElem.SetAttr('a2', 'elem2 a2');~~

	~~// Save document to file~~
	~~aDoc.Save('Test.xml');~~
	~~end;~~
	~~</delphi>~~

	~~There is content of saved file:~~
	~~<xml>~~
	~~<?xml version="1.0" encoding="windows-1251"?>~~
	~~<base>~~
	~~<elem1 a1="elem1 a1" a2="elem1 a2"/>~~
	~~<elem2 a1="elem2 a1" a2="elem2 a2"/>~~
	~~</base>~~
	~~</xml>~~

	~~== Example 2. Reading and analyzing documents ==~~
	~~External xml file to parse. Test.xml~~
	~~<xml>~~
	~~<?xml version="1.0" encoding="window-1251"?>~~
	~~<root>~~
	~~<elem1 a1="v1" a2="v2"> 1</elem1>~~
	~~<!-- -->~~
	~~<elem2 a1="v1" a2="v2"> 2</elem2>~~
	~~</root>~~
	~~</xml>~~

	~~Delphi code~~
	~~<delphi>~~
	~~var~~
	~~aDoc: ILMDXmlDocument;~~
	~~anElem2: ILMDXmlNode;~~
	~~begin~~
	~~// Create empty XML document~~
	~~aDoc := LMDCreateXmlDocument;~~

	~~// Read content from file~~
	~~aDoc.Load('Test.xml');~~

	~~// Show in Memo1 full text of xml that we read above~~
	~~Memo1.Lines.Text := aDoc.Xml;~~

	~~Memo1.Lines.Add('------------------------');~~

	~~// Search element with tag 'elem2'~~
	~~anElem2 := aDoc.DocumentElement.SelectSingleNode('elem2');~~

	~~// Show in Memo1 XML-text anElem2~~
	~~Memo1.Lines.Add(anElem2.Xml);~~

	~~Memo1.Lines.Add('------------------------');~~

	~~// Show in Memo1 value of 'a2' attribute from anElem2 element~~
	~~Memo1.Lines.Add(anElem2.GetAttr('a2'));~~
	~~end;~~
	~~</delphi>~~