Delphi ActiveX

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 ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
xml: TChilkatXml;
notUsed: WideString;

begin
success := 0;

// 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 := TChilkatXml.Create(Self);
xml.Tag := 'cdr';
xml.AddAttribute('id','4e5d3e7f41bf6201ad81000c29703270');
xml.AddAttribute('e164','6207');
xml.UpdateAttrAt('user|grp',1,'name','wfln');
xml.UpdateAttrAt('user|grp',1,'mode','active');
xml.UpdateAttrAt('event',1,'msg','setup-to');
xml.UpdateAttrAt('event',1,'time','287069');
xml.UpdateAttrAt('event',1,'e164','5034');
xml.UpdateAttrAt('event[1]',1,'msg','alert-from');
xml.UpdateAttrAt('event[1]',1,'time','287069');
xml.UpdateAttrAt('event[1]',1,'e164','5034');
xml.UpdateAttrAt('event[2]',1,'msg','rel-to');
xml.UpdateAttrAt('event[2]',1,'time','287079');
xml.UpdateAttrAt('event[2]',1,'e164','5034');

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

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

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

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