(Visual FoxPro) Lightspeed - Upload an Image

Create (uploads) a new product image.

For more information, see https://developers.lightspeedhq.com/ecom/endpoints/productimage/#post-create-a-new-image

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

LOCAL loHttp
LOCAL lnSuccess
LOCAL loBdImage
LOCAL loJson
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lnProductImageId
LOCAL lnProductImageSortOrder
LOCAL lcProductImageCreatedAt
LOCAL lcProductImageUpdatedAt
LOCAL lcProductImageExtension
LOCAL lnProductImageSize
LOCAL lcProductImageTitle
LOCAL lcProductImageThumb
LOCAL lcProductImageSrc

* 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')

* Implements the following CURL command:

* curl   -u API_KEY:API_SECRET \
*     -H "Content-Type: application/json" \
*     -X POST \
*     -d '{
*   "productImage": {
*     "attachment": "base64-encoded-contents",
*     "filename": "the-filename-with-extension-goes-here.jpg"
*   }
* }' \
* "https://api.webshopapp.com/en/products/product_id/images.json"

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

loHttp.Login = "API_KEY"
loHttp.Password = "API_SECRET"

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

* The following JSON is sent in the request body.

* {
*   "productImage": {
*     "attachment": "base64-encoded-contents",
*     "filename": "the-filename-with-extension-goes-here.jpg"
*   }
* }

loBdImage = CreateObject('Chilkat_9_5_0.BinData')
lnSuccess = loBdImage.LoadFile("qa_data/jpg/starfish.jpg")
IF (lnSuccess = 0) THEN
    ? "Failed to load image file."
    RELEASE loHttp
    RELEASE loBdImage
    CANCEL
ENDIF

loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.UpdateString("productImage.attachment",loBdImage.GetEncoded("base64"))
loJson.UpdateString("productImage.filename","starfish.jpg")

loHttp.SetRequestHeader("Content-Type","application/json")

* The product ID in the URL is "112265200".
loResp = loHttp.PostJson3("https://api.webshopapp.com/en/products/112265200/images.json","application/json",loJson)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loBdImage
    RELEASE loJson
    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 loBdImage
    RELEASE loJson
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

RELEASE loResp

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

* {
*   "productImage": {
*     "id": 13362569,
*     "sortOrder": 3,
*     "createdAt": "2019-06-06T14:52:07+00:00",
*     "updatedAt": "2019-06-06T14:52:07+00:00",
*     "extension": "png",
*     "size": 8016,
*     "title": "logo",
*     "thumb": "https://cdn.shoplightspeed.com/shops/000001/files/14271562/50x50x2/logo.png",
*     "src": "https://cdn.shoplightspeed.com/shops/000001/files/14271562/logo.png"
*   }
* }

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

lnProductImageId = loJResp.IntOf("productImage.id")
lnProductImageSortOrder = loJResp.IntOf("productImage.sortOrder")
lcProductImageCreatedAt = loJResp.StringOf("productImage.createdAt")
lcProductImageUpdatedAt = loJResp.StringOf("productImage.updatedAt")
lcProductImageExtension = loJResp.StringOf("productImage.extension")
lnProductImageSize = loJResp.IntOf("productImage.size")
lcProductImageTitle = loJResp.StringOf("productImage.title")
lcProductImageThumb = loJResp.StringOf("productImage.thumb")
lcProductImageSrc = loJResp.StringOf("productImage.src")

RELEASE loHttp
RELEASE loBdImage
RELEASE loJson
RELEASE loSbResponseBody
RELEASE loJResp