Delphi Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Delphi Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
HTTP
IMAP
Encryption
MHT / HTML Email
RSA Encryption
S/MIME
Socket
Spider
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Byte Array
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA

Unreleased...
Bzip2
LZW
Bz2
Icon

Type Conversion

 

Article: Understanding COM References in Delphi

Iterate over nodes in an XML document using SearchForTag

Download Delphi Source Code and Project Files

Source Code Listing

// This example requires Chilkat XML v3.0.0
// Scan crisp.xml for ArticleTitles and 
// create another XML document containing
// only the titles.
procedure TForm1.Example1Click(Sender: TObject);
var
  xml: IChilkatXml;
  outXml: IChilkatXml;
  node: IChilkatXml;


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


  xml.LoadXmlFile('crisp.xml');


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


  // Iterate over ArticleTitle tags regardless of where
  // they occur in the document. Setting the first parameter
  // to 0 causes the search to begin from the document root.
  node := xml.SearchForTag(nil,'ArticleTitle');
  while (node <> nil) do
  begin
	    // NewChild returns the created child, whereas NewChild2 does not.
	    outXml.NewChild2('article',node.Content);

	    // Search for the next ArticleTitle tagged node beginning with the node
	    // just after the current node in a breadth-first document tree traversal.
	    node := xml.SearchForTag(node,'ArticleTitle');
	  end;

   outXml.SaveXml('ArticleTitles1.xml');

end;

 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.

Mail Component · .NET Email Component · XML Parser