Chilkat Online Tools

Foxpro / Core Services API / AddImageShapeCompatibilityEntry

Back to Collection Items

LOCAL loHttp
LOCAL lnSuccess
LOCAL loJson
LOCAL loSbRequestBody
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcImageId
LOCAL lcShape
LOCAL lcValue
LOCAL lcMinInGBsValue
LOCAL lcMaxValue
LOCAL lcMinValue

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

loHttp = CreateObject('Chilkat_9_5_0.Http')

* Use this online tool to generate code from sample JSON: Generate Code to Create JSON

* The following JSON is sent in the request body.

* {
*   "memoryConstraints": {
*     "maxInGBs": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     },
*     "minInGBs": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     }
*   },
*   "ocpuConstraints": {
*     "max": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     },
*     "min": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     }
*   }
* }

loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.UpdateString("memoryConstraints.maxInGBs.value","<Error: Too many levels of nesting to fake this schema>")
loJson.UpdateString("memoryConstraints.minInGBs.value","<Error: Too many levels of nesting to fake this schema>")
loJson.UpdateString("ocpuConstraints.max.value","<Error: Too many levels of nesting to fake this schema>")
loJson.UpdateString("ocpuConstraints.min.value","<Error: Too many levels of nesting to fake this schema>")

loHttp.SetRequestHeader("Content-Type","application/json")
loHttp.SetRequestHeader("x-content-sha256","{{content_sha256}}")
loHttp.SetRequestHeader("Authorization","{{signature}}")
loHttp.SetRequestHeader("Date","{{date}}")

loSbRequestBody = CreateObject('Chilkat_9_5_0.StringBuilder')
loJson.EmitSb(loSbRequestBody)

loResp = loHttp.PTextSb("PUT","https://iaas.{{region}}.oraclecloud.com/20160918/images/:imageId/shapes/:shapeName",loSbRequestBody,"utf-8","application/json",0,0)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loSbRequestBody
    CANCEL
ENDIF

loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
loResp.GetBodySb(loSbResponseBody)

loJResp = CreateObject('Chilkat_9_5_0.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    RELEASE loJson
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

RELEASE loResp

* Sample JSON response:
* (Sample code for parsing the JSON response is shown below)

* {
*   "imageId": "Duis ex elit",
*   "shape": "nulla mollit",
*   "memoryConstraints": {
*     "maxInGBs": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     },
*     "minInGBs": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     }
*   },
*   "ocpuConstraints": {
*     "max": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     },
*     "min": {
*       "value": "<Error: Too many levels of nesting to fake this schema>"
*     }
*   }
* }

* Sample code for parsing the JSON response...
* Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code

lcImageId = loJResp.StringOf("imageId")
lcShape = loJResp.StringOf("shape")
lcValue = loJResp.StringOf("memoryConstraints.maxInGBs.value")
lcMinInGBsValue = loJResp.StringOf("memoryConstraints.minInGBs.value")
lcMaxValue = loJResp.StringOf("ocpuConstraints.max.value")
lcMinValue = loJResp.StringOf("ocpuConstraints.min.value")

RELEASE loHttp
RELEASE loJson
RELEASE loSbRequestBody
RELEASE loSbResponseBody
RELEASE loJResp

Curl Command

curl -X PUT
	-H "Content-Type: application/json"
	-H "Date: {{date}}"
	-H "Authorization: {{signature}}"
	-H "x-content-sha256: {{content_sha256}}"
	-d '{
    "memoryConstraints": {
        "maxInGBs": {
            "value": "<Error: Too many levels of nesting to fake this schema>"
        },
        "minInGBs": {
            "value": "<Error: Too many levels of nesting to fake this schema>"
        }
    },
    "ocpuConstraints": {
        "max": {
            "value": "<Error: Too many levels of nesting to fake this schema>"
        },
        "min": {
            "value": "<Error: Too many levels of nesting to fake this schema>"
        }
    }
}'
https://iaas.{{region}}.oraclecloud.com/20160918/images/:imageId/shapes/:shapeName

Postman Collection Item JSON

{
  "name": "AddImageShapeCompatibilityEntry",
  "request": {
    "method": "PUT",
    "header": [
      {
        "key": "Content-Type",
        "value": "application/json"
      },
      {
        "key": "Date",
        "value": "{{date}}",
        "description": "(Required) Current Date",
        "type": "text"
      },
      {
        "key": "Authorization",
        "value": "{{signature}}",
        "description": "(Required) Signature Authentication on Authorization header",
        "type": "text"
      },
      {
        "key": "x-content-sha256",
        "value": "{{content_sha256}}",
        "description": "(Required) Content sha256 for POST, PUT and PATCH operations",
        "type": "text"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
    },
    "url": {
      "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
      "host": [
        "{{baseUrl}}"
      ],
      "path": [
        "images",
        ":imageId",
        "shapes",
        ":shapeName"
      ],
      "variable": [
        {
          "key": "imageId",
          "value": "officia sed",
          "description": "(Required) The [OCID](/iaas/Content/General/Concepts/identifiers.htm) of the image."
        },
        {
          "key": "shapeName",
          "value": "amet ut",
          "description": "(Required) Shape name."
        }
      ]
    },
    "description": "Adds a shape to the compatible shapes list for the image."
  },
  "response": [
    {
      "name": "The shape has been added to the compatible shapes list.",
      "originalRequest": {
        "method": "PUT",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
        },
        "url": {
          "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "images",
            ":imageId",
            "shapes",
            ":shapeName"
          ],
          "variable": [
            {
              "key": "imageId"
            },
            {
              "key": "shapeName"
            }
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"imageId\": \"Duis ex elit\",\n \"shape\": \"nulla mollit\",\n \"memoryConstraints\": {\n  \"maxInGBs\": {\n   \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n  },\n  \"minInGBs\": {\n   \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n  }\n },\n \"ocpuConstraints\": {\n  \"max\": {\n   \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n  },\n  \"min\": {\n   \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n  }\n }\n}"
    },
    {
      "name": "Bad Request",
      "originalRequest": {
        "method": "PUT",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
        },
        "url": {
          "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "images",
            ":imageId",
            "shapes",
            ":shapeName"
          ],
          "variable": [
            {
              "key": "imageId"
            },
            {
              "key": "shapeName"
            }
          ]
        }
      },
      "status": "Bad Request",
      "code": 400,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "Unauthorized",
      "originalRequest": {
        "method": "PUT",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
        },
        "url": {
          "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "images",
            ":imageId",
            "shapes",
            ":shapeName"
          ],
          "variable": [
            {
              "key": "imageId"
            },
            {
              "key": "shapeName"
            }
          ]
        }
      },
      "status": "Unauthorized",
      "code": 401,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "Not Found",
      "originalRequest": {
        "method": "PUT",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
        },
        "url": {
          "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "images",
            ":imageId",
            "shapes",
            ":shapeName"
          ],
          "variable": [
            {
              "key": "imageId"
            },
            {
              "key": "shapeName"
            }
          ]
        }
      },
      "status": "Not Found",
      "code": 404,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "Internal Server Error",
      "originalRequest": {
        "method": "PUT",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
        },
        "url": {
          "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "images",
            ":imageId",
            "shapes",
            ":shapeName"
          ],
          "variable": [
            {
              "key": "imageId"
            },
            {
              "key": "shapeName"
            }
          ]
        }
      },
      "status": "Internal Server Error",
      "code": 500,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    },
    {
      "name": "An error has occurred.",
      "originalRequest": {
        "method": "PUT",
        "header": [
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n    \"memoryConstraints\": {\n        \"maxInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"minInGBs\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    },\n    \"ocpuConstraints\": {\n        \"max\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        },\n        \"min\": {\n            \"value\": \"<Error: Too many levels of nesting to fake this schema>\"\n        }\n    }\n}"
        },
        "url": {
          "raw": "{{baseUrl}}/images/:imageId/shapes/:shapeName",
          "host": [
            "{{baseUrl}}"
          ],
          "path": [
            "images",
            ":imageId",
            "shapes",
            ":shapeName"
          ],
          "variable": [
            {
              "key": "imageId"
            },
            {
              "key": "shapeName"
            }
          ]
        }
      },
      "status": "Internal Server Error",
      "code": 500,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "opc-request-id",
          "value": "officia sed",
          "description": "Unique Oracle-assigned identifier for the request. If you need to contact\nOracle about a particular request, please provide the request ID.\n"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        }
      ],
      "cookie": [
      ],
      "body": "{\n \"code\": \"et exercitation Excepteur\",\n \"message\": \"irure sit\"\n}"
    }
  ]
}