Delphi ActiveX

Update an Inventory Listing using OAuth1 Authentication

See more Etsy Examples

Updates an inventory listing. This example uses OAuth1 authentication instead of providing an api_key=MY_ETSY_KEYSTRING query parameter. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
rest: TChilkatRest;
json: TChilkatJsonObject;
oauth1: TChilkatOAuth1;
autoReconnect: Integer;
tls: Integer;
jsonText: WideString;
jsonResponseText: WideString;
jsonResponse: TChilkatJsonObject;

begin
success := 0;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

rest := TChilkatRest.Create(Self);

// See this example for getting an OAuth1 token for Etsy

json := TChilkatJsonObject.Create(Self);
success := json.LoadFile('qa_data/tokens/etsy.json');
if (success = 0) then
  begin
    Memo1.Lines.Add('Failed to load previously fetched Etsy OAuth1 access token.');
    Exit;
  end;

oauth1 := TChilkatOAuth1.Create(Self);

oauth1.ConsumerKey := 'app_keystring';
oauth1.ConsumerSecret := 'app_shared_secret';
oauth1.Token := json.StringOf('oauth_token');
oauth1.TokenSecret := json.StringOf('oauth_token_secret');
oauth1.SignatureMethod := 'HMAC-SHA1';
oauth1.GenNonce(16);

autoReconnect := 1;
tls := 1;
success := rest.Connect('openapi.etsy.com',443,tls,autoReconnect);
if (success = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// Tell the REST object to use the OAuth1 object.
success := rest.SetAuthOAuth1(oauth1.ControlInterface,1);

jsonText := '[{"product_id":1999949999,"property_values":[],"offerings":[{"offering_id":9999905883,"price":"36.23","quantity":1}]}]';

rest.AddQueryParam('products',jsonText);
rest.AddHeader('Content-Type','application/x-www-form-urlencoded');

jsonResponseText := rest.FullRequestFormUrlEncoded('PUT','/v2/listings/228827035/inventory');
if (rest.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

jsonResponse := TChilkatJsonObject.Create(Self);
jsonResponse.Load(jsonResponseText);
jsonResponse.EmitCompact := 0;

Memo1.Lines.Add(jsonResponse.Emit());

Memo1.Lines.Add('Response status code: ' + IntToStr(rest.ResponseStatusCode));
end;