(Visual FoxPro) 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.

Note: This example requires Chilkat v9.5.0.91 or later.

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

LOCAL loXml
LOCAL loPfx
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL loHttp
LOCAL loResp
LOCAL loRespXml

* 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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:ser","http://mastercard.com/sd/pc/service")
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateChildContent("soapenv:Body|ser:getDataSourcesRequest","")

* We'll need to get our signing RSA key from the PFX (provided by Mastercard)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pfx')
loPfx = CreateObject('Chilkat.Pfx')
lnSuccess = loPfx.LoadPfxFile("qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12","keystorepassword")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loXml
    RELEASE loPfx
    CANCEL
ENDIF

loPrivKey = loPfx.GetPrivateKey(0)
IF (loPfx.LastMethodSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loXml
    RELEASE loPfx
    CANCEL
ENDIF

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

loHttp.OAuth1 = 1
* Use your own consumer key (this is not a valid consumer key)
loHttp.OAuthConsumerKey = "MLBRl0-xxxxxxxxxxxxxxxxxxxxxxxxxx_BUNtu5xxxxx20b!a075a714a5fxxxxxxxxxxxxx59cd02b60000000000000000"
loHttp.OAuthSigMethod = "RSA-SHA256"
lnSuccess = loHttp.SetOAuthRsaKey(loPrivKey)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loPrivKey
    RELEASE loXml
    RELEASE loPfx
    RELEASE loHttp
    CANCEL
ENDIF

RELEASE loPrivKey

* Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
* This property was added in Chilkat v9.5.0.91.
loHttp.OAuthBodyHash = 1

* Send the SOAP XML request and get the response.
* Chilkat automaticaly adds the OAuth1 authentication.
loResp = loHttp.PostXml("https://sandbox.api.mastercard.com/iccp/financial",loXml.GetXml(),"utf-8")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loXml
    RELEASE loPfx
    RELEASE loHttp
    CANCEL
ENDIF

* Examine the response status code and the XML response body.
? "Response status code = " + STR(loResp.StatusCode)

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

? "Response XML:"
? loRespXml.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

RELEASE loResp

RELEASE loXml
RELEASE loPfx
RELEASE loHttp
RELEASE loRespXml