Delphi ActiveX

Example: Http.SetOAuthRsaKey method

Demonstrates the SetOAuthRsaKey method. 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;
pfx: TChilkatPfx;
privKey: TPrivateKey;
http: TChilkatHttp;
resp: TChilkatHttpResponse;

begin
success := 0;

pfx := TChilkatPfx.Create(Self);
success := pfx.LoadPfxFile('qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12','keystorepassword');
if (success = 0) then
  begin
    Memo1.Lines.Add(pfx.LastErrorText);
    Exit;
  end;

privKey := TPrivateKey.Create(Self);
success := pfx.PrivateKeyAt(0,privKey.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(pfx.LastErrorText);
    Exit;
  end;

http := TChilkatHttp.Create(Self);

// Use OAuth1.0a authentication.
http.OAuth1 := 1;

// Use your own consumer key (this is not a valid consumer key)
http.OAuthConsumerKey := '123abc';

http.OAuthSigMethod := 'RSA-SHA256';

success := http.SetOAuthRsaKey(privKey.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
http.OAuthBodyHash := 1;

// Send this request to an endpoint at chilkatsoft.com.  The purpose of this example is to show
// how the OAuth1.0a Authorization header is computed and sent by Chilkat.
// The chilkatsoft.com site itself doesn't do OAuth1.  It's just ignoring the Authorization header.
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpStr('POST','https://chilkatsoft.com/echo_request_body.asp','<notUsed>123</notUsed>','utf-8','application/xml',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Examine the request header we just sent..
Memo1.Lines.Add(http.LastHeader);

// Sample output:

// POST /echo_request_body.asp HTTP/1.1
// Host: chilkatsoft.com
// Accept: */*
// Accept-Encoding: gzip
// Content-Type: application/xml
// Content-Length: 22
// Authorization: OAuth oauth_consumer_key="123abc", oauth_nonce="A2E91C3B53E0BD7FBF71F441336679E358DDCEEE", oauth_body_hash="a5kPTsDwUwmBjC0voNlAAvM6YoaRS5X7sTO49jl3/h8=", oauth_timestamp="1756324932", oauth_signature_method="RSA-SHA256", oauth_version="1.0", oauth_signature="*****"
end;