(AutoIt) Shippo Create Transaction Object

Creates a Transaction object that represents a shipping label purchase and is based on the shipping rate.

For more information, see https://goshippo.com/docs/shipping-labels/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl https://api.goshippo.com/transactions \
;     -H "Authorization: ShippoToken <API_TOKEN>" \
;     -d rate="478fb066930e4e3195a3686f7ea5b612"
;     -d label_file_type="PDF"
;     -d async=false

$oReq = ObjCreate("Chilkat.HttpRequest")
$oReq.HttpVerb = "POST"
$oReq.Path = "/transactions"
$oReq.ContentType = "application/x-www-form-urlencoded"
$oReq.AddParam "rate","478fb066930e4e3195a3686f7ea5b612"
$oReq.AddParam "label_file_type","PDF"
$oReq.AddParam "async","false"

$oReq.AddHeader "Authorization","ShippoToken <API_TOKEN>"

Local $oResp = $oHttp.PostUrlEncoded("https://api.goshippo.com/transactions",$oReq)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)
$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

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

; {
;   "object_state": "VALID",
;   "status": "SUCCESS",
;   "object_created": "2019-06-28T18:04:08.679Z",
;   "object_updated": "2019-06-28T18:04:10.516Z",
;   "object_id": "6178e155da304f10aa4b4271fdca84fb",
;   "object_owner": "admin@chilkatsoft.com",
;   "test": true,
;   "rate": "dd7556c284e8444294d2ab7099e662d2",
;   "tracking_number": "92701902416755000000000015",
;   "tracking_status": "UNKNOWN",
;   "eta": null,
;   "tracking_url_provider": "https://tools.usps.com/go/TrackConfirmAction_input?origTrackNum=92701902416755000000000015",
;   "label_url": "https://shippo-delivery-east.s3.amazonaws.com/6178e155da304f10aa4b4271fdca84fb.pdf?Signature=1LU0Qf11nQJGei%2FeLZr%2BQ5EwJS4%3D&Expires=1593281050&AWSAccessKeyId=AKIAJGLCC5MYLLWIG42A",
;   "commercial_invoice_url": null,
;   "messages": [
;   ],
;   "order": null,
;   "metadata": "",
;   "parcel": "5af766ff15684a4186b0e3c833348fac",
;   "billing": {
;     "payments": [
;     ]
;   }
; }

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

Local $sObject_state = $oJResp.StringOf("object_state")
Local $status = $oJResp.StringOf("status")
Local $sObject_created = $oJResp.StringOf("object_created")
Local $sObject_updated = $oJResp.StringOf("object_updated")
Local $sObject_id = $oJResp.StringOf("object_id")
Local $sObject_owner = $oJResp.StringOf("object_owner")
Local $bTest = $oJResp.BoolOf("test")
Local $sRate = $oJResp.StringOf("rate")
Local $sTracking_number = $oJResp.StringOf("tracking_number")
Local $sTracking_status = $oJResp.StringOf("tracking_status")
Local $sEta = $oJResp.StringOf("eta")
Local $sTracking_url_provider = $oJResp.StringOf("tracking_url_provider")
Local $sLabel_url = $oJResp.StringOf("label_url")
Local $sCommercial_invoice_url = $oJResp.StringOf("commercial_invoice_url")
Local $sOrder = $oJResp.StringOf("order")
Local $sMetadata = $oJResp.StringOf("metadata")
Local $sParcel = $oJResp.StringOf("parcel")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("messages")
While $i < $iCount_i
    $oJResp.I = $i
    $i = $i + 1
Wend
$i = 0
$iCount_i = $oJResp.SizeOfArray("billing.payments")
While $i < $iCount_i
    $oJResp.I = $i
    $i = $i + 1
Wend