Delphi DLL

Handling Namespaces in XML Tags

See more XML Examples

Demonstrates new features added in Chilkat v9.5.0.77 for helping with namespace prefixed tags. 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
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;