![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Mastercard ICCP Get Data Source with OAuth1See more Mastercard ExamplesDemonstrates 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 v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoXml Handle hoPfx Variant vPrivKey Handle hoPrivKey Handle hoHttp Variant vResp Handle hoResp Variant vResp Xml Handle hoRespXml String sTemp1 Integer iTemp1 Move False To iSuccess // 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 Get Create (RefClass(cComChilkatXml)) To hoXml If (Not(IsComObjectCreated(hoXml))) Begin Send CreateComObject of hoXml End Set ComTag Of hoXml To "soapenv:Envelope" Get ComAddAttribute Of hoXml "xmlns:ser" "http://mastercard.com/sd/pc/service" To iSuccess Get ComAddAttribute Of hoXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess Send ComUpdateChildContent To hoXml "soapenv:Header" "" Send ComUpdateChildContent To hoXml "soapenv:Body|ser:getDataSourcesRequest" "" // We'll need to get our signing RSA key from the PFX (provided by Mastercard) Get Create (RefClass(cComChilkatPfx)) To hoPfx If (Not(IsComObjectCreated(hoPfx))) Begin Send CreateComObject of hoPfx End Get ComLoadPfxFile Of hoPfx "qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12" "keystorepassword" To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoPfx To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey If (Not(IsComObjectCreated(hoPrivKey))) Begin Send CreateComObject of hoPrivKey End Get pvComObject of hoPrivKey to vPrivKey Get ComPrivateKeyAt Of hoPfx 0 vPrivKey To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoPfx To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Set ComOAuth1 Of hoHttp To True // Use your own consumer key (this is not a valid consumer key) Set ComOAuthConsumerKey Of hoHttp To "MLBRl0-xxxxxxxxxxxxxxxxxxxxxxxxxx_BUNtu5xxxxx20b!a075a714a5fxxxxxxxxxxxxx59cd02b60000000000000000" Set ComOAuthSigMethod Of hoHttp To "RSA-SHA256" Get pvComObject of hoPrivKey to vPrivKey Get ComSetOAuthRsaKey Of hoHttp vPrivKey To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End // Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request. Set ComOAuthBodyHash Of hoHttp To True // Send the SOAP XML request and get the response. // Chilkat automaticaly adds the OAuth1 authentication. Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get ComGetXml Of hoXml To sTemp1 Get pvComObject of hoResp to vResp Get ComHttpStr Of hoHttp "POST" "https://sandbox.api.mastercard.com/iccp/financial" sTemp1 "utf-8" "application/xml" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End // Examine the response status code and the XML response body. Get ComStatusCode Of hoResp To iTemp1 Showln "Response status code = " iTemp1 Get Create (RefClass(cComChilkatXml)) To hoRespXml If (Not(IsComObjectCreated(hoRespXml))) Begin Send CreateComObject of hoRespXml End Get pvComObject of hoRespXml to vRespXml Get ComGetBodyXml Of hoResp vRespXml To iSuccess Showln "Response XML:" Get ComGetXml Of hoRespXml To sTemp1 Showln sTemp1 // 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 End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.