Delphi DLL

XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method. 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;
orderBillingInfo: HCkXml;
index: Integer;
xCustId: HCkXml;

begin
success := False;

xml := CkXml_Create();

CkXml_putTag(xml,'order');
CkXml_NewChild2(xml,'order_billing_info|price_list','Listino Italia');
CkXml_NewChild2(xml,'order_billing_info|price_list_id','1');
CkXml_NewChild2(xml,'order_billing_info|first_name','Francesco');

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

// We now have the following XML:

// <?xml version="1.0" encoding="utf-8"?>
// <order>
//     <order_billing_info>
//         <price_list>Listino Italia</price_list>
//         <price_list_id>1</price_list_id>
//         <first_name>Francesco</first_name>
//     </order_billing_info>
// </order>

// If there is no "customer_id" element under "order_billing_info", then add it.
if (CkXml_HasChildWithTag(xml,'order_billing_info|customer_id') = True) then
  begin
    Memo1.Lines.Add('customer_id already exists, nothing to do...');
    Exit;
  end;

// Add the customer_id element just before the "price_list" element.

// Get the "order_billing_info" element
orderBillingInfo := CkXml_FindChild(xml,'order_billing_info');

// Call NewChildBefore to add an XML element <customer_id> before <price_list>
// First get the index of the element price_list
index := CkXml_TagIndex(orderBillingInfo,'price_list');
Memo1.Lines.Add('index = ' + IntToStr(index));

// Add the "customer_id" element just before specified index.
xCustId := CkXml_NewChildBefore(orderBillingInfo,index,'customer_id','1234');
CkXml_Dispose(xCustId);
CkXml_Dispose(orderBillingInfo);

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

// We now have:

// <?xml version="1.0" encoding="utf-8"?>
// <order>
//     <order_billing_info>
//         <customer_id>1234</customer_id>
//         <price_list>Listino Italia</price_list>
//         <price_list_id>1</price_list_id>
//         <first_name>Francesco</first_name>
//     </order_billing_info>
// </order>

CkXml_Dispose(xml);

end;