Delphi DLL

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. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpRequest, HttpResponse, FileAccess;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
req: HCkHttpRequest;
resp: HCkHttpResponse;
responseBody: PWideChar;
fac: HCkFileAccess;

begin
success := False;

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

http := CkHttp_Create();

req := CkHttpRequest_Create();
CkHttpRequest_AddParam(req,'grant_type','password');
CkHttpRequest_AddParam(req,'scope','api/ratings api/addin rest');
CkHttpRequest_AddParam(req,'username','my_username');
CkHttpRequest_AddParam(req,'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".
CkHttpRequest_AddParam(req,'client_id','my_client_id');
CkHttpRequest_AddParam(req,'client_secret','my_client_secret');

CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putContentType(req,'application/x-www-form-urlencoded');

resp := CkHttpResponse_Create();
success := CkHttp_HttpReq(http,'https://api.moodys.com/OAuth/Token',req,resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

// Save the JSON to a file for future requests.
if (CkHttpResponse_getStatusCode(resp) = 200) then
  begin
    fac := CkFileAccess_Create();
    CkFileAccess_WriteEntireTextFile(fac,'qa_data/tokens/moodys.json',CkHttpResponse__bodyStr(resp),'utf-8',False);
  end;

CkHttp_Dispose(http);
CkHttpRequest_Dispose(req);
CkHttpResponse_Dispose(resp);
    CkFileAccess_Dispose(fac);

end;