(Delphi ActiveX) Moody's REST API - Get OAuth2 Token

See more Moody's Examples

Demonstrates how to get an OAuth2 access token for the Moody's REST API.

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;
req: TChilkatHttpRequest;
resp: IChilkatHttpResponse;
responseBody: WideString;
fac: TCkFileAccess;

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

http := TChilkatHttp.Create(Self);

req := TChilkatHttpRequest.Create(Self);
req.AddParam('grant_type','password');
req.AddParam('scope','api/ratings api/addin rest');
req.AddParam('username','my_username');
req.AddParam('password','my_password');
// I have no idea of where to get the client_id or client_secret.
// When you create a Moody's App, it only provides an "API Key".
req.AddParam('client_id','my_client_id');
req.AddParam('client_secret','my_client_secret');

resp := http.PostUrlEncoded('https://api.moodys.com/OAuth/Token',req.ControlInterface);
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('status code = ' + IntToStr(resp.StatusCode));
responseBody := resp.BodyStr;
Memo1.Lines.Add(responseBody);

// Save the JSON to a file for future requests.
if (resp.StatusCode = 200) then
  begin
    fac := TCkFileAccess.Create(Self);
    fac.WriteEntireTextFile('qa_data/tokens/moodys.json',resp.BodyStr,'utf-8',0);
  end;
end;