(Delphi DLL) XML SearchForAttribute Method

Demonstrates the SearchForAttribute method.

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();

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');
if (CkXml_getLastMethodSuccess(xml) = False) then
  begin
    Memo1.Lines.Add('searchRoot not found, searching from root.');
    xSearchRoot := CkXml_GetRoot(xml);
  end;

// Search for all "fruit" nodes having a color attribute
// where the name of the color ends in "e"
xBeginAfter := CkXml_GetSelf(xSearchRoot);
xFound := CkXml_SearchForAttribute(xSearchRoot,xBeginAfter,'fruit','color','*e');
while (CkXml_getLastMethodSuccess(xSearchRoot) = True) do
  begin

    Memo1.Lines.Add(CkXml__content(xFound) + ': ' + CkXml__getAttrValue(xFound,'color'));

    CkXml_Dispose(xBeginAfter);
    xBeginAfter := xFound;
    xFound := CkXml_SearchForAttribute(xSearchRoot,xBeginAfter,'fruit','color','*e');
  end;

// The correct output is:
// grape: purple
// blueberry: blue

CkXml_Dispose(xBeginAfter);

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

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

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

success := CkXml_SearchForAttribute2(xSearch,xBeginAfter,'fruit','color','*e');
while success = True do
  begin

    Memo1.Lines.Add(CkXml__content(xSearch) + ': ' + CkXml__getAttrValue(xSearch,'color'));

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

    success := CkXml_SearchForAttribute2(xSearch,xBeginAfter,'fruit','color','*e');
  end;

CkXml_Dispose(xSearch);
CkXml_Dispose(xBeginAfter);

CkXml_Dispose(xSearchRoot);

CkXml_Dispose(xml);

end;