(Delphi DLL) XML SearchForTag Method

Demonstrates the SearchForTag and SearchForTag2 methods.

The input XML, available at http://www.chilkatsoft.com/data/fruitSearch.xml, is this:

<root>
    <searchRoot>
        <fruit color="red">apple</fruit>
        <fruit color="green">pear</fruit>
        <veg color="orange">carrot</veg>
        <meat animal="cow">beef</meat>
        <xyz>
            <fruit color="blue">blueberry</fruit>
            <veg color="green">broccoli</veg>
        </xyz>
        <fruit color="purple">grape</fruit>
        <cheese color="yellow">cheddar</cheese>
    </searchRoot>
    <fruit color="red">strawberry</fruit>
    <fruit color="orange">peach</fruit>
</root>

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
xml: HCkXml;
xSearchRoot: HCkXml;
xBeginAfter: HCkXml;
xFound: HCkXml;
success: Boolean;
xSearch: HCkXml;

begin
xml := CkXml_Create();

// The sample input XML is available at http://www.chilkatsoft.com/data/fruitSearch.xml
success := CkXml_LoadXmlFile(xml,'qa_data/xml/fruitSearch.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    Exit;
  end;

// Search the sub-tree rooted at "searchRoot"
xSearchRoot := CkXml_FindChild(xml,'searchRoot');

// Search for all nodes having the tag "fruit"
xBeginAfter := CkXml_GetSelf(xSearchRoot);
xFound := CkXml_SearchForTag(xSearchRoot,xSearchRoot,'fruit');
while (CkXml_getLastMethodSuccess(xSearchRoot) = True) do
  begin

    Memo1.Lines.Add(CkXml__content(xFound));

    CkXml_Dispose(xBeginAfter);
    xBeginAfter := xFound;
    xFound := CkXml_SearchForTag(xSearchRoot,xBeginAfter,'fruit');
  end;

CkXml_Dispose(xBeginAfter);

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

// ---------------------------------------------------------------------------------
// Now do the same, but instead use SearchForTag2
// which updates the internal reference of the caller instead
// of returning the found node.

xBeginAfter := CkXml_GetSelf(xSearchRoot);
xSearch := CkXml_GetSelf(xSearchRoot);

success := CkXml_SearchForTag2(xSearch,xBeginAfter,'fruit');
while success = True do
  begin

    Memo1.Lines.Add(CkXml__content(xSearch));

    // Copy the internal references so that the next search
    // begins after the found node.
    CkXml_CopyRef(xBeginAfter,xSearch);
    CkXml_CopyRef(xSearch,xSearchRoot);

    success := CkXml_SearchForTag2(xSearch,xBeginAfter,'fruit');
  end;

CkXml_Dispose(xSearch);
CkXml_Dispose(xBeginAfter);

CkXml_Dispose(xSearchRoot);

CkXml_Dispose(xml);

end;