Delphi DLL

AddAttribute - Insert New Attribute in an XML Node

Demonstrates adding an name=value attribute to an XML element.

This example uses the XML sample file here: sample1.xml. The sample1.xml file contains this content:

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;
bFound: Boolean;
numChildren: Integer;
i: Integer;

begin
success := False;

xml := CkXml_Create();

success := CkXml_LoadXmlFile(xml,'qa_data/xml/sample1.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    Exit;
  end;

// Navigate to the "books" element:
bFound := CkXml_FindChild2(xml,'books');
if (bFound = False) then
  begin
    Memo1.Lines.Add('No books child found!');
    Exit;
  end;

numChildren := CkXml_getNumChildren(xml);

i := 0;
while i < numChildren do
  begin

    // Navigate to the Nth book 
    CkXml_GetChild2(xml,i);

    // Display the book title:
    Memo1.Lines.Add(CkXml__getAttrValue(xml,'title'));

    // Add a new integer attribute:
    // Should never fail..
    CkXml_AddAttributeInt(xml,'bookId',i);

    // Add a new unread="yes" attribute:
    CkXml_AddAttribute(xml,'unread','yes');

    // Navigate back up to the parent:
    CkXml_GetParent2(xml);

    i := i + 1;
  end;

// Navigate back to the document root:
CkXml_GetRoot2(xml);

// Save the updated document:
success := CkXml_SaveXml(xml,'modified.xml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkXml__lastErrorText(xml));
    Exit;
  end;

Memo1.Lines.Add(CkXml__getXml(xml));

CkXml_Dispose(xml);

end;