Visual Basic 6.0

Shippo Validate Address

See more Shippo Examples

Demonstrates how to validate your addresses through the Shippo API before you create labels. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

' Implements the following CURL command:

' curl https://api.goshippo.com/addresses/ \
'     -H "Authorization: ShippoToken <API_TOKEN>" \
'     -d name="Shawn Ippotle" \
'     -d company="Shippo" \
'     -d street1="215 Clayton St." \
'     -d city="San Francisco" \
'     -d state="CA" \
'     -d zip=94117 \
'     -d country="US" \
'     -d email="shippotle@goshippo.com"\
'     -d validate=true

Dim req As New ChilkatHttpRequest
req.HttpVerb = "POST"
req.Path = "/addresses/"
req.ContentType = "application/x-www-form-urlencoded"
req.AddParam "name","Shawn Ippotle"
req.AddParam "company","Shippo"
req.AddParam "street1","215 Clayton St."
req.AddParam "city","San Francisco"
req.AddParam "state","CA"
req.AddParam "zip","94117"
req.AddParam "country","US"
req.AddParam "email","shippotle@goshippo.com"
req.AddParam "validate","true"

req.AddHeader "Authorization","ShippoToken <API_TOKEN>"

Dim resp As New ChilkatHttpResponse
success = http.HttpReq("https://api.goshippo.com/addresses/",req,resp)
If (success = 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)

' {
'   "object_created": "2015-03-30T23:47:11.574Z",
'   "object_updated": "2015-03-30T23:47:11.596Z",
'   "object_id": "67183b2e81e9421f894bfbcdc4236b16",
'   "is_complete": false,
'   "validation_results": {
'     "is_valid": false,
'     "messages": [
'       {
'         "source": "USPS",
'         "code": "Address Not Found",
'         "type": "address_error",
'         "text": "The address as submitted could not be found. Please check for excessive abbreviations in the street address line or in the City name."
'       }
'     ]
'   },
'   "object_owner": "shippotle@goshippo.com",
'   "name": "Shawn Ippotle",
'   "company": "Shippo",
'   "street_no": "",
'   "street1": "215 HIPPO ST.",
'   "street2": "",
'   "city": "SAN FRANCISCO",
'   "state": "CA",
'   "zip": "94107",
'   "country": "US",
'   "phone": ""
' }

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

Dim source As String
Dim code As String
Dim v_type As String
Dim text As String

Dim object_created As String
object_created = jResp.StringOf("object_created")
Dim object_updated As String
object_updated = jResp.StringOf("object_updated")
Dim object_id As String
object_id = jResp.StringOf("object_id")
Dim is_complete As Long
is_complete = jResp.BoolOf("is_complete")
Dim validation_resultsIs_valid As Long
validation_resultsIs_valid = jResp.BoolOf("validation_results.is_valid")
Dim object_owner As String
object_owner = jResp.StringOf("object_owner")
Dim name As String
name = jResp.StringOf("name")
Dim company As String
company = jResp.StringOf("company")
Dim street_no As String
street_no = jResp.StringOf("street_no")
Dim street1 As String
street1 = jResp.StringOf("street1")
Dim street2 As String
street2 = jResp.StringOf("street2")
Dim city As String
city = jResp.StringOf("city")
Dim state As String
state = jResp.StringOf("state")
Dim zip As String
zip = jResp.StringOf("zip")
Dim country As String
country = jResp.StringOf("country")
Dim phone As String
phone = jResp.StringOf("phone")
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("validation_results.messages")
Do While i < count_i
    jResp.I = i
    source = jResp.StringOf("validation_results.messages[i].source")
    code = jResp.StringOf("validation_results.messages[i].code")
    v_type = jResp.StringOf("validation_results.messages[i].type")
    text = jResp.StringOf("validation_results.messages[i].text")
    i = i + 1
Loop