Delphi DLL

Google Maps Geolocation Request

See more REST Examples

Demonstrates how make a Google Maps Geolocation REST API request. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonArray, Rest, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
json: HCkJsonObject;
aCellTowers: HCkJsonArray;
oCellTower: HCkJsonObject;
aWifi: HCkJsonArray;
oPoint: HCkJsonObject;
responseJson: PWideChar;
jsonResp: HCkJsonObject;
jsonLoc: HCkJsonObject;
latitude: PWideChar;
longitude: PWideChar;
accuracy: PWideChar;

begin
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.

rest := CkRest_Create();

// Connect to the Google API REST server.
bTls := True;
port := 443;
bAutoReconnect := True;
success := CkRest_Connect(rest,'www.googleapis.com',port,bTls,bAutoReconnect);

// Add the Content-Type request header.
CkRest_AddHeader(rest,'Content-Type','application/json');

// Add your API key as a query parameter
CkRest_AddQueryParam(rest,'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
//   }
//  ]
// }

json := CkJsonObject_Create();
CkJsonObject_AppendInt(json,'homeMobileCountryCode',310);
CkJsonObject_AppendInt(json,'homeMobileNetworkCode',260);
CkJsonObject_AppendString(json,'radioType','gsm');
CkJsonObject_AppendString(json,'carrier','T-Mobile');

aCellTowers := CkJsonArray_Create();
CkJsonObject_AppendArray2(json,'cellTowers',aCellTowers);

oCellTower := CkJsonObject_Create();
CkJsonArray_AddObjectAt2(aCellTowers,0,oCellTower);
CkJsonObject_AppendInt(oCellTower,'cellId',39627456);
CkJsonObject_AppendInt(oCellTower,'locationAreaCode',40495);
CkJsonObject_AppendInt(oCellTower,'mobileCountryCode',310);
CkJsonObject_AppendInt(oCellTower,'mobileNetworkCode',260);
CkJsonObject_AppendInt(oCellTower,'age',0);
CkJsonObject_AppendInt(oCellTower,'signalStrength',-95);

aWifi := CkJsonArray_Create();
CkJsonObject_AppendArray2(json,'wifiAccessPoints',aWifi);

oPoint := CkJsonObject_Create();
CkJsonArray_AddObjectAt2(aWifi,0,oPoint);
CkJsonObject_AppendString(oPoint,'macAddress','01:23:45:67:89:AB');
CkJsonObject_AppendInt(oPoint,'signalStrength',8);
CkJsonObject_AppendInt(oPoint,'age',0);
CkJsonObject_AppendInt(oPoint,'signalToNoiseRatio',-65);
CkJsonObject_AppendInt(oPoint,'channel',8);

CkJsonArray_AddObjectAt2(aWifi,1,oPoint);
CkJsonObject_AppendString(oPoint,'macAddress','01:23:45:67:89:AC');
CkJsonObject_AppendInt(oPoint,'signalStrength',4);
CkJsonObject_AppendInt(oPoint,'age',0);

responseJson := CkRest__fullRequestString(rest,'POST','/geolocation/v1/geolocate',CkJsonObject__emit(json));
if (CkRest_getLastMethodSuccess(rest) = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// When successful, the response code is 200.
if (CkRest_getResponseStatusCode(rest) <> 200) then
  begin
    // Examine the request/response to see what happened.
    Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));
    Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest));
    Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest));
    Memo1.Lines.Add('response JSON: ' + responseJson);
    Memo1.Lines.Add('---');
    Memo1.Lines.Add('LastRequestStartLine: ' + CkRest__lastRequestStartLine(rest));
    Memo1.Lines.Add('LastRequestHeader: ' + CkRest__lastRequestHeader(rest));
    Exit;
  end;

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add('JSON request body: ' + CkJsonObject__emit(json));

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

Memo1.Lines.Add('JSON response: ' + responseJson);

jsonResp := CkJsonObject_Create();
CkJsonObject_Load(jsonResp,responseJson);

jsonLoc := CkJsonObject_Create();
CkJsonObject_ObjectOf2(jsonResp,'location',jsonLoc);

// Any JSON value can be obtained as a string..
latitude := CkJsonObject__stringOf(jsonLoc,'lat');
Memo1.Lines.Add('latitude = ' + latitude);
longitude := CkJsonObject__stringOf(jsonLoc,'lng');
Memo1.Lines.Add('longitude = ' + longitude);

accuracy := CkJsonObject__stringOf(jsonResp,'accuracy');
Memo1.Lines.Add('accuracy = ' + accuracy);

CkRest_Dispose(rest);
CkJsonObject_Dispose(json);
CkJsonArray_Dispose(aCellTowers);
CkJsonObject_Dispose(oCellTower);
CkJsonArray_Dispose(aWifi);
CkJsonObject_Dispose(oPoint);
CkJsonObject_Dispose(jsonResp);
CkJsonObject_Dispose(jsonLoc);

end;