Delphi DLL

Isabel Connect Revoke Access Token

See more Ibanity Examples

Revokes an access token. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
cert: HCkCert;
req: HCkHttpRequest;
jsonToken: HCkJsonObject;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;

begin
success := False;

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

http := CkHttp_Create();

// // Implements the following CURL command:
// 
// curl -X POST https://api.ibanity.com/isabel-connect/oauth2/revoke \
// --cert certificate.pem:qwertyuiop1 \
// --key private_key.pem  \
// -H "Content-Type: application/x-www-form-urlencoded" \
// -H "Accept: application/vnd.api+json"  \
// -d token=8787 \
// -d client_id=valid_client_id \
// -d client_secret=valid_client_secret 

// Ibanity provides the certificate + private key in PFX format.  This example will use the .pfx instead of the pair of PEM files.
// (It is also possible to implement using Chilkat with the PEM files, but PFX is easier.)
cert := CkCert_Create();
success := CkCert_LoadPfxFile(cert,'qa_data/pfx/my_ibanity_certificate.pfx','my_pfx_password');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

success := CkHttp_SetSslClientCert(http,cert);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

req := CkHttpRequest_Create();
CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putPath(req,'/isabel-connect/oauth2/revoke');
CkHttpRequest_putContentType(req,'application/x-www-form-urlencoded');

// Load the previously obtained access token.
jsonToken := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/isabel_access_token.json');
if (success = False) then
  begin
    Memo1.Lines.Add('No existing access token.');
    Exit;
  end;
CkHttpRequest_AddParam(req,'token',CkJsonObject__stringOf(jsonToken,'access_token'));

// Note: For sandbox testing, we literally want to use the strings
// "valid_client_id", and "valid_client_secret".
// For the live app, you would replace these with actual values.
CkHttpRequest_AddParam(req,'client_id','valid_client_id');
CkHttpRequest_AddParam(req,'client_secret','valid_client_secret');

CkHttpRequest_AddHeader(req,'Accept','application/vnd.api+json');

resp := CkHttpResponse_Create();
success := CkHttp_HttpReq(http,'https://api.ibanity.com/isabel-connect/oauth2/revoke',req,resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

sbResponseBody := CkStringBuilder_Create();
CkHttpResponse_GetBodySb(resp,sbResponseBody);

respStatusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));

// If successful, the response status code = 200, and the response body is "{}"

CkHttp_Dispose(http);
CkCert_Dispose(cert);
CkHttpRequest_Dispose(req);
CkJsonObject_Dispose(jsonToken);
CkHttpResponse_Dispose(resp);
CkStringBuilder_Dispose(sbResponseBody);

end;