(Visual FoxPro) Send SOAP 1.2 Request to Web Service Requiring Authentication

This example demonstrates sending a SOAP 1.2 request to a web service that requires both HTTP authentication in the Authorization request header, as well as a service-defined password in the XML body of the request.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loXml
LOCAL loResp
LOCAL loRespXml

* This example assumes the Chilkat HTTP API to have been previously unlocked.
* See Global Unlock Sample for sample code.

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* We are sending the following POST:

* POST /wsSome_Testes/Service.asmx HTTP/1.1
* Host: www.something.com
* Content-Type: application/soap+xml; charset=utf-8
* Content-Length: length
* 
* <?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>
*     <GetXYZbyABC xmlns="http://tempuri.org/">
*       <ABCBEN>string</ABCBEN>
*       <ABC>string</ABC>
*       <NumLocal>int</NumLocal>
*       <Password>string</Password>
*       <MsgErro>string</MsgErro>
*     </GetXYZbyABC>
*   </soap12:Body>
* </soap12:Envelope>
* 

* First, specify the login/password for the Authorization request header (not shown in the headers above).
loHttp.Login = "YOUR_LOGIN"
* The need for a login domain depends on the web service..
loHttp.LoginDomain = "YOUR_DOMAIN"
loHttp.Password = "YOUR_PASSWORD"

* Build the SOAP XML shown above:
* Replace VAL_ABCBEN, VAL_ABC, VAL_NUMLOCAL, and YOUR_SOAP_BODY_PASSWORD with actual values..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soap12:Envelope"
loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
loXml.AddAttribute("xmlns:soap12","http://www.w3.org/2003/05/soap-envelope")
loXml.UpdateAttrAt("soap12:Body|GetXYZbyABC",1,"xmlns","http://tempuri.org/")
loXml.UpdateChildContent("soap12:Body|GetXYZbyABC|ABCBEN","VAL_ABCBEN")
loXml.UpdateChildContent("soap12:Body|GetXYZbyABC|ABC","VAL_ABC")
loXml.UpdateChildContent("soap12:Body|GetXYZbyABC|NumLocal","VAL_NUMLOCAL")
loXml.UpdateChildContent("soap12:Body|GetXYZbyABC|Password","YOUR_SOAP_BODY_PASSWORD")
loXml.UpdateChildContent("soap12:Body|GetXYZbyABC|MsgErro","x")

* Set the Content-Type of the request.
loHttp.SetRequestHeader("Content-Type","application/soap+xml")

* We don't need to specify the Content-Length or Host headers.  Chilkat automatically adds them.

* Send the request...
loResp = loHttp.PostXml("https://www.something.com/wsSome_Testes/Service.asmx",loXml.GetXml(),"utf-8")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loXml
    CANCEL
ENDIF

? "Response Status Code = " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loRespXml = CreateObject('Chilkat.Xml')
loRespXml.LoadXml(loResp.BodyStr)
RELEASE loResp

? "Response XML:"
? loRespXml.GetXml()

* The response XML should look like this:

* <?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>
*     <GetXYZbyABCResponse xmlns="http://tempuri.org/">
*       <GetXYZbyABCResult>int</GetXYZbyABCResult>
*       <MsgErro>string</MsgErro>
*     </GetXYZbyABCResponse>
*   </soap12:Body>
* </soap12:Envelope>

RELEASE loHttp
RELEASE loXml
RELEASE loRespXml