(Visual FoxPro) Send JSON REST Request, Get JSON Response

Demonstrates sending a RESTful JSON request, and receiving a JSON response. This example will create a bucket in Google Cloud Storage (which involves sending and receiving JSON).

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

LOCAL lnSuccess
LOCAL loGAuth
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loJsonReqBody
LOCAL loPObjVersioning
LOCAL lcJsonResponseStr

* This example will create a bucket in Google Cloud Storage.

* It requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthGoogle')
loGAuth = CreateObject('Chilkat.AuthGoogle')
* Obtain an access token as shown in one of the following examples:
* See Get Access Token using a Service Account JSON Key
* See Get Access Token using a P12 File

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect using TLS.
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("www.googleapis.com",443,1,lnBAutoReconnect)

* Provide the authentication credentials (i.e. the access key)
lnSuccess = loRest.SetAuthGoogle(loGAuth)

* Build the JSON request body for creating a bucket.
* The only required property is the "name", but we'll add more
* to make a better example..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonReqBody = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonReqBody.AddStringAt(-1,"name","chilkat-bucket-c")
lnSuccess = loJsonReqBody.AddStringAt(-1,"kind","storage#bucket")
lnSuccess = loJsonReqBody.AddStringAt(-1,"location","US")
lnSuccess = loJsonReqBody.AddObjectAt(-1,"versioning")

loPObjVersioning = loJsonReqBody.ObjectOf("versioning")
lnSuccess = loPObjVersioning.AddBoolAt(-1,"enabled",1)
RELEASE loPObjVersioning

* Show the HTTP request body we'll be sending.
? loJsonReqBody.Emit()

* Add the required query parameter.
* See https://cloud.google.com/storage/docs/json_api/v1/buckets/insert
lnSuccess = loRest.AddQueryParam("project","chilkattest-1050")

* Add the Content-Type HTTP request header.
lnSuccess = loRest.AddHeader("Content-Type","application/json; charset=UTF-8")

lcJsonResponseStr = loRest.FullRequestString("POST","/storage/v1/b",loJsonReqBody.Emit())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loJsonReqBody
    CANCEL
ENDIF

* Show the JSON response.  (See below for a sample JSON response.)
? "Json Response: " + lcJsonResponseStr

* {
*  "kind": "storage#bucket",
*  "id": "chilkat-bucket-c",
*  "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket-c",
*  "projectNumber": "999992999999",
*  "name": "chilkat-bucket-c",
*  "timeCreated": "2016-04-29T21:08:10.451Z",
*  "updated": "2016-04-29T21:08:10.451Z",
*  "metageneration": "1",
*  "owner": {
*   "entity": "project-owners-999992999999"
*  },
*  "location": "US",
*  "versioning": {
*   "enabled": true
*  },
*  "storageClass": "STANDARD",
*  "etag": "CAE="
* }
* 

RELEASE loGAuth
RELEASE loRest
RELEASE loJsonReqBody