(Delphi ActiveX) ETrade Renew Access Token

Renews an ETrade OAuth access token.

For more information, see https://apisb.etrade.com/docs/api/authorization/renew_access_token.html

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

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
http: TChilkatHttp;
jsonToken: TChilkatJsonObject;
success: Integer;
resp: IChilkatHttpResponse;
sbRespBody: TChilkatStringBuilder;
hashTab: TChilkatHashtable;
accessToken: WideString;
accessTokenSecret: WideString;
json: TChilkatJsonObject;
fac: TCkFileAccess;

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

http := TChilkatHttp.Create(Self);

http.OAuth1 := 1;
http.OAuthVerifier := '';
http.OAuthConsumerKey := 'ETRADE_CONSUMER_KEY';
http.OAuthConsumerSecret := 'ETRADE_CONSUMER_SECRET';

// Load the access token previously obtained via the OAuth1 Authorization
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/etrade.json');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load OAuth1 token');
    Exit;
  end;

http.OAuthToken := jsonToken.StringOf('oauth_token');
http.OAuthTokenSecret := jsonToken.StringOf('oauth_token_secret');

resp := http.QuickGetObj('https://api.etrade.com/oauth/renew_access_token');
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Make sure a successful response was received.
if (resp.StatusCode <> 200) then
  begin
    Memo1.Lines.Add(resp.StatusLine);
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add(resp.BodyStr);
    Exit;
  end;

// If successful, the resp.BodyStr contains something like this:
// oauth_token=%3TiQRgQCRGPo7Xdk6G8QDSEzX0Jsy6sKNcULcDavAGgU%3D&oauth_token_secret=%7RrC9scEpzcwSEMy4vE7nodSzPLqfRINnTNY4voczyFM%3D
Memo1.Lines.Add(resp.BodyStr);

sbRespBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbRespBody.ControlInterface);
if (sbRespBody.ContentsEqual('Access Token has been renewed',0)) then
  begin
    // The documentation at https://apisb.etrade.com/docs/api/authorization/renew_access_token.html
    // indicates that the response should be as described above.  However, the response received when
    // trying to refresh a non-expired token was "Access Token has been renewed"
    Memo1.Lines.Add('Keeping the same access token, but it''s renewed...');
    Exit;
  end;

hashTab := TChilkatHashtable.Create(Self);
hashTab.AddQueryParams(resp.BodyStr);

accessToken := hashTab.LookupStr('oauth_token');
accessTokenSecret := hashTab.LookupStr('oauth_token_secret');

// The access token + secret is what should be saved and used for
// subsequent REST API calls.
Memo1.Lines.Add('Access Token = ' + accessToken);
Memo1.Lines.Add('Access Token Secret = ' + accessTokenSecret);

// Save this access token for future calls.
// Just in case we need user_id and screen_name, save those also..
json := TChilkatJsonObject.Create(Self);
json.AppendString('oauth_token',accessToken);
json.AppendString('oauth_token_secret',accessTokenSecret);

fac := TCkFileAccess.Create(Self);
fac.WriteEntireTextFile('qa_data/tokens/etrade.json',json.Emit(),'utf-8',0);

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