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

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

lnSuccess = 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

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)
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 = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPfx.PrivateKeyAt(0,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loXml
    RELEASE loPfx
    RELEASE loPrivKey
    CANCEL
ENDIF

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 loXml
    RELEASE loPfx
    RELEASE loPrivKey
    RELEASE loHttp
    CANCEL
ENDIF

* Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
loHttp.OAuthBodyHash = 1

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

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

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 loXml
RELEASE loPfx
RELEASE loPrivKey
RELEASE loHttp
RELEASE loResp
RELEASE loRespXml