PureBasic
PureBasic
Amazon Pay - Get Buyer
See more Amazon Pay Examples
Amazon Pay get buyer details.Chilkat PureBasic Downloads
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkPrivateKey.pb"
IncludeFile "CkJsonObject.pb"
Procedure ChilkatExample()
success.i = 0
; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; 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.
privKey.i = CkPrivateKey::ckCreate()
If privKey.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkPrivateKey::ckLoadPemFile(privKey,"C:/someDir/myAmazonPayPrivateKey.pem")
If success = 0
Debug CkPrivateKey::ckLastErrorText(privKey)
CkHttp::ckDispose(http)
CkPrivateKey::ckDispose(privKey)
ProcedureReturn
EndIf
; 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
publicKeyId.s = "SANDBOX-AHEGSJCM3L2S637RBGABLAFW"
success = CkHttp::ckSetAuthPrivateKey(http,publicKeyId,privKey)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkPrivateKey::ckDispose(privKey)
ProcedureReturn
EndIf
; 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
CkHttp::setCkAccept(http, "application/json")
respStatusCode.i = 0
sbResponseBody.i = CkStringBuilder::ckCreate()
If sbResponseBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckSetUrlVar(http,"buyerToken","BUYER_TOKEN")
; 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
success = CkHttp::ckQuickGetSb(http,"https://pay-api.amazon.eu/sandbox/v2/buyers/{$buyerToken}",sbResponseBody)
; Examine the request header we just sent..
Debug CkHttp::ckLastHeader(http)
; 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 success = 0
; If the LastStatus is not equal to 0, then we received a response, but it was an error response.
respStatusCode = CkHttp::ckLastStatus(http)
If respStatusCode <> 0
Debug "Response Status Code = " + Str(respStatusCode)
; 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."}
Debug "Response body:"
Debug CkHttp::ckLastResponseBody(http)
Else
Debug CkHttp::ckLastErrorText(http)
EndIf
CkHttp::ckDispose(http)
CkPrivateKey::ckDispose(privKey)
CkStringBuilder::ckDispose(sbResponseBody)
ProcedureReturn
EndIf
jResp.i = CkJsonObject::ckCreate()
If jResp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoadSb(jResp,sbResponseBody)
CkJsonObject::setCkEmitCompact(jResp, 0)
Debug "Response Body:"
Debug CkJsonObject::ckEmit(jResp)
respStatusCode = CkHttp::ckLastStatus(http)
Debug "Response Status Code = " + Str(respStatusCode)
; We expect a 200 status code for success.
; Note: Some Amazon Pay API calls return 200 for success, others return 201.
If respStatusCode <> 200
Debug "Failed."
CkHttp::ckDispose(http)
CkPrivateKey::ckDispose(privKey)
CkStringBuilder::ckDispose(sbResponseBody)
CkJsonObject::ckDispose(jResp)
ProcedureReturn
EndIf
; 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
name.s = CkJsonObject::ckStringOf(jResp,"name")
email.s = CkJsonObject::ckStringOf(jResp,"email")
postalCode.s = CkJsonObject::ckStringOf(jResp,"postalCode")
countryCode.s = CkJsonObject::ckStringOf(jResp,"countryCode")
buyerId.s = CkJsonObject::ckStringOf(jResp,"buyerId")
phoneNumber.s = CkJsonObject::ckStringOf(jResp,"phoneNumber")
shippingAddressName.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.name")
shippingAddressAddressLine1.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.addressLine1")
shippingAddressAddressLine2.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.addressLine2")
shippingAddressAddressLine3.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.addressLine3")
shippingAddressCity.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.city")
shippingAddressCounty.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.county")
shippingAddressDistrict.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.district")
shippingAddressStateOrRegion.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.stateOrRegion")
shippingAddressCountry.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.country")
shippingAddressPostalCode.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.postalCode")
shippingAddressPhoneNumber.s = CkJsonObject::ckStringOf(jResp,"shippingAddress.phoneNumber")
billingAddress.s = CkJsonObject::ckStringOf(jResp,"billingAddress")
primeMembershipTypes.s = CkJsonObject::ckStringOf(jResp,"primeMembershipTypes")
CkHttp::ckDispose(http)
CkPrivateKey::ckDispose(privKey)
CkStringBuilder::ckDispose(sbResponseBody)
CkJsonObject::ckDispose(jResp)
ProcedureReturn
EndProcedure