PowerBuilder
PowerBuilder
Shopware List Categories
See more Shopware Examples
List categories in your Shopware database.Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_SbResponseBody
oleobject loo_JResp
integer li_Id
integer li_Active
string ls_Name
integer li_Position
string ls_ParentId
string ls_MediaId
string ls_ChildrenCount
string ls_ArticleCount
integer li_Total
integer i
integer li_Count_i
li_Success = 0
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
destroy loo_Http
MessageBox("Error","Connecting to COM object failed")
return
end if
loo_Http.Login = "api_username"
loo_Http.Password = "api_key"
loo_Http.BasicAuth = 1
loo_SbResponseBody = create oleobject
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder")
li_Success = loo_Http.QuickGetSb("https://my-shopware-shop.com/api/categories?limit=2",loo_SbResponseBody)
if li_Success = 0 then
Write-Debug loo_Http.LastErrorText
destroy loo_Http
destroy loo_SbResponseBody
return
end if
loo_JResp = create oleobject
li_rc = loo_JResp.ConnectToNewObject("Chilkat.JsonObject")
loo_JResp.LoadSb(loo_SbResponseBody)
loo_JResp.EmitCompact = 0
Write-Debug "Response Body:"
Write-Debug loo_JResp.Emit()
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "data": [
// {
// "id": 1,
// "active": true,
// "name": "Root",
// "position": 0,
// "parentId": null,
// "mediaId": null,
// "childrenCount": "3",
// "articleCount": "0"
// },
// {
// "id": 384,
// "active": true,
// "name": "Deutsch",
// "position": 0,
// "parentId": 1,
// "mediaId": null,
// "childrenCount": "9",
// "articleCount": "32"
// }
// ],
// "total": 118,
// "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
li_Total = loo_JResp.IntOf("total")
li_Success = loo_JResp.BoolOf("success")
i = 0
li_Count_i = loo_JResp.SizeOfArray("data")
do while i < li_Count_i
loo_JResp.I = i
li_Id = loo_JResp.IntOf("data[i].id")
li_Active = loo_JResp.BoolOf("data[i].active")
ls_Name = loo_JResp.StringOf("data[i].name")
li_Position = loo_JResp.IntOf("data[i].position")
ls_ParentId = loo_JResp.StringOf("data[i].parentId")
ls_MediaId = loo_JResp.StringOf("data[i].mediaId")
ls_ChildrenCount = loo_JResp.StringOf("data[i].childrenCount")
ls_ArticleCount = loo_JResp.StringOf("data[i].articleCount")
i = i + 1
loop
destroy loo_Http
destroy loo_SbResponseBody
destroy loo_JResp