PowerBuilder

Send SOAP 1.2 Request to Web Service Requiring Authentication

See more HTTP Examples

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

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Xml
oleobject loo_Resp
oleobject loo_RespXml

li_Success = 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.
// --------------------------------------------------------------------------------

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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).
loo_Http.Login = "YOUR_LOGIN"
// The need for a login domain depends on the web service..
loo_Http.LoginDomain = "YOUR_DOMAIN"
loo_Http.Password = "YOUR_PASSWORD"

// Build the SOAP XML shown above:
// Replace VAL_ABCBEN, VAL_ABC, VAL_NUMLOCAL, and YOUR_SOAP_BODY_PASSWORD with actual values..
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.Tag = "soap12:Envelope"
loo_Xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loo_Xml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
loo_Xml.AddAttribute("xmlns:soap12","http://www.w3.org/2003/05/soap-envelope")
loo_Xml.UpdateAttrAt("soap12:Body|GetXYZbyABC",1,"xmlns","http://tempuri.org/")
loo_Xml.UpdateChildContent("soap12:Body|GetXYZbyABC|ABCBEN","VAL_ABCBEN")
loo_Xml.UpdateChildContent("soap12:Body|GetXYZbyABC|ABC","VAL_ABC")
loo_Xml.UpdateChildContent("soap12:Body|GetXYZbyABC|NumLocal","VAL_NUMLOCAL")
loo_Xml.UpdateChildContent("soap12:Body|GetXYZbyABC|Password","YOUR_SOAP_BODY_PASSWORD")
loo_Xml.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...
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpStr("POST","https://www.something.com/wsSome_Testes/Service.asmx",loo_Xml.GetXml(),"utf-8","application/soap+xml",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Xml
    destroy loo_Resp
    return
end if

Write-Debug "Response Status Code = " + string(loo_Resp.StatusCode)

loo_RespXml = create oleobject
li_rc = loo_RespXml.ConnectToNewObject("Chilkat.Xml")

loo_RespXml.LoadXml(loo_Resp.BodyStr)

Write-Debug "Response XML:"
Write-Debug loo_RespXml.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>


destroy loo_Http
destroy loo_Xml
destroy loo_Resp
destroy loo_RespXml