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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro
LOCAL lnSuccess
LOCAL loHttp
LOCAL loXml
LOCAL loResp
LOCAL loRespXml

lnSuccess = 0

* 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.
* --------------------------------------------------------------------------------

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..
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")

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

* Send the request...
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST","https://www.something.com/wsSome_Testes/Service.asmx",loXml.GetXml(),"utf-8","application/soap+xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loXml
    RELEASE loResp
    CANCEL
ENDIF

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

loRespXml = CreateObject('Chilkat.Xml')
loRespXml.LoadXml(loResp.BodyStr)

? "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 loResp
RELEASE loRespXml