Pascal (Lazarus/Delphi)

XML Add Child Tree

Demonstrates the Xml.AddChildTree method. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Xml;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  xml: TXml;
  xml2: TXml;

begin
  success := False;

  //  Build the following XML:

  //  <?xml version="1.0" encoding="utf-8"?>
  //  <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
  //      <soap12:Body>
  //          <cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4">
  //  	   </cteDadosMsg>
  //      </soap12:Body>
  //  </soap12:Envelope>

  xml := TXml.Create;
  xml.Tag := 'soap12:Envelope';
  xml.AddAttribute('xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
  xml.AddAttribute('xmlns:xsd','http://www.w3.org/2001/XMLSchema');
  xml.AddAttribute('xmlns:soap12','http://www.w3.org/2003/05/soap-envelope');
  xml.UpdateAttrAt('soap12:Body|cteDadosMsg',True,'xmlns','http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4');

  //  We want to add the following XML as a sub-tree under the "cteDadosMsg" element.

  //  <consStatServCTe versao="4.00" xmlns="http://www.portalfiscal.inf.br/cte">
  //      <tpAmb>2</tpAmb>
  //      <cUF>43</cUF>
  //      <xServ>STATUS</xServ>
  //  </consStatServCTe>

  //  Build the XML to be added as a child tree.

  xml2 := TXml.Create;
  xml2.Tag := 'consStatServCTe';
  xml2.AddAttribute('versao','4.00');
  xml2.AddAttribute('xmlns','http://www.portalfiscal.inf.br/cte');
  xml2.UpdateChildContent('tpAmb','2');
  xml2.UpdateChildContent('cUF','43');
  xml2.UpdateChildContent('xServ','STATUS');

  //  Add the child tree at the desired location:
  //  Temporarily point to the location where we wish to add the child tree.
  success := xml.FindChild2('soap12:Body|cteDadosMsg');
  if (success = False) then
    begin
      //  Restore current location to the root.
      xml.GetRoot2();
      Exit;
    end;

  success := xml.AddChildTree(xml2);
  //  Restore the current location to the root.
  xml.GetRoot2();

  //  You can see now that the XML contain the child tree:

  WriteLn(xml.GetXml());

  //  <?xml version="1.0" encoding="utf-8"?>
  //  <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
  //      <soap12:Body>
  //          <cteDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CTeStatusServicoV4">
  //              <consStatServCTe versao="4.00" xmlns="http://www.portalfiscal.inf.br/cte">
  //                  <tpAmb>2</tpAmb>
  //                  <cUF>43</cUF>
  //                  <xServ>STATUS</xServ>
  //              </consStatServCTe>
  //          </cteDadosMsg>
  //      </soap12:Body>
  //  </soap12:Envelope>


  xml.Free;
  xml2.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.