Delphi DLL

BrickLink OAuth1 using Chilkat REST

See more BrickLink Examples

Demonstrates sending an api.bricklink.com request with OAuth1 authentication using Chilkat REST.

Note: This example requires Chilkat v9.5.0.91 or greater (due to adjustments made within Chilkat to support bricklink OAuth1 needs).

Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, OAuth1, Rest, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
oauth1: HCkOAuth1;
rest: HCkRest;
sbResponse: HCkStringBuilder;
json: HCkJsonObject;

begin
success := False;

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

oauth1 := CkOAuth1_Create();

CkOAuth1_putConsumerKey(oauth1,'Your Consumer Key');
CkOAuth1_putConsumerSecret(oauth1,'Your Consumer Secret');
CkOAuth1_putToken(oauth1,'Your OAuth1 Token');
CkOAuth1_putTokenSecret(oauth1,'Your Token Secret');
CkOAuth1_putSignatureMethod(oauth1,'HMAC-SHA1');

rest := CkRest_Create();

CkRest_SetAuthOAuth1(rest,oauth1,False);

success := CkRest_Connect(rest,'api.bricklink.com',443,True,True);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

sbResponse := CkStringBuilder_Create();
success := CkRest_FullRequestNoBodySb(rest,'GET','/api/store/v1/orders?direction=in',sbResponse);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

Memo1.Lines.Add('Response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));

json := CkJsonObject_Create();
CkJsonObject_LoadSb(json,sbResponse);
CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

CkOAuth1_Dispose(oauth1);
CkRest_Dispose(rest);
CkStringBuilder_Dispose(sbResponse);
CkJsonObject_Dispose(json);

end;