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
(DataFlex) ShopwareDelete ProductSee more Shopware ExamplesDeletes a product in Shopware. For more information, see https://developers.shopware.com/developers-guide/rest-api/examples/article/#example-4-delete-a-product
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp Boolean iSuccess String sUrl Variant vResp Handle hoResp Variant vSbResponseBody Handle hoSbResponseBody Handle hoJResp Integer iRespStatusCode Boolean iBDeleted String sTemp1 Boolean bTemp1 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Set ComLogin Of hoHttp To "api_username" Set ComPassword Of hoHttp To "api_key" Set ComBasicAuth Of hoHttp To True // The id of the product is appended to the path part of the URL. Get ComSetUrlVar Of hoHttp "id" "8312" To iSuccess Move "https://my-shopware-shop.com/api/articles/{$id}" To sUrl // Send a DELETE request with nothing in the request body. Get ComQuickRequest Of hoHttp "DELETE" sUrl To vResp If (IsComObject(vResp)) Begin Get Create (RefClass(cComChilkatHttpResponse)) To hoResp Set pvComObject Of hoResp To vResp End Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody If (Not(IsComObjectCreated(hoSbResponseBody))) Begin Send CreateComObject of hoSbResponseBody End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComGetBodySb Of hoResp vSbResponseBody To iSuccess Get Create (RefClass(cComChilkatJsonObject)) To hoJResp If (Not(IsComObjectCreated(hoJResp))) Begin Send CreateComObject of hoJResp End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess Set ComEmitCompact Of hoJResp To False Showln "Response Body:" Get ComEmit Of hoJResp To sTemp1 Showln sTemp1 // A 200 response code indicates success (i.e. the request was sent and a response was received). Get ComStatusCode Of hoResp To iRespStatusCode Showln "Response Status Code = " iRespStatusCode If (iRespStatusCode >= 400) Begin Showln "Response Header:" Get ComHeader Of hoResp To sTemp1 Showln sTemp1 Showln "Failed." Send Destroy of hoResp Procedure_Return End Send Destroy of hoResp // Sample JSON response: // { // "success": true // } Get ComBoolOf Of hoJResp "success" To iBDeleted Showln "Deleted: " iBDeleted // A failed response would look like this: // { // "success": false, // "message": "Product by \"id\" 8312 not found" // } End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.