(Lianja) Shopware Upload Media (JPG File)

See more Shopware Examples

Demonstrates how to upload a media file to a Shopware shop.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

loHttp.Login = "api_username"
loHttp.Password = "api_key"
loHttp.BasicAuth = .T.

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

// The following JSON is sent in the request body.

// {
//   "file": "data:image/jpeg;base64,BASE64_DATA_HERE",
//   "album": -9,
//   "description": "image description",
//   "userId": 5,
//   "name": "my_image"
// }

loSbFileData = createobject("CkStringBuilder")
loSbFileData.Append("data:image/jpeg;base64,")
loBdFileData = createobject("CkBinData")
llSuccess = loBdFileData.LoadFile("qa_data/jpg/starfish.jpg")
if (llSuccess = .F.) then
    ? "Failed to load file."
    release loHttp
    release loSbFileData
    release loBdFileData
    return
endif

loSbFileData.Append(loBdFileData.GetEncoded("base64"))

loJson = createobject("CkJsonObject")
loJson.UpdateString("file",loSbFileData.GetAsString())
loJson.UpdateInt("album",-9)
loJson.UpdateString("description","image description")
loJson.UpdateInt("userId",5)
loJson.UpdateString("name","my_image")

loResp = loHttp.PostJson3("https://my-shopware-shop.com/api/media","application/json",loJson)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSbFileData
    release loBdFileData
    release loJson
    return
endif

loSbResponseBody = createobject("CkStringBuilder")
loResp.GetBodySb(loSbResponseBody)

loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

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

// A 201 response code indicates success.
lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    release loResp
    release loHttp
    release loSbFileData
    release loBdFileData
    release loJson
    release loSbResponseBody
    release loJResp
    return
endif

release loResp

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

// {
//   "success": true,
//   "data": {
//     "id": 6862,
//     "location": "http:\/\/my-shopware-shop.com\/api\/media\/6862"
//   }
// }

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

llSuccess = loJResp.BoolOf("success")
lnDataId = loJResp.IntOf("data.id")
lcDataLocation = loJResp.StringOf("data.location")


release loHttp
release loSbFileData
release loBdFileData
release loJson
release loSbResponseBody
release loJResp