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 ActiveX) Amazon SP-API Create FeedSee more Amazon SP-API ExamplesCreates a feed. Amazon returns a feedDocumentId value, encryption details, and a URL for uploading the feed contents. For more information, see https://developer-docs.amazon.com/sp-api/docs/feeds-api-v2020-09-04-use-case-guide
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var authAws: TChilkatAuthAws; rest: TChilkatRest; success: Integer; jsonToken: TChilkatJsonObject; lwa_token: WideString; jsonReq: TChilkatJsonObject; sbRequest: TChilkatStringBuilder; sbResponse: TChilkatStringBuilder; path: WideString; statusCode: Integer; json: TChilkatJsonObject; feedDocumentId: WideString; url: WideString; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. authAws := TChilkatAuthAws.Create(Self); authAws.AccessKey := 'AWS_ACCESS_KEY'; authAws.SecretKey := 'AWS_SECRET_KEY'; authAws.ServiceName := 'execute-api'; // Use the region that is correct for your needs. authAws.Region := 'eu-west-1'; rest := TChilkatRest.Create(Self); success := rest.Connect('sellingpartnerapi-eu.amazon.com',443,1,1); if (success = 0) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; success := rest.SetAuthAws(authAws.ControlInterface); // Load the previously obtained LWA access token. // See Fetch SP-API LWA Access Token jsonToken := TChilkatJsonObject.Create(Self); success := jsonToken.LoadFile('qa_data/tokens/sp_api_lwa_token.json'); if (success = 0) then begin Memo1.Lines.Add('Failed to load LWA access token.'); Exit; end; // Add the x-amz-access-token request header. lwa_token := jsonToken.StringOf('access_token'); jsonReq := TChilkatJsonObject.Create(Self); jsonReq.UpdateString('contentType','text/tab-separated-values; charset=UTF-8'); sbRequest := TChilkatStringBuilder.Create(Self); jsonReq.EmitSb(sbRequest.ControlInterface); rest.ClearAllQueryParams(); rest.ClearAllHeaders(); rest.AddHeader('x-amz-access-token',lwa_token); sbResponse := TChilkatStringBuilder.Create(Self); path := '/feeds/2021-06-30/documents'; success := rest.FullRequestSb('POST',path,sbRequest.ControlInterface,sbResponse.ControlInterface); if (success = 0) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; // Examine the response status. statusCode := rest.ResponseStatusCode; Memo1.Lines.Add('statusCode: ' + IntToStr(statusCode)); if (statusCode <> 201) then begin Memo1.Lines.Add('Response status text: ' + rest.ResponseStatusText); Memo1.Lines.Add('Response body: '); Memo1.Lines.Add(sbResponse.GetAsString()); Memo1.Lines.Add('Failed.'); Exit; end; Memo1.Lines.Add(sbResponse.GetAsString()); // If successful, gets a JSON response such as the following: // { // "feedDocumentId": "3d4e42b5-1d6e-44e8-a89c-2abfca0625bb", // "url": "https://d34o8swod1owfl.cloudfront.net/Feed_101__POST_PRODUCT_DATA_.xml" // } // Use this online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON json := TChilkatJsonObject.Create(Self); json.LoadSb(sbResponse.ControlInterface); feedDocumentId := json.StringOf('feedDocumentId'); url := json.StringOf('url'); // Save the JSON to a file for the example that constructs the XML feed and uploads.. success := json.WriteFile('qa_data/json/sp_api_feed_upload_info.json'); Memo1.Lines.Add('Success!'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.