Xbase++ Requires Chilkat v11.0.0+

Mastercard ICCP Get Data Source with OAuth1

See more Mastercard Examples

Demonstrates OAuth1 authentication with the Mastercard SOAP API's. This example sends a POST to the sandbox endpoint for the "In Control for Commercial Payments" (ICCP) API. Xbase++

LOCAL nSuccess
LOCAL oXml
LOCAL oPfx
LOCAL oPrivKey
LOCAL oHttp
LOCAL oResp
LOCAL oRespXml

nSuccess := 0

//  This example requires the Chilkat 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.
//  --------------------------------------------------------------------------------

//  First build the XML body of the SOAP request:

//      <soapenv:Envelope
//  	    xmlns:ser="http://mastercard.com/sd/pc/service"
//  	    xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//  	    <soapenv:Header>
//  	    </soapenv:Header>
//  	    <soapenv:Body>
//  		    <ser:getDataSourcesRequest></ser:getDataSourcesRequest>
//  	    </soapenv:Body>
//      </soapenv:Envelope>

//  Use this online tool to generate code from sample XML: 
//  Generate Code to Create XML

oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "soapenv:Envelope"
oXml:AddAttribute("xmlns:ser", "http://mastercard.com/sd/pc/service")
oXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oXml:UpdateChildContent("soapenv:Header", "")
oXml:UpdateChildContent("soapenv:Body|ser:getDataSourcesRequest", "")

//  We'll need to get our signing RSA key from the PFX (provided by Mastercard)
oPfx := CreateObject("Chilkat.Pfx")
nSuccess := oPfx:LoadPfxFile("qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12", "keystorepassword")
IF (nSuccess == 0)
    ? oPfx:LastErrorText
    oXml:destroy()
    oPfx:destroy()
    RETURN
ENDIF

oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPfx:PrivateKeyAt(0, oPrivKey)
IF (nSuccess == 0)
    ? oPfx:LastErrorText
    oXml:destroy()
    oPfx:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

oHttp := CreateObject("Chilkat.Http")

oHttp:OAuth1 := 1
//  Use your own consumer key (this is not a valid consumer key)
oHttp:OAuthConsumerKey := "MLBRl0-xxxxxxxxxxxxxxxxxxxxxxxxxx_BUNtu5xxxxx20b!a075a714a5fxxxxxxxxxxxxx59cd02b60000000000000000"
oHttp:OAuthSigMethod := "RSA-SHA256"
nSuccess := oHttp:SetOAuthRsaKey(oPrivKey)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oXml:destroy()
    oPfx:destroy()
    oPrivKey:destroy()
    oHttp:destroy()
    RETURN
ENDIF

//  Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
oHttp:OAuthBodyHash := 1

//  Send the SOAP XML request and get the response.
//  Chilkat automaticaly adds the OAuth1 authentication.
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", "https://sandbox.api.mastercard.com/iccp/financial", oXml:GetXml(), "utf-8", "application/xml", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oXml:destroy()
    oPfx:destroy()
    oPrivKey:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Examine the response status code and the XML response body.
? "Response status code = " + Str(oResp:StatusCode)

oRespXml := CreateObject("Chilkat.Xml")
oResp:GetBodyXml(oRespXml)

? "Response XML:"
? oRespXml:GetXml()

//  If desired, use this online tool to generate parsing code from response XML.
//  (Run your code once to get a representative sample response, and then generate the parsing code.)
//  Generate Parsing Code from XML

oXml:destroy()
oPfx:destroy()
oPrivKey:destroy()
oHttp:destroy()
oResp:destroy()
oRespXml:destroy()