Xojo Plugin

Google Maps Geolocation Request

See more REST Examples

Demonstrates how make a Google Maps Geolocation REST API request. Xojo Plugin

Dim success As Boolean
success = False

// This example duplicates the following CURL request:
// curl -d @your_filename.json -H "Content-Type: application/json" -i "https://www.googleapis.com/geolocation/v1/geolocate?key=YOUR_API_KEY"

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

Dim rest As New Chilkat.Rest

// Connect to the Google API REST server.
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("www.googleapis.com",port,bTls,bAutoReconnect)

// Add the Content-Type request header.
success = rest.AddHeader("Content-Type","application/json")

// Add your API key as a query parameter
success = rest.AddQueryParam("key","YOUR_API_KEY")

// The JSON query is contained in the body of the HTTP POST.
// This is a sample query (which we'll dynamically build in this example)
// { 
//  "homeMobileCountryCode": 310,
//  "homeMobileNetworkCode": 260,
//  "radioType": "gsm",
//  "carrier": "T-Mobile",
//  "cellTowers": [
//   {
//    "cellId": 39627456,
//    "locationAreaCode": 40495,
//    "mobileCountryCode": 310,
//    "mobileNetworkCode": 260,
//    "age": 0,
//    "signalStrength": -95
//   }
//  ],
//  "wifiAccessPoints": [
//   { 
//    "macAddress": "01:23:45:67:89:AB",
//    "signalStrength": 8,
//    "age": 0,
//    "signalToNoiseRatio": -65,
//    "channel": 8
//   },
//   { 
//    "macAddress": "01:23:45:67:89:AC",
//    "signalStrength": 4,
//    "age": 0
//   }
//  ]
// }

Dim json As New Chilkat.JsonObject
success = json.AppendInt("homeMobileCountryCode",310)
success = json.AppendInt("homeMobileNetworkCode",260)
success = json.AppendString("radioType","gsm")
success = json.AppendString("carrier","T-Mobile")

Dim aCellTowers As New Chilkat.JsonArray
success = json.AppendArray2("cellTowers",aCellTowers)

Dim oCellTower As New Chilkat.JsonObject
success = aCellTowers.AddObjectAt2(0,oCellTower)
success = oCellTower.AppendInt("cellId",39627456)
success = oCellTower.AppendInt("locationAreaCode",40495)
success = oCellTower.AppendInt("mobileCountryCode",310)
success = oCellTower.AppendInt("mobileNetworkCode",260)
success = oCellTower.AppendInt("age",0)
success = oCellTower.AppendInt("signalStrength",-95)

Dim aWifi As New Chilkat.JsonArray
success = json.AppendArray2("wifiAccessPoints",aWifi)

Dim oPoint As New Chilkat.JsonObject
success = aWifi.AddObjectAt2(0,oPoint)
success = oPoint.AppendString("macAddress","01:23:45:67:89:AB")
success = oPoint.AppendInt("signalStrength",8)
success = oPoint.AppendInt("age",0)
success = oPoint.AppendInt("signalToNoiseRatio",-65)
success = oPoint.AppendInt("channel",8)

success = aWifi.AddObjectAt2(1,oPoint)
success = oPoint.AppendString("macAddress","01:23:45:67:89:AC")
success = oPoint.AppendInt("signalStrength",4)
success = oPoint.AppendInt("age",0)

Dim responseJson As String
responseJson = rest.FullRequestString("POST","/geolocation/v1/geolocate",json.Emit())
If (rest.LastMethodSuccess = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

// When successful, the response code is 200.
If (rest.ResponseStatusCode <> 200) Then
    // Examine the request/response to see what happened.
    System.DebugLog("response status code = " + Str(rest.ResponseStatusCode))
    System.DebugLog("response status text = " + rest.ResponseStatusText)
    System.DebugLog("response header: " + rest.ResponseHeader)
    System.DebugLog("response JSON: " + responseJson)
    System.DebugLog("---")
    System.DebugLog("LastRequestStartLine: " + rest.LastRequestStartLine)
    System.DebugLog("LastRequestHeader: " + rest.LastRequestHeader)
    Return
End If

json.EmitCompact = False
System.DebugLog("JSON request body: " + json.Emit())

// The JSON response should look like this:
// { 
//  "location": {
//   "lat": 37.4248297,
//   "lng": -122.07346549999998
//  },
//  "accuracy": 1145.0
// }

System.DebugLog("JSON response: " + responseJson)

Dim jsonResp As New Chilkat.JsonObject
success = jsonResp.Load(responseJson)

Dim jsonLoc As New Chilkat.JsonObject
success = jsonResp.ObjectOf2("location",jsonLoc)

// Any JSON value can be obtained as a string..
Dim latitude As String
latitude = jsonLoc.StringOf("lat")
System.DebugLog("latitude = " + latitude)
Dim longitude As String
longitude = jsonLoc.StringOf("lng")
System.DebugLog("longitude = " + longitude)

Dim accuracy As String
accuracy = jsonResp.StringOf("accuracy")
System.DebugLog("accuracy = " + accuracy)