![]() |
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
(Xojo Plugin) Shippo Validate AddressDemonstrates how to validate your addresses through the Shippo API before you create labels. Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://goshippo.com/docs/address-validation/
Dim success As Boolean success = False // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim http As New Chilkat.Http // 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 Chilkat.HttpRequest 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 Chilkat.HttpResponse success = http.HttpReq("https://api.goshippo.com/addresses/",req,resp) If (success = False) Then System.DebugLog(http.LastErrorText) Return End If Dim sbResponseBody As New Chilkat.StringBuilder success = resp.GetBodySb(sbResponseBody) Dim jResp As New Chilkat.JsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False System.DebugLog("Response Body:") System.DebugLog(jResp.Emit()) Dim respStatusCode As Int32 respStatusCode = resp.StatusCode System.DebugLog("Response Status Code = " + Str(respStatusCode)) If (respStatusCode >= 400) Then System.DebugLog("Response Header:") System.DebugLog(resp.Header) System.DebugLog("Failed.") Return 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 Boolean is_complete = jResp.BoolOf("is_complete") Dim validation_resultsIs_valid As Boolean 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 Int32 i = 0 Dim count_i As Int32 count_i = jResp.SizeOfArray("validation_results.messages") 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 Wend |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.