Delphi DLL

Demonstrates the ChilkatPath XML Method

Demonstrates how to use the ChilkatPath method. This example uses the XML sample file pigs.xml. The pigs.xml file contains this content:
Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
xml: HCkXml;
result: PWideChar;

begin
success := False;

xml := CkXml_Create();

success := CkXml_LoadXmlFile(xml,'qa_data/xml/pigs.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    Exit;
  end;

// Get the content of the "species" node for the 1st animal:

result := CkXml__chilkatPath(xml,'animal|species|*');
// Output should be "pot belly pig"
Memo1.Lines.Add(result);

// Get the content of the "type" node for the 2nd animal:
// Indexing begins at 0.  Therefore, the 2nd direct child having
// the tag "animal" is at index 1
result := CkXml__chilkatPath(xml,'animal[1]|type|*');
// Output should be "House Pig"
Memo1.Lines.Add(result);

// Find the pig having the name "Nigel" and display the
// birth date.  To do this, we&apos;ll navigate to the node having
// tag="name" with the exact content "Nigel", then navigate up, 
// and finally navigate back down to the "birth" node:
result := CkXml__chilkatPath(xml,'/C/name,Nigel|..|birth|*');
// Output should be "June, 1991"
Memo1.Lines.Add(result);

// Navigate to the 1st animal&apos;s picture and print the filename,
// description, and caption.
// The "$" updates the caller&apos;s internal pointer to reference
// the node that is the result of evaluating the path.
// An empty string is returned for success, and a NULL/nil/0
// pointer (reference) is returned on failure.  
result := CkXml__chilkatPath(xml,'animal|picture|$');
if (CkXml_getLastMethodSuccess(xml) <> True) then
  begin
    Memo1.Lines.Add('Failed to navigate to animal|picture.');
    Exit;
  end;

// Display the contents of the file/description/caption child nodes
Memo1.Lines.Add('Picture Info:');
Memo1.Lines.Add(CkXml__getChildContent(xml,'file'));
Memo1.Lines.Add(CkXml__getChildContent(xml,'description'));
Memo1.Lines.Add(CkXml__getChildContent(xml,'caption'));

// Return back to the root of the XML document:
CkXml_GetRoot2(xml);

// Display the value of the "spay-neuter" attribute of the 1st animal:
Memo1.Lines.Add('----');
result := CkXml__chilkatPath(xml,'animal|gender|(spay-neuter)');
Memo1.Lines.Add(result);

CkXml_Dispose(xml);

end;