Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) Akeneo: Create New AttributeDemonstrates how to create a new attribute.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var http: HCkHttp; json: HCkJsonObject; url: PWideChar; resp: HCkHttpResponse; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. http := CkHttp_Create(); // Use your previously obtained access token. // See Get Akeneo Access Token CkHttp_putAuthToken(http,'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 // { // "code": "release_date", // "type": "pim_catalog_date", // "group": "marketing", // "unique": false, // "useable_as_grid_filter": true, // "allowed_extensions": [], // "metric_family": null, // "default_metric_unit": null, // "reference_data_name": null, // "available_locales": [], // "max_characters": null, // "validation_rule": null, // "validation_regexp": null, // "wysiwyg_enabled": null, // "number_min": null, // "number_max": null, // "decimals_allowed": null, // "negative_allowed": null, // "date_min": "2017-06-28T08:00:00", // "date_max": "2017-08-08T22:00:00", // "max_file_size": null, // "minimum_input_length": null, // "sort_order": 1, // "localizable": false, // "scopable": false, // "labels": { // "en_US": "Sale date", // "fr_FR": "Date des soldes" // } // } json := CkJsonObject_Create(); CkJsonObject_UpdateString(json,'code','release_date'); CkJsonObject_UpdateString(json,'type','pim_catalog_date'); CkJsonObject_UpdateString(json,'group','marketing'); CkJsonObject_UpdateBool(json,'unique',False); CkJsonObject_UpdateBool(json,'useable_as_grid_filter',True); CkJsonObject_UpdateNewArray(json,'allowed_extensions'); CkJsonObject_UpdateNull(json,'metric_family'); CkJsonObject_UpdateNull(json,'default_metric_unit'); CkJsonObject_UpdateNull(json,'reference_data_name'); CkJsonObject_UpdateNewArray(json,'available_locales'); CkJsonObject_UpdateNull(json,'max_characters'); CkJsonObject_UpdateNull(json,'validation_rule'); CkJsonObject_UpdateNull(json,'validation_regexp'); CkJsonObject_UpdateNull(json,'wysiwyg_enabled'); CkJsonObject_UpdateNull(json,'number_min'); CkJsonObject_UpdateNull(json,'number_max'); CkJsonObject_UpdateNull(json,'decimals_allowed'); CkJsonObject_UpdateNull(json,'negative_allowed'); CkJsonObject_UpdateString(json,'date_min','2017-06-28T08:00:00'); CkJsonObject_UpdateString(json,'date_max','2017-08-08T22:00:00'); CkJsonObject_UpdateNull(json,'max_file_size'); CkJsonObject_UpdateNull(json,'minimum_input_length'); CkJsonObject_UpdateNumber(json,'sort_order','1'); CkJsonObject_UpdateBool(json,'localizable',False); CkJsonObject_UpdateBool(json,'scopable',False); CkJsonObject_UpdateString(json,'labels.en_US','Sale date'); CkJsonObject_UpdateString(json,'labels.fr_FR','Date des soldes'); CkJsonObject_putEmitCompact(json,False); // Show the JSON to be sent.. Memo1.Lines.Add(CkJsonObject__emit(json)); url := 'http://pim.my-akeneo-site.com/api/rest/v1/attributes'; resp := CkHttp_PostJson3(http,url,'application/json',json); if (CkHttp_getLastMethodSuccess(http) <> True) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; Memo1.Lines.Add('Response Status Code: ' + IntToStr(CkHttpResponse_getStatusCode(resp))); Memo1.Lines.Add('Response Body: '); Memo1.Lines.Add(CkHttpResponse__bodyStr(resp)); CkHttpResponse_Dispose(resp); CkHttp_Dispose(http); CkJsonObject_Dispose(json); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.