(Visual FoxPro) Shopware List Media

See more Shopware Examples

Demonstrates how to get a list of media in Shopware.

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

LOCAL loHttp
LOCAL loSbResponseBody
LOCAL lnSuccess
LOCAL loJResp
LOCAL lnId
LOCAL lnAlbumId
LOCAL lcName
LOCAL lcDescription
LOCAL lcPath
LOCAL lcV_type
LOCAL lcExtension
LOCAL lnUserId
LOCAL lcCreated
LOCAL lnFileSize
LOCAL lcWidth
LOCAL lcHeight
LOCAL lcAttribute
LOCAL lnTotal
LOCAL lnSuccess
LOCAL i
LOCAL lnCount_i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://my-shopware-shop.com/api/media?limit=10",loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbResponseBody
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

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

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

* {
*   "data": [
*     {
*       "id": 6708,
*       "albumId": -9,
*       "name": "sonnenblume",
*       "description": "",
*       "path": "https:\/\/my-shopware-shop.com\/media\/pdf\/2f\/26\/52\/sonnenblume.zip",
*       "type": "ARCHIVE",
*       "extension": "zip",
*       "userId": 5,
*       "created": "2021-03-01T00:00:00+0100",
*       "fileSize": 216905,
*       "width": null,
*       "height": null,
*       "attribute": null
*     },
*     {
*       "id": 6709,
*       "albumId": -9,
*       "name": "csinventur_anleitung",
*       "description": "",
*       "path": "https:\/\/my-shopware-shop.com\/media\/pdf\/19\/21\/86\/csinventur_anleitung.pdf",
*       "type": "PDF",
*       "extension": "pdf",
*       "userId": 5,
*       "created": "2021-03-01T00:00:00+0100",
*       "fileSize": 837131,
*       "width": null,
*       "height": null,
*       "attribute": null
*     },
*     {
*       "id": 6710,
*       "albumId": -9,
*       "name": "photos_fre_carousel_elevatorpitch_620x252",
*       "description": "",
*       "path": "https:\/\/my-shopware-shop.com\/media\/pdf\/d8\/d7\/b4\/photos_fre_carousel_elevatorpitch_620x252.mp4",
*       "type": "VIDEO",
*       "extension": "mp4",
*       "userId": 5,
*       "created": "2021-03-01T00:00:00+0100",
*       "fileSize": 2499157,
*       "width": null,
*       "height": null,
*       "attribute": null
*     },
* 
* 	...
*   ],
*   "total": 31,
*   "success": true
* }

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

lnTotal = loJResp.IntOf("total")
lnSuccess = loJResp.BoolOf("success")
i = 0
lnCount_i = loJResp.SizeOfArray("data")
DO WHILE i < lnCount_i
    loJResp.I = i
    lnId = loJResp.IntOf("data[i].id")
    lnAlbumId = loJResp.IntOf("data[i].albumId")
    lcName = loJResp.StringOf("data[i].name")
    lcDescription = loJResp.StringOf("data[i].description")
    lcPath = loJResp.StringOf("data[i].path")
    lcV_type = loJResp.StringOf("data[i].type")
    lcExtension = loJResp.StringOf("data[i].extension")
    lnUserId = loJResp.IntOf("data[i].userId")
    lcCreated = loJResp.StringOf("data[i].created")
    lnFileSize = loJResp.IntOf("data[i].fileSize")
    lcWidth = loJResp.StringOf("data[i].width")
    lcHeight = loJResp.StringOf("data[i].height")
    lcAttribute = loJResp.StringOf("data[i].attribute")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loSbResponseBody
RELEASE loJResp