Xojo Plugin

Shippo Create a New Manifest

See more Shippo Examples

Demonstrates how to create a manifest for your shipments. Xojo Plugin

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/manifests/
//     -H "Authorization: ShippoToken shippo_test_831a7a042784f523b95db65444e6e084b636764b" \
//     -H "Content-Type: application/json"  \
//     -d '{
//           "carrier_account": "b741b99f95e841639b54272834bc478c",
//           "shipment_date": "2014-05-16T23:59:59Z",
//           "address_from": "28828839a2b04e208ac2aa4945fbca9a",
//           "transactions": [
//             "64bba01845ef40d29374032599f22588", 
//             "c169aa586a844cc49da00d0272b590e1"
//             ],
//           "async": false
//         }'

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

// The following JSON is sent in the request body.

// {
//   "carrier_account": "b741b99f95e841639b54272834bc478c",
//   "shipment_date": "2014-05-16T23:59:59Z",
//   "address_from": "28828839a2b04e208ac2aa4945fbca9a",
//   "transactions": [
//     "64bba01845ef40d29374032599f22588",
//     "c169aa586a844cc49da00d0272b590e1"
//   ],
//   "async": false
// }

Dim json As New Chilkat.JsonObject
success = json.UpdateString("carrier_account","b741b99f95e841639b54272834bc478c")
success = json.UpdateString("shipment_date","2014-05-16T23:59:59Z")
success = json.UpdateString("address_from","28828839a2b04e208ac2aa4945fbca9a")
success = json.UpdateString("transactions[0]","64bba01845ef40d29374032599f22588")
success = json.UpdateString("transactions[1]","c169aa586a844cc49da00d0272b590e1")
success = json.UpdateBool("async",False)

http.SetRequestHeader "Authorization","ShippoToken shippo_test_831a7a042784f523b95db65444e6e084b636764b"
http.SetRequestHeader "Content-Type","application/json"

Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST","https://api.goshippo.com/manifests/",json,"application/json",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)

// {
//   "address_from": "28828839a2b04e208ac2aa4945fbca9a",
//   "carrier_account": "b741b99f95e841639b54272834bc478c",
//   "documents": [
//     "https://shippo-delivery.s3.amazonaws.com/0fadebf6f60c4aca95fa01bcc59c79ae.pdf?Signature=tlQU3RECwdHUQJQadwqg5bAzGFQ%3D&Expires=1402803835&AWSAccessKeyId=AKIAJTHP3LLFMYAWALIA"
//   ],
//   "object_created": "2014-05-16T03:43:52.765Z",
//   "object_id": "0fadebf6f60c4aca95fa01bcc59c79ae",
//   "object_owner": "mrhippo@goshippo.com",
//   "object_updated": "2014-05-16T03:43:55.445Z",
//   "shipment_date": "2014-05-16T23:59:59Z",
//   "status": "SUCCESS",
//   "transactions": [
//     "64bba01845ef40d29374032599f22588",
//     "c169aa586a844cc49da00d0272b590e1"
//   ]
// }

// 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 strVal As String

Dim address_from As String
address_from = jResp.StringOf("address_from")
Dim carrier_account As String
carrier_account = jResp.StringOf("carrier_account")
Dim object_created As String
object_created = jResp.StringOf("object_created")
Dim object_id As String
object_id = jResp.StringOf("object_id")
Dim object_owner As String
object_owner = jResp.StringOf("object_owner")
Dim object_updated As String
object_updated = jResp.StringOf("object_updated")
Dim shipment_date As String
shipment_date = jResp.StringOf("shipment_date")
Dim status As String
status = jResp.StringOf("status")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jResp.SizeOfArray("documents")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("documents[i]")
    i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("transactions")
While i < count_i
    jResp.I = i
    strVal = jResp.StringOf("transactions[i]")
    i = i + 1
Wend