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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vGAuth
    Handle hoGAuth
    Handle hoRest
    Boolean iBAutoReconnect
    Handle hoJsonReqBody
    Variant vPObjVersioning
    Handle hoPObjVersioning
    String sJsonResponseStr
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatAuthGoogle)) To hoGAuth
    If (Not(IsComObjectCreated(hoGAuth))) Begin
        Send CreateComObject of hoGAuth
    End
    // 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

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // Connect using TLS.
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "www.googleapis.com" 443 True iBAutoReconnect To iSuccess

    // Provide the authentication credentials (i.e. the access key)
    Get pvComObject of hoGAuth to vGAuth
    Get ComSetAuthGoogle Of hoRest vGAuth To iSuccess

    // 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..
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonReqBody
    If (Not(IsComObjectCreated(hoJsonReqBody))) Begin
        Send CreateComObject of hoJsonReqBody
    End
    Get ComAddStringAt Of hoJsonReqBody -1 "name" "chilkat-bucket-c" To iSuccess
    Get ComAddStringAt Of hoJsonReqBody -1 "kind" "storage#bucket" To iSuccess
    Get ComAddStringAt Of hoJsonReqBody -1 "location" "US" To iSuccess
    Get ComAddObjectAt Of hoJsonReqBody -1 "versioning" To iSuccess

    Get ComObjectOf Of hoJsonReqBody "versioning" To vPObjVersioning
    If (IsComObject(vPObjVersioning)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoPObjVersioning
        Set pvComObject Of hoPObjVersioning To vPObjVersioning
    End
    Get ComAddBoolAt Of hoPObjVersioning -1 "enabled" True To iSuccess
    Send Destroy of hoPObjVersioning

    // Show the HTTP request body we'll be sending.
    Get ComEmit Of hoJsonReqBody To sTemp1
    Showln sTemp1

    // Add the required query parameter.
    // See https://cloud.google.com/storage/docs/json_api/v1/buckets/insert
    Get ComAddQueryParam Of hoRest "project" "chilkattest-1050" To iSuccess

    // Add the Content-Type HTTP request header.
    Get ComAddHeader Of hoRest "Content-Type" "application/json; charset=UTF-8" To iSuccess

    Get ComEmit Of hoJsonReqBody To sTemp1
    Get ComFullRequestString Of hoRest "POST" "/storage/v1/b" sTemp1 To sJsonResponseStr
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Show the JSON response.  (See below for a sample JSON response.)
    Showln "Json Response: " sJsonResponseStr

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


End_Procedure