Delphi Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Delphi Examples

Bounced Mail
Bz2
Character Encoding
CSV
DKIM / DomainKey
Digital Certificates
Digital Signatures
DH Key Exchange
DSA
Email
Email Object
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
NTLM
POP3
RSA
S/MIME
SMTP
Socket
Spider
SFTP
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Byte Array
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
Bzip2
LZW

Type Conversion

 

Article: Understanding COM References in Delphi

Iterate over nodes in an XML document using SearchForTag

Download Chilkat XML ActiveX

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

// 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;

 

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

Mail Component · .NET Email Component · XML Parser