(Delphi DLL) REST OAuth1 with Params

Demonstrates how to use OAuth 1.0a "one legged" authentication with Woo Commerce, with URLs that use query parameters. For example: /orders?status=processing

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
oauth1: HCkOAuth1;
success: Boolean;
rest: HCkRest;
bUseQueryParams: Boolean;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
responseJson: PWideChar;

begin
// Demonstrates how to do OAuth1 authentication with query parameters (for a Wordpress site using Woo Commerce).

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

// Prepare an OAuth 1.0 object for use with the Chilkat REST API.
oauth1 := CkOAuth1_Create();
CkOAuth1_putConsumerKey(oauth1,'WOO_COMMERCE_CONSUMER_KEY');
CkOAuth1_putConsumerSecret(oauth1,'WOO_COMMERCE_CONSUMER_SECRET');

// The signature method can be HMAC-SHA1 or HMAC-SHA256
CkOAuth1_putSignatureMethod(oauth1,'HMAC-SHA256');

// The OauthUrl property will need to be updated each time a request is sent.
// The domain here must match the domain passed to the Connect method (below).
// The domain must be exact.  For example, "www.your-wordpress-site.com" vs. "your-wordpress-site.com".
// One might work while the other does not..
CkOAuth1_putOauthUrl(oauth1,'http://your-wordpress-site.com/wc-api/v3/orders');

// We need to tell OAuth1 about our extra query parameters so they can be used
// in generating the OAuth1 signature.
// In this example, we want to add the param "status=processing"
success := CkOAuth1_AddParam(oauth1,'status','processing');

// The OAuthMethod property will be set automatically when the REST request is sent.
// Setting it here is not actually necessary.
CkOAuth1_putOauthMethod(oauth1,'GET');

// Generate an initial nonce so that Chilkat knows the desired size of the nonce.
success := CkOAuth1_GenNonce(oauth1,32);

rest := CkRest_Create();

// Tell the REST object to use the OAuth1 object for authentication.
// Also, indicate that the OAuth authentication parameters should be query parameters
// and not located within the Authorization header.
bUseQueryParams := True;
success := CkRest_SetAuthOAuth1(rest,oauth1,bUseQueryParams);

// Make the initial connection (without sending a request yet) to the WooCommerce endpoint at your Wordpress blog.
bTls := False;
port := 80;
bAutoReconnect := True;
success := CkRest_Connect(rest,'your-wordpress-site.com',port,bTls,bAutoReconnect);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// Send a GET request to list orders.

// The extra query params must be added here.
// (Whatever params are added here should've also been added to the OAuth1 object.)
success := CkRest_AddQueryParam(rest,'status','processing');

// When the request is sent, the OAuth1 object's Timestamp and Nonce properties are automatically
// regenerated.  Also, the OAuth1 object's OauthMethod property is automatically set to the HTTP method
// used for the request (in this case it is "GET").
responseJson := CkRest__fullRequestNoBody(rest,'GET','/wc-api/v3/orders');
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// When successful, the response status code will equal 200.
if (CkRest_getResponseStatusCode(rest) <> 200) then
  begin
    // Examine the request/response to see what happened.
    Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));
    Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest));
    Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest));
    Memo1.Lines.Add('response body (if any): ' + responseJson);
    Memo1.Lines.Add('---');
    Memo1.Lines.Add('LastRequestStartLine: ' + CkRest__lastRequestStartLine(rest));
    Memo1.Lines.Add('LastRequestHeader: ' + CkRest__lastRequestHeader(rest));
    Exit;
  end;

Memo1.Lines.Add(responseJson);
Memo1.Lines.Add('Success.');

CkOAuth1_Dispose(oauth1);
CkRest_Dispose(rest);

end;