(Delphi DLL) Handling Namespaces in XML Tags

See more XML Examples

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: HCkXml;
xmlBody: HCkXml;
isBodyTag: Boolean;
isSoapenv: Boolean;

begin
// First create some XML using namespace prefixed tags.

// Create this XML. 
// Use this online tool to generate the code from sample XML: 
// Generate Code to Create XML

// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
//    xmlns:scm="http://www.springcm.com/atlas/webservices/v201308/scm/">
//    <soapenv:Header/>
//    <soapenv:Body>
//       <scm:AccountGetCurrent>
//          <scm:token>123</scm:token>
//       </scm:AccountGetCurrent>
//    </soapenv:Body>
// </soapenv:Envelope>

xml := CkXml_Create();
CkXml_putTag(xml,'soapenv:Envelope');
CkXml_AddAttribute(xml,'xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
CkXml_AddAttribute(xml,'xmlns:scm','http://www.springcm.com/atlas/webservices/v201308/scm/');
CkXml_UpdateChildContent(xml,'soapenv:Header','');
CkXml_UpdateChildContent(xml,'soapenv:Body|scm:AccountGetCurrent|scm:token','123');

// Go to the "Body" tag, regardless of namespace prefix.
xmlBody := CkXml_FindChild(xml,'*:Body');
if (CkXml_getLastMethodSuccess(xml) <> True) then
  begin
    Memo1.Lines.Add('Body child not found.');
    Exit;
  end;

// Get the full tag w/ namespace prefix:
// Output is "soapenv:Body"
Memo1.Lines.Add(CkXml__tag(xmlBody));

// Get the namespace prefix:
// Output is "soapenv"
Memo1.Lines.Add(CkXml__tagNsPrefix(xmlBody));

// Get the unprefixed tag:
// Output is "Body"
Memo1.Lines.Add(CkXml__tagUnprefixed(xmlBody));

// Check to see if the unprefixed tag equals "Body"
isBodyTag := CkXml_TagUnpEquals(xmlBody,'Body');
Memo1.Lines.Add('isBodyTag = ' + IntToStr(Ord(isBodyTag)));

// Check to see if the namespace prefix equals "soapenv";
isSoapenv := CkXml_TagNsEquals(xmlBody,'soapenv');
Memo1.Lines.Add('isSoapenv = ' + IntToStr(Ord(isSoapenv)));

// Change just the namespace prefix of the tag
CkXml_putTagNsPrefix(xmlBody,'se');
// The tag has changed from "soapenv:Body" to "se:Body"
Memo1.Lines.Add(CkXml__tag(xmlBody));

// Change the unprefixed part of the tag.
CkXml_putTagUnprefixed(xmlBody,'Bodie');
// The tag has changed from "se:Body" to "se:Bodie"
Memo1.Lines.Add(CkXml__tag(xmlBody));

CkXml_Dispose(xmlBody);

CkXml_Dispose(xml);

end;