Xbase++

Simple SOAP Request

See more HTTP Examples

Demonstrates how to send a simple SOAP request. Xbase++

LOCAL nSuccess
LOCAL oXml
LOCAL cSoapRequestBody
LOCAL cEndpoint
LOCAL cSoapAction
LOCAL cContentType
LOCAL oHttp
LOCAL oResp
LOCAL oResponseXml
LOCAL nStatusCode
LOCAL cDat_NumberToDollarsResult

nSuccess := 0

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

//  Create the following XML to be sent in the SOAP request body.

//  <soapenv:Envelope xmlns:dat="http://www.dataaccess.com/webservicesserver/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//      <soapenv:Header/>
//      <soapenv:Body>
//          <dat:NumberToDollars>
//              <dat:dNum>99.0</dat:dNum>
//          </dat:NumberToDollars>
//      </soapenv:Body>
//  </soapenv:Envelope>

oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:dat", "http://www.dataaccess.com/webservicesserver/")
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:UpdateChildContent("soapenv:Header", "")
oXml:UpdateChildContent("soapenv:Body|dat:NumberToDollars|dat:dNum", "99.0")

//  In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. 
oXml:EmitXmlDecl := 0
cSoapRequestBody := oXml:GetXml()

cEndpoint := "https://www.dataaccess.com/webservicesserver/numberconversion.wso"
cSoapAction := ""
//   For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
cContentType := "text/xml"

oHttp := CreateObject("Chilkat.Http")

oHttp:ClearHeaders()
oHttp:SetRequestHeader("SOAPAction", cSoapAction)

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", cEndpoint, cSoapRequestBody, "utf-8", cContentType, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oXml:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Get the XML response body.
oResponseXml := CreateObject("Chilkat.Xml")
oResp:GetBodyXml(oResponseXml)

nStatusCode := oResp:StatusCode
? "response status code: " + Str(nStatusCode)

//  If the status code does not indicate succcess, then show the response XML,
//  which probably contains error information.
IF (nStatusCode != 200)
    ? oResponseXml:GetXml()
    oXml:destroy()
    oHttp:destroy()
    oResp:destroy()
    oResponseXml:destroy()
    RETURN
ENDIF

? oResponseXml:GetXml()

//  Parse the successful SOAP response XML.

//  This is a sample of the response XML, but the namespace prefixes will be different.
//  We can parse the result using "*" for the namespace prefixes (see below).

//  <soapenv:Envelope xmlns:dat="http://www.dataaccess.com/webservicesserver/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//      <soapenv:Header/>
//      <soapenv:Body>
//          <dat:NumberToDollarsResponse>
//              <dat:NumberToDollarsResult>string</dat:NumberToDollarsResult>
//          </dat:NumberToDollarsResponse>
//      </soapenv:Body>
//  </soapenv:Envelope>

cDat_NumberToDollarsResult := oResponseXml:GetChildContent("*:Body|*:NumberToDollarsResponse|*:NumberToDollarsResult")
? "result: " + cDat_NumberToDollarsResult

oXml:destroy()
oHttp:destroy()
oResp:destroy()
oResponseXml:destroy()