Xojo Plugin

DVLA Vehicle Enquiry Service

See more _Miscellaneous_ Examples

Demonstrates how to make a call to the DVLA Vehicle Enquiry API to get vehicle details of a specified vehicle. It uses the vehicle registration number as input to search and provide details of the vehicle. 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 -X POST https://driver-vehicle-licensing.api.gov.uk/vehicle-enquiry/v1/vehicles \
//   -H "x-api-key: supplied API key" \
//   -H "Accept: application/json" \
//   -d '{"registrationNumber": "ABC1234"}'

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

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

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

// {
//   "registrationNumber": "ABC1234"
// }

Dim json As New Chilkat.JsonObject
success = json.UpdateString("registrationNumber","ABC1234")

http.SetRequestHeader "Accept","application/json"
http.SetRequestHeader "x-api-key","supplied API key"

Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST","https://driver-vehicle-licensing.api.gov.uk/vehicle-enquiry/v1/vehicles",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)

// {
//   "artEndDate": "2025-02-28",
//   "co2Emissions": 135,
//   "colour": "BLUE",
//   "engineCapacity": 2494,
//   "fuelType": "PETROL",
//   "make": "ROVER",
//   "markedForExport": false,
//   "monthOfFirstRegistration": "2004-12",
//   "motStatus": "No details held by DVLA",
//   "registrationNumber": "ABC1234",
//   "revenueWeight": 1640,
//   "taxDueDate": "2007-01-01",
//   "taxStatus": "Untaxed",
//   "typeApproval": "N1",
//   "wheelplan": "NON STANDARD",
//   "yearOfManufacture": 2004,
//   "euroStatus": "EURO 6 AD",
//   "realDrivingEmissions": "1",
//   "dateOfLastV5CIssued": "2016-12-25"
// }

// 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 artEndDate As String
artEndDate = jResp.StringOf("artEndDate")
Dim co2Emissions As Int32
co2Emissions = jResp.IntOf("co2Emissions")
Dim colour As String
colour = jResp.StringOf("colour")
Dim engineCapacity As Int32
engineCapacity = jResp.IntOf("engineCapacity")
Dim fuelType As String
fuelType = jResp.StringOf("fuelType")
Dim make As String
make = jResp.StringOf("make")
Dim markedForExport As Boolean
markedForExport = jResp.BoolOf("markedForExport")
Dim monthOfFirstRegistration As String
monthOfFirstRegistration = jResp.StringOf("monthOfFirstRegistration")
Dim motStatus As String
motStatus = jResp.StringOf("motStatus")
Dim registrationNumber As String
registrationNumber = jResp.StringOf("registrationNumber")
Dim revenueWeight As Int32
revenueWeight = jResp.IntOf("revenueWeight")
Dim taxDueDate As String
taxDueDate = jResp.StringOf("taxDueDate")
Dim taxStatus As String
taxStatus = jResp.StringOf("taxStatus")
Dim typeApproval As String
typeApproval = jResp.StringOf("typeApproval")
Dim wheelplan As String
wheelplan = jResp.StringOf("wheelplan")
Dim yearOfManufacture As Int32
yearOfManufacture = jResp.IntOf("yearOfManufacture")
Dim euroStatus As String
euroStatus = jResp.StringOf("euroStatus")
Dim realDrivingEmissions As String
realDrivingEmissions = jResp.StringOf("realDrivingEmissions")
Dim dateOfLastV5CIssued As String
dateOfLastV5CIssued = jResp.StringOf("dateOfLastV5CIssued")