(Delphi DLL) Find and Update an XML Attribute Value

See more XML Examples

Demonstrates how to find an element in XML with a specified attribute name and then update the attribute value.

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, StringBuilder, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml1: HCkXml;
xml2: HCkXml;
phrase_id: PWideChar;
phrase_value: PWideChar;
sbPath: HCkStringBuilder;
i: Integer;
count_i: Integer;

begin
// Let's say you have 2 XML files with identical structures as shown directly below,
// and you wish to update the values in the 1st XML file with those in the 2nd XML file.

// <global>
//     <phrase id="2FADisabled" value="2factor authentication disabled"/>
//     <phrase id="2FAEnabled" value="2factor authentication enabled"/>
//     <phrase id="2FAResetFailed" value="Failed to disable two factor authentication"/>
// </global>

// <global>
//     <phrase id="2FAResetFailed" value="Failed to reset two factor authentication"/>
//     <phrase id="2FADisabled" value="2FA authentication disabled"/>
//     <phrase id="2FAEnabled" value="2FA authentication enabled"/>
// </global>

// First, initialize each of the Chilkat XML objects.
// These could be loaded from files, but we'll just create them manually for this example..

xml1 := CkXml_Create();
CkXml_putTag(xml1,'global');
CkXml_UpdateAttrAt(xml1,'phrase',True,'id','2FADisabled');
CkXml_UpdateAttrAt(xml1,'phrase',True,'value','2factor authentication disabled');
CkXml_UpdateAttrAt(xml1,'phrase[1]',True,'id','2FAEnabled');
CkXml_UpdateAttrAt(xml1,'phrase[1]',True,'value','2factor authentication enabled');
CkXml_UpdateAttrAt(xml1,'phrase[2]',True,'id','2FAResetFailed');
CkXml_UpdateAttrAt(xml1,'phrase[2]',True,'value','Failed to disable two factor authentication');

xml2 := CkXml_Create();
CkXml_putTag(xml2,'global');
CkXml_UpdateAttrAt(xml2,'phrase',True,'id','2FAResetFailed');
CkXml_UpdateAttrAt(xml2,'phrase',True,'value','Failed to reset two factor authentication');
CkXml_UpdateAttrAt(xml2,'phrase[1]',True,'id','2FADisabled');
CkXml_UpdateAttrAt(xml2,'phrase[1]',True,'value','2FA authentication disabled');
CkXml_UpdateAttrAt(xml2,'phrase[2]',True,'id','2FAEnabled');
CkXml_UpdateAttrAt(xml2,'phrase[2]',True,'value','2FA authentication enabled');

// Iterate over attribute values in xml2 and update the same in xml1.

sbPath := CkStringBuilder_Create();

i := 0;
count_i := CkXml_NumChildrenHavingTag(xml2,'phrase');
while i < count_i do
  begin
    CkXml_putI(xml2,i);
    phrase_id := CkXml__chilkatPath(xml2,'phrase[i]|(id)');
    phrase_value := CkXml__chilkatPath(xml2,'phrase[i]|(value)');

    // Notice how the UpdateAttrAt method's 1st argument is a Chilkat path -- which is an expression
    // to find the location of the XML element to be updated.
    // Here we create a path of the form "/A/tagName,attributeName,attributeValuePattern", which means
    // find the direct descendent of xml2 having tag=tagName, with an attribute=attributeName where the attribute value
    // matches the attributeValuePattern.  If attributeValuePattern does not contain a "*", then it must match directly.
    // We'll build a Chilkat path such as "/A/phrase,id,2FADisabled"
    CkStringBuilder_SetString(sbPath,'/A/phrase,id,');
    CkStringBuilder_Append(sbPath,phrase_id);

    // This assumes the corresponding element exists in xml1.
    CkXml_UpdateAttrAt(xml1,CkStringBuilder__getAsString(sbPath),True,'value',phrase_value);

    i := i + 1;
  end;

// Now see how xml1 has been updated..
Memo1.Lines.Add(CkXml__getXml(xml1));

CkXml_Dispose(xml1);
CkXml_Dispose(xml2);
CkStringBuilder_Dispose(sbPath);

end;