Chilkat Online Tools

VB6 / New FreshBooks / 1. [FBPAY] - Create Payment Method

Back to Collection Items

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp
Dim success As Long

' Use this online tool to generate code from sample JSON: Generate Code to Create JSON

' The following JSON is sent in the request body.

' {
'   "cc_info": {
'     "name": "John Johnston",
'     "card_number": "4500123456789012",
'     "expiry_month": "10",
'     "expiry_year": "2024",
'     "email": "mjohnston@freshbooks.com",
'     "cvv": "123",
'     "postal_code": "M6P3T1",
'     "country": "CA"
'   }
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("cc_info.name","John Johnston")
success = json.UpdateString("cc_info.card_number","4500123456789012")
success = json.UpdateString("cc_info.expiry_month","10")
success = json.UpdateString("cc_info.expiry_year","2024")
success = json.UpdateString("cc_info.email","mjohnston@freshbooks.com")
success = json.UpdateString("cc_info.cvv","123")
success = json.UpdateString("cc_info.postal_code","M6P3T1")
success = json.UpdateString("cc_info.country","CA")

' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://paid.freshbooks.com/gateway/fbpay/tokenize","application/json",json)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)

Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

Debug.Print "Response Body:"
Debug.Print jResp.Emit()

Dim respStatusCode As Long
respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Failed."

    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "cc_token": "1122334455"
' }

' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code

Dim cc_token As String
cc_token = jResp.StringOf("cc_token")

Curl Command

curl -X POST
	-H "Authorization: Bearer <access_token>"
	-d '{
    "cc_info": {
        "name": "John Johnston", 
        "card_number": "4500123456789012", 
        "expiry_month": "10", 
        "expiry_year": "2024",
        "email": "mjohnston@freshbooks.com", 
        "cvv": "123",
        "postal_code": "M6P3T1",
        "country": "CA"
    }
}'
https://paid.freshbooks.com/gateway/fbpay/tokenize

Postman Collection Item JSON

{
  "name": "1. [FBPAY] - Create Payment Method",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n    \"cc_info\": {\n        \"name\": \"John Johnston\", \n        \"card_number\": \"4500123456789012\", \n        \"expiry_month\": \"10\", \n        \"expiry_year\": \"2024\",\n        \"email\": \"mjohnston@freshbooks.com\", \n        \"cvv\": \"123\",\n        \"postal_code\": \"M6P3T1\",\n        \"country\": \"CA\"\n    }\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "https://paid.freshbooks.com/gateway/fbpay/tokenize",
      "protocol": "https",
      "host": [
        "paid",
        "freshbooks",
        "com"
      ],
      "path": [
        "gateway",
        "fbpay",
        "tokenize"
      ]
    }
  },
  "response": [
    {
      "name": "1. [FBPAY] - Create Payment Method",
      "originalRequest": {
        "method": "POST",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"cc_info\": {\n        \"name\": \"John Johnston\", \n        \"card_number\": \"4500123456789012\", \n        \"expiry_month\": \"10\", \n        \"expiry_year\": \"2024\",\n        \"email\": \"mjohnston@freshbooks.com\", \n        \"cvv\": \"123\",\n        \"postal_code\": \"M6P3T1\",\n        \"country\": \"CA\"\n    }\n}",
          "options": {
            "raw": {
              "language": "json"
            }
          }
        },
        "url": {
          "raw": "https://paid.freshbooks.com/gateway/fbpay/tokenize",
          "protocol": "https",
          "host": [
            "paid",
            "freshbooks",
            "com"
          ],
          "path": [
            "gateway",
            "fbpay",
            "tokenize"
          ]
        }
      },
      "status": "CREATED",
      "code": 201,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "Content-Type",
          "value": "application/vnd.api+json"
        },
        {
          "key": "Content-Length",
          "value": "26"
        },
        {
          "key": "Connection",
          "value": "keep-alive"
        },
        {
          "key": "Date",
          "value": "Mon, 10 Aug 2020 18:48:08 GMT"
        },
        {
          "key": "Server",
          "value": "gunicorn/19.9.0"
        },
        {
          "key": "Access-Control-Allow-Methods",
          "value": "POST"
        },
        {
          "key": "Access-Control-Allow-Headers",
          "value": "Content-Type, X-CSRF-Token"
        },
        {
          "key": "Access-Control-Allow-Origin",
          "value": "None"
        },
        {
          "key": "X-Version",
          "value": "0.4.0"
        },
        {
          "key": "X-FB-Backend",
          "value": "U5"
        },
        {
          "key": "Content-Security-Policy",
          "value": "frame-ancestors https://*.freshbooks.com https://*.freshenv.com http://localhost:4200 https://*.billingarm.com"
        },
        {
          "key": "X-Cache",
          "value": "Miss from cloudfront"
        },
        {
          "key": "Via",
          "value": "1.1 98aedae6661e3904540676966998ed89.cloudfront.net (CloudFront)"
        },
        {
          "key": "X-Amz-Cf-Pop",
          "value": "SEA19-C2"
        },
        {
          "key": "X-Amz-Cf-Id",
          "value": "VkEJyM9NHIFX2cXfSiC6nVzflt1xmKXsN2kfTozCtT80XmkilZ-YcQ=="
        }
      ],
      "cookie": [
      ],
      "body": "{\n    \"cc_token\": \"1122334455\"\n}"
    },
    {
      "name": "1. [FBPAY] - Create Payment Method",
      "originalRequest": {
        "method": "POST",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"cc_info\": {\n        \"name\": \"John Johnston\", \n        \"card_number\": \"4500123456789012\", \n        \"expiry_month\": \"10\", \n        \"expiry_year\": \"2024\",\n        \"email\": \"mjohnston@freshbooks.com\", \n        \"cvv\": \"123\",\n        \"postal_code\": \"M6P3T1\",\n        \"country\": \"CA\"\n    }\n}",
          "options": {
            "raw": {
              "language": "json"
            }
          }
        },
        "url": {
          "raw": "https://paid.freshbooks.com/gateway/fbpay/tokenize",
          "protocol": "https",
          "host": [
            "paid",
            "freshbooks",
            "com"
          ],
          "path": [
            "gateway",
            "fbpay",
            "tokenize"
          ]
        }
      },
      "status": "CREATED",
      "code": 201,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "Content-Type",
          "value": "application/vnd.api+json"
        },
        {
          "key": "Content-Length",
          "value": "26"
        },
        {
          "key": "Connection",
          "value": "keep-alive"
        },
        {
          "key": "Date",
          "value": "Mon, 10 Aug 2020 18:48:08 GMT"
        },
        {
          "key": "Server",
          "value": "gunicorn/19.9.0"
        },
        {
          "key": "Access-Control-Allow-Methods",
          "value": "POST"
        },
        {
          "key": "Access-Control-Allow-Headers",
          "value": "Content-Type, X-CSRF-Token"
        },
        {
          "key": "Access-Control-Allow-Origin",
          "value": "None"
        },
        {
          "key": "X-Version",
          "value": "0.4.0"
        },
        {
          "key": "X-FB-Backend",
          "value": "U5"
        },
        {
          "key": "Content-Security-Policy",
          "value": "frame-ancestors https://*.freshbooks.com https://*.freshenv.com http://localhost:4200 https://*.billingarm.com"
        },
        {
          "key": "X-Cache",
          "value": "Miss from cloudfront"
        },
        {
          "key": "Via",
          "value": "1.1 98aedae6661e3904540676966998ed89.cloudfront.net (CloudFront)"
        },
        {
          "key": "X-Amz-Cf-Pop",
          "value": "SEA19-C2"
        },
        {
          "key": "X-Amz-Cf-Id",
          "value": "VkEJyM9NHIFX2cXfSiC6nVzflt1xmKXsN2kfTozCtT80XmkilZ-YcQ=="
        }
      ],
      "cookie": [
      ],
      "body": "{\n    \"cc_token\": \"11223344556677\"\n}"
    }
  ]
}