(PureBasic) Shopware List Media

See more Shopware Examples

Demonstrates how to get a list of media in Shopware.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkLogin(http, "api_username")
    CkHttp::setCkPassword(http, "api_key")
    CkHttp::setCkBasicAuth(http, 1)

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkHttp::ckQuickGetSb(http,"https://my-shopware-shop.com/api/media?limit=10",sbResponseBody)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbResponseBody)
        ProcedureReturn
    EndIf

    jResp.i = CkJsonObject::ckCreate()
    If jResp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(jResp,sbResponseBody)
    CkJsonObject::setCkEmitCompact(jResp, 0)

    Debug "Response Body:"
    Debug CkJsonObject::ckEmit(jResp)

    ; 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

    id.i
    albumId.i
    name.s
    description.s
    path.s
    v_type.s
    extension.s
    userId.i
    created.s
    fileSize.i
    width.s
    height.s
    attribute.s

    total.i = CkJsonObject::ckIntOf(jResp,"total")
    success.i = CkJsonObject::ckBoolOf(jResp,"success")
    i.i = 0
    count_i.i = CkJsonObject::ckSizeOfArray(jResp,"data")
    While i < count_i
        CkJsonObject::setCkI(jResp, i)
        id = CkJsonObject::ckIntOf(jResp,"data[i].id")
        albumId = CkJsonObject::ckIntOf(jResp,"data[i].albumId")
        name = CkJsonObject::ckStringOf(jResp,"data[i].name")
        description = CkJsonObject::ckStringOf(jResp,"data[i].description")
        path = CkJsonObject::ckStringOf(jResp,"data[i].path")
        v_type = CkJsonObject::ckStringOf(jResp,"data[i].type")
        extension = CkJsonObject::ckStringOf(jResp,"data[i].extension")
        userId = CkJsonObject::ckIntOf(jResp,"data[i].userId")
        created = CkJsonObject::ckStringOf(jResp,"data[i].created")
        fileSize = CkJsonObject::ckIntOf(jResp,"data[i].fileSize")
        width = CkJsonObject::ckStringOf(jResp,"data[i].width")
        height = CkJsonObject::ckStringOf(jResp,"data[i].height")
        attribute = CkJsonObject::ckStringOf(jResp,"data[i].attribute")
        i = i + 1
    Wend


    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkJsonObject::ckDispose(jResp)


    ProcedureReturn
EndProcedure