DataFlex
DataFlex
Amazon Pay - Get Buyer
See more Amazon Pay Examples
Amazon Pay get buyer details.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoHttp
Variant vPrivKey
Handle hoPrivKey
String sPublicKeyId
Integer iRespStatusCode
Variant vSbResponseBody
Handle hoSbResponseBody
Handle hoJResp
String sName
String sEmail
String sPostalCode
String sCountryCode
String sBuyerId
String sPhoneNumber
String sShippingAddressName
String sShippingAddressAddressLine1
String sShippingAddressAddressLine2
String sShippingAddressAddressLine3
String sShippingAddressCity
String sShippingAddressCounty
String sShippingAddressDistrict
String sShippingAddressStateOrRegion
String sShippingAddressCountry
String sShippingAddressPostalCode
String sShippingAddressPhoneNumber
String sBillingAddress
String sPrimeMembershipTypes
String sTemp1
Move False To iSuccess
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
// Implements the following CURL command:
// curl "https://pay-api.amazon.com/:version/buyers/:buyerToken" \
// -X GET
// -H "authorization:Px2e5oHhQZ88vVhc0DO%2FsShHj8MDDg%3DEXAMPLESIGNATURE"
// -H "x-amz-pay-date:20201012T235046Z"
// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code
// Load your Amazon Pay private key.
// There are many other ways to load private keys into the Chilkat private key object, such as from different formats,
// or from in-memory strings or bytes.
Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
If (Not(IsComObjectCreated(hoPrivKey))) Begin
Send CreateComObject of hoPrivKey
End
Get ComLoadPemFile Of hoPrivKey "C:/someDir/myAmazonPayPrivateKey.pem" To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoPrivKey To sTemp1
Showln sTemp1
Procedure_Return
End
// Provide your Amazon Pay private key and Public Key ID
// Use your public key ID here. It must be the one associated with the private key.
// Note: The SetAuthPrivateKey method was added in Chilkat v9.5.0.89
Move "SANDBOX-AHEGSJCM3L2S637RBGABLAFW" To sPublicKeyId
Get pvComObject of hoPrivKey to vPrivKey
Get ComSetAuthPrivateKey Of hoHttp sPublicKeyId vPrivKey To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// Note: When the private key is provided as shown above, Chilkat will automatically add the required x-amz-pay-* headers to the HTTP request,
// and will also sign the request. Nothing more is needed.
// Chilkat automatically generates and adds the following headers:
//
// x-amz-pay-date
// x-amz-pay-host
// x-amz-pay-region
// Authorization
Set ComAccept Of hoHttp To "application/json"
Move 0 To iRespStatusCode
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get ComSetUrlVar Of hoHttp "buyerToken" "BUYER_TOKEN" To iSuccess
// To use the live system, replace "sandbox" with "live" in the URL passed to QuickGetSb.
// Also, make sure to use the correct region: pay-api.amazon.com, pay-api.amazon.eu, or pay-api.amazon.jp
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComQuickGetSb Of hoHttp "https://pay-api.amazon.eu/sandbox/v2/buyers/{$buyerToken}" vSbResponseBody To iSuccess
// Examine the request header we just sent..
Get ComLastHeader Of hoHttp To sTemp1
Showln sTemp1
// GET /sandbox/v2/buyers/BUYER_TOKEN HTTP/1.1
// Host: pay-api.amazon.eu
// Accept: application/json
// Accept-Encoding: gzip
// x-amz-pay-date: 20250822T183232Z
// x-amz-pay-host: pay-api.amazon.eu
// x-amz-pay-region: EU
// Authorization: AMZN-PAY-RSASSA-PSS PublicKeyId=SANDBOX-AF2AGWRNIPHP2S2TUFFBKDGM, SignedHeaders=accept;x-amz-pay-date;x-amz-pay-host;x-amz-pay-region, Signature=TK8gPPid/XN0mSNWpLlCX2AXPE .... dgzxSA+ZYrHt6Yg==
If (iSuccess = False) Begin
// If the LastStatus is not equal to 0, then we received a response, but it was an error response.
Get ComLastStatus Of hoHttp To iRespStatusCode
If (iRespStatusCode <> 0) Begin
Showln "Response Status Code = " iRespStatusCode
// Here is a sample response body for the case where the buyer token does not exist:
// {"reasonCode":"InvalidBuyerToken","message":"The token provided is expired, revoked, malformed, or invalid for other reasons."}
Showln "Response body:"
Get ComLastResponseBody Of hoHttp To sTemp1
Showln sTemp1
End
Else Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
End
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJResp
If (Not(IsComObjectCreated(hoJResp))) Begin
Send CreateComObject of hoJResp
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess
Set ComEmitCompact Of hoJResp To False
Showln "Response Body:"
Get ComEmit Of hoJResp To sTemp1
Showln sTemp1
Get ComLastStatus Of hoHttp To iRespStatusCode
Showln "Response Status Code = " iRespStatusCode
// We expect a 200 status code for success.
// Note: Some Amazon Pay API calls return 200 for success, others return 201.
If (iRespStatusCode <> 200) Begin
Showln "Failed."
Procedure_Return
End
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "name": "John Example",
// "email": "johnexample@amazon.com",
// "postalCode": "12345",
// "countryCode": "US",
// "buyerId": "DIRECTEDBUYERID",
// "phoneNumber": "1234567811" // default billing address phone number
// "shippingAddress": {
// "name": "John",
// "addressLine1": "15th Street",
// "addressLine2": "",
// "addressLine3": "",
// "city": "Seattle",
// "county": "",
// "district": "",
// "stateOrRegion": "WA",
// "country": "USA",
// "postalCode": "98121",
// "phoneNumber": "1234567899"
// },
// "billingAddress": null,
// "primeMembershipTypes": null
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
Get ComStringOf Of hoJResp "name" To sName
Get ComStringOf Of hoJResp "email" To sEmail
Get ComStringOf Of hoJResp "postalCode" To sPostalCode
Get ComStringOf Of hoJResp "countryCode" To sCountryCode
Get ComStringOf Of hoJResp "buyerId" To sBuyerId
Get ComStringOf Of hoJResp "phoneNumber" To sPhoneNumber
Get ComStringOf Of hoJResp "shippingAddress.name" To sShippingAddressName
Get ComStringOf Of hoJResp "shippingAddress.addressLine1" To sShippingAddressAddressLine1
Get ComStringOf Of hoJResp "shippingAddress.addressLine2" To sShippingAddressAddressLine2
Get ComStringOf Of hoJResp "shippingAddress.addressLine3" To sShippingAddressAddressLine3
Get ComStringOf Of hoJResp "shippingAddress.city" To sShippingAddressCity
Get ComStringOf Of hoJResp "shippingAddress.county" To sShippingAddressCounty
Get ComStringOf Of hoJResp "shippingAddress.district" To sShippingAddressDistrict
Get ComStringOf Of hoJResp "shippingAddress.stateOrRegion" To sShippingAddressStateOrRegion
Get ComStringOf Of hoJResp "shippingAddress.country" To sShippingAddressCountry
Get ComStringOf Of hoJResp "shippingAddress.postalCode" To sShippingAddressPostalCode
Get ComStringOf Of hoJResp "shippingAddress.phoneNumber" To sShippingAddressPhoneNumber
Get ComStringOf Of hoJResp "billingAddress" To sBillingAddress
Get ComStringOf Of hoJResp "primeMembershipTypes" To sPrimeMembershipTypes
End_Procedure