Scan XML Document in Delphi

Download Chilkat XML ActiveX

Download crisp.xml used in this example: crispXml.zip

// Iterate over each "DOC" record and copy the
// ArticleTitle to a new XML document
procedure TForm1.Example2Click(Sender: TObject);
var
	xml: IChilkatXml;
	outXml: IChilkatXml;

begin
	xml := CoChilkatXml.Create();
	outXml := CoChilkatXml.Create();

	// Load the input document.
	xml.LoadXmlFile('crisp.xml');

	// Create the output XML document in-memory
	outXml.Tag := 'article_titles';

	// Iterate over the "DOC" nodes by calling FirstChild2
	// followed by NextSibling2 repeatedly until it returns false.
	// Calling FirstChild2 updates our internal reference to the first child.
	if (xml.FirstChild2() = 0) then
		xml := nil;

	while (xml <> nil) do
	begin
		// FindChild2 updates our internal reference to the found child.
		if (xml.FindChild2('ArticleTitle') = 1) then
		begin
			// NewChild returns the created child, whereas NewChild2 does not.
			outXml.NewChild2('article',xml.Content);
			// Restore our internal reference back to the parent.
			xml.GetParent2();
		end;

		// Move to the next sibling. The internal reference within node is updated
		// to the node's next sibling. If no siblings remain, it returns 0.
		if (xml.NextSibling2() = 0) then
		xml := nil;
	end;

	outXml.SaveXml('ArticleTitles2.xml');

end;