Xbase++
Xbase++
Akeneo: Create New Product
See more HTTP Misc Examples
Demonstrates how to create a new product.Chilkat Xbase++ Downloads
LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL cUrl
LOCAL oResp
LOCAL cLocation
nSuccess := 0
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
oHttp := CreateObject("Chilkat.Http")
// Use your previously obtained access token.
// See Get Akeneo Access Token
oHttp:AuthToken := "access_token"
// Build the following JSON to be sent in the request body:
// Use this online tool to generate the code from sample JSON:
// Generate Code to Create JSON
// {
// "identifier": "top",
// "enabled": true,
// "family": "tshirt",
// "categories": [
// "summer_collection"
// ],
// "groups": [],
// "parent": null,
// "values": {
// "name": [
// {
// "data": "Top",
// "locale": "en_US",
// "scope": null
// },
// {
// "data": "D�bardeur",
// "locale": "fr_FR",
// "scope": null
// }
// ],
// "description": [
// {
// "data": "Summer top",
// "locale": "en_US",
// "scope": "ecommerce"
// },
// {
// "data": "Top",
// "locale": "en_US",
// "scope": "tablet"
// },
// {
// "data": "D�bardeur pour l'�t�",
// "locale": "fr_FR",
// "scope": "ecommerce"
// },
// {
// "data": "D�bardeur",
// "locale": "fr_FR",
// "scope": "tablet"
// }
// ],
// "price": [
// {
// "locale": null,
// "scope": null,
// "data": [
// {
// "amount": "150.5",
// "currency": "EUR"
// },
// {
// "amount": "150",
// "currency": "USD"
// }
// ]
// }
// ],
// "color": [
// {
// "locale": null,
// "scope": null,
// "data": "black"
// }
// ],
// "size": [
// {
// "locale": null,
// "scope": null,
// "data": "m"
// }
// ]
// },
// "associations": {
// "PACK": {
// "products": [
// "sunglass"
// ],
// "groups": []
// }
// }
// }
//
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("identifier", "top")
oJson:UpdateBool("enabled", 1)
oJson:UpdateString("family", "tshirt")
oJson:UpdateString("categories[0]", "summer_collection")
oJson:UpdateNewArray("groups")
oJson:UpdateNull("parent")
oJson:UpdateString("values.name[0].data", "Top")
oJson:UpdateString("values.name[0].locale", "en_US")
oJson:UpdateNull("values.name[0].scope")
oJson:UpdateString("values.name[1].data", "D�bardeur")
oJson:UpdateString("values.name[1].locale", "fr_FR")
oJson:UpdateNull("values.name[1].scope")
oJson:UpdateString("values.description[0].data", "Summer top")
oJson:UpdateString("values.description[0].locale", "en_US")
oJson:UpdateString("values.description[0].scope", "ecommerce")
oJson:UpdateString("values.description[1].data", "Top")
oJson:UpdateString("values.description[1].locale", "en_US")
oJson:UpdateString("values.description[1].scope", "tablet")
oJson:UpdateString("values.description[2].data", "D�bardeur pour l'�t�")
oJson:UpdateString("values.description[2].locale", "fr_FR")
oJson:UpdateString("values.description[2].scope", "ecommerce")
oJson:UpdateString("values.description[3].data", "D�bardeur")
oJson:UpdateString("values.description[3].locale", "fr_FR")
oJson:UpdateString("values.description[3].scope", "tablet")
oJson:UpdateNull("values.price[0].locale")
oJson:UpdateNull("values.price[0].scope")
oJson:UpdateString("values.price[0].data[0].amount", "150.5")
oJson:UpdateString("values.price[0].data[0].currency", "EUR")
oJson:UpdateString("values.price[0].data[1].amount", "150")
oJson:UpdateString("values.price[0].data[1].currency", "USD")
oJson:UpdateNull("values.color[0].locale")
oJson:UpdateNull("values.color[0].scope")
oJson:UpdateString("values.color[0].data", "black")
oJson:UpdateNull("values.size[0].locale")
oJson:UpdateNull("values.size[0].scope")
oJson:UpdateString("values.size[0].data", "m")
oJson:UpdateString("associations.PACK.products[0]", "sunglass")
oJson:UpdateNewArray("associations.PACK.groups")
oJson:EmitCompact := 0
// Show the JSON to be sent..
? oJson:Emit()
cUrl := "http://pim.my-akeneo-site.com/api/rest/v1/products"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", cUrl, oJson, "application/json", oResp)
IF (nSuccess == 0)
? oHttp:LastErrorText
oHttp:destroy()
oJson:destroy()
oResp:destroy()
RETURN
ENDIF
? "Response Status Code: " + Str(oResp:StatusCode)
? "Response Body: "
? oResp:BodyStr
// The akeneo response will include a "Location" header, such as the following:
// HTTP/1.1 201 Created
// Date: Tue, 22 Jan 2019 10:36:35 GMT
// Server: Apache/2
// X-Powered-By: PHP/7.1.25
// Cache-Control: max-age=0, private, must-revalidate, no-cache, private
// Set-Cookie: abcdefg; path=/; HttpOnly
// Location: http://xyz.example.com/api/rest/v1/products/L0000123
// Vary: User-Agent
// Content-Length: 0
// Keep-Alive: timeout=2, max=100
// Connection: Keep-Alive
// Content-Type: application/json
// Get the location header using resp.GetHeaderField
cLocation := oResp:GetHeaderField("Location")
? "Location: " + cLocation
oHttp:destroy()
oJson:destroy()
oResp:destroy()