Delphi ActiveX

Access SOAP Body XML

Demonstrates how to access the SOAP body in XML.

<?xml version="1.0" encoding="utf-8" ?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cfdi="http://www.sat.gob.mx/cfd/3">
    <soapenv:Body>
        <tfd:TimbreFiscalDigital version="1.0" />
    </soapenv:Body>
</soapenv:Envelope>

Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
xSoapEnvelope: TChilkatXml;
xSoapBody: IChilkatXml;
xMessageBody: IChilkatXml;
soapMessageXml: WideString;

begin
success := 0;

xSoapEnvelope := TChilkatXml.Create(Self);

success := xSoapEnvelope.LoadXmlFile('soapMessage.xml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(xSoapEnvelope.LastErrorText);
    Exit;
  end;

// The root node is the SOAP envelope, and in this particular case has a Tag of "soapenv:Envelope"
Memo1.Lines.Add('SOAP envelope tag: ' + xSoapEnvelope.Tag);

// The SOAP body (in this case) is a direct child of the SOAP envelope
// and has the tag "soapenv:Body"
xSoapBody := xSoapEnvelope.FindChild('soapenv:Body');
if (xSoapEnvelope.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add('No direct child having the tag "soapenv:Body" was found.');
    Exit;
  end;

// The SOAP message body is the direct child of the SOAP envelope body:
xMessageBody := xSoapBody.FindChild('TimbreFiscalDigital');
if (xSoapBody.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add('No direct child having the tag "TimbreFiscalDigital" was found.');

    Exit;
  end;

// If desired, get the XML of just the SOAP message body:
soapMessageXml := xSoapBody.GetXml();

// --------------------------------------------------------------------------------
// Also see Chilkat's Online WSDL Code Generator
// to generate code and SOAP Request and Response XML for each operation in a WSDL.
// --------------------------------------------------------------------------------
end;