(AutoIt) 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

; This example will create a bucket in Google Cloud Storage.
Local $bSuccess

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

$oGAuth = ObjCreate("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

$oRest = ObjCreate("Chilkat.Rest")

; Connect using TLS.
Local $bAutoReconnect = True
$bSuccess = $oRest.Connect("www.googleapis.com",443,True,$bAutoReconnect)

; Provide the authentication credentials (i.e. the access key)
$bSuccess = $oRest.SetAuthGoogle($oGAuth)

; 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..
$oJsonReqBody = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonReqBody.AddStringAt(-1,"name","chilkat-bucket-c")
$bSuccess = $oJsonReqBody.AddStringAt(-1,"kind","storage#bucket")
$bSuccess = $oJsonReqBody.AddStringAt(-1,"location","US")
$bSuccess = $oJsonReqBody.AddObjectAt(-1,"versioning")

Local $oPObjVersioning = $oJsonReqBody.ObjectOf("versioning")
$bSuccess = $oPObjVersioning.AddBoolAt(-1,"enabled",True)

; Show the HTTP request body we'll be sending.
ConsoleWrite($oJsonReqBody.Emit() & @CRLF)

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

; Add the Content-Type HTTP request header.
$bSuccess = $oRest.AddHeader("Content-Type","application/json; charset=UTF-8")

Local $sJsonResponseStr = $oRest.FullRequestString("POST","/storage/v1/b",$oJsonReqBody.Emit())
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; Show the JSON response.  (See below for a sample JSON response.)
ConsoleWrite("Json Response: " & $sJsonResponseStr & @CRLF)

; {
;  "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="
; }
;