Xbase++

SOAP Request to fseservicetest.sanita.finanze.it with Basic Authentication

See more HTTP Misc Examples

Demonstrates sending a SOAP request to fseservicetest.sanita.finanze.it with Basic Authentication. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oXml
LOCAL cSoapEnvelope
LOCAL cDomain
LOCAL cPath
LOCAL oReq
LOCAL oResp
LOCAL oXmlResp

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oHttp := CreateObject("Chilkat.Http")
oXml := CreateObject("Chilkat.Xml")

nSuccess := 0

//  Create the SOAP envelope...
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:AddAttribute("xmlns:stat", "http://statoconsensirichiesta.xsd.fse.ini.finanze.it")
oXml:AddAttribute("xmlns:tip", "http://tipodatistatoconsensi.xsd.fse.ini.finanze.it")
oXml:UpdateChildContent("soapenv:Header", "")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoUtente", "XXXXXXAAABBBCCC")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:pinCode", "...")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoOrganizzazione", "999")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:StrutturaUtente", "123456789")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:RuoloUtente", "ZZZ")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:ContestoOperativo", "")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoAssistitoGenitoreTutore", "")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:PresaInCarico", "true")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:TipoAttivita", "READ")
oXml:UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoAssistitoConsenso", "ABCDEFGHIJKLM")
cSoapEnvelope := oXml:GetXml()

cDomain := "fseservicetest.sanita.finanze.it"
cPath := "/FseInsServicesWeb/services/fseStatoConsensi"

oReq := CreateObject("Chilkat.HttpRequest")
oReq:HttpVerb := "POST"
oReq:SendCharset := 0
oReq:AddHeader("Content-Type", "application/soap+xml; charset=utf-8")
oReq:Path := cPath
nSuccess := oReq:LoadBodyFromString(cSoapEnvelope, "utf-8")

//  User name and Password for Basic Authentication 
oHttp:Login := "XXXXXXAAABBBCCC"
oHttp:Password := "MYPASSWORD"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq(cDomain, 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oXml:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

oXmlResp := CreateObject("Chilkat.Xml")
nSuccess := oXmlResp:LoadXml(oResp:BodyStr)
? oXmlResp:GetXml()

oHttp:destroy()
oXml:destroy()
oReq:destroy()
oResp:destroy()
oXmlResp:destroy()