Delphi DLL

Find XML Element where Attribute = Value

See more XML Examples

Finds an XML element at a particular location where an attribute has a specified value. 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;
notUsed: PWideChar;

begin
success := False;

// We have the following XML and wish to find the value of the time attribute where msg = "alert-from".

// <cdr id="4e5d3e7f41bf6201ad81000c29703270" e164="6207">
//     <user>
//         <grp name="wfln" mode="active"/>
//     </user>
//     <event msg="setup-to" time="287069" e164="5034"/>
//     <event msg="alert-from" time="287069" e164="5034"/>
//     <event msg="rel-to" time="287079" e164="5034"/>
// </cdr>

// First, build the above XML:

xml := CkXml_Create();
CkXml_putTag(xml,'cdr');
CkXml_AddAttribute(xml,'id','4e5d3e7f41bf6201ad81000c29703270');
CkXml_AddAttribute(xml,'e164','6207');
CkXml_UpdateAttrAt(xml,'user|grp',True,'name','wfln');
CkXml_UpdateAttrAt(xml,'user|grp',True,'mode','active');
CkXml_UpdateAttrAt(xml,'event',True,'msg','setup-to');
CkXml_UpdateAttrAt(xml,'event',True,'time','287069');
CkXml_UpdateAttrAt(xml,'event',True,'e164','5034');
CkXml_UpdateAttrAt(xml,'event[1]',True,'msg','alert-from');
CkXml_UpdateAttrAt(xml,'event[1]',True,'time','287069');
CkXml_UpdateAttrAt(xml,'event[1]',True,'e164','5034');
CkXml_UpdateAttrAt(xml,'event[2]',True,'msg','rel-to');
CkXml_UpdateAttrAt(xml,'event[2]',True,'time','287079');
CkXml_UpdateAttrAt(xml,'event[2]',True,'e164','5034');

// Show that we have the above XML
Memo1.Lines.Add(CkXml__getXml(xml));

// Find the element where msg = "alert-from"
// This updates the xml object's reference to the found element (if successful).
notUsed := CkXml__chilkatPath(xml,'/A/event,msg,alert-from|$');
if (CkXml_getLastMethodSuccess(xml) = False) then
  begin
    Memo1.Lines.Add('Not found.');
    Exit;
  end;

// Get the value of the "time" attribute.
Memo1.Lines.Add('time = ' + CkXml__getAttrValue(xml,'time'));

// Restore the xml object's internal reference to the root of the XML document
CkXml_GetRoot2(xml);

CkXml_Dispose(xml);

end;