Delphi ActiveX

_LANGUAGE_ JCC Payment Systems - Get a User's Credential IDs for CSC

See more JCC Cyprus Examples

Demonstrates how to find the credential ids for a given user to be used with remote signing via the CSC (Cloud Signature Consortium) API.

Note: This example requires Chilkat v10.0.2 or greater.

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;
jsonCsc: TChilkatJsonObject;
cert: TChilkatCert;
i: Integer;
numIds: Integer;
cred_id: WideString;

begin
success := 0;

// Provide information about the CSC service and our user ID and client credentials.
jsonCsc := TChilkatJsonObject.Create(Self);

jsonCsc.UpdateString('service','CSC');
jsonCsc.UpdateString('baseUrl','https://ras-test.jcc.com.cy/adss/service/ras/csc/v1/');

jsonCsc.UpdateString('userId','YOUR_USER_ID');
jsonCsc.UpdateString('clientId','YOUR_CLIENT_ID');
jsonCsc.UpdateString('clientSecret','YOUR_CLIENT_SECRET');

// The call to SetCloudSigner will do the following internally:
// 1) Calls the "info" endpoint to get information about the remote service and the list of the API methods it supports.
// 2) Calls the "oauth2/token" endpoint to get the OAuth2 authorization token via client credentials (using the clientId and clientSecret).
// 3) Calls the "credentials/list" endpoint to get the list of credentials associated with the userId.
// 4) Calls the "credentials/info" endpoint to retrieve the credential and return the main identity information 
//    and the public key certificate or the certificate chain associated to it.
//    The Chilkat certificate object is loaded with the retrieved certificate.

// The jsonCsc is updated with the information returned from each of the above calls.
cert := TChilkatCert.Create(Self);
success := cert.SetCloudSigner(jsonCsc.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

jsonCsc.EmitCompact := 0;

Memo1.Lines.Add(jsonCsc.Emit());

// We can do the following to get the credential IDs
i := 0;
numIds := jsonCsc.SizeOfArray('credentials_list.credentialIDs');
while i < numIds do
  begin
    jsonCsc.I := i;
    cred_id := jsonCsc.StringOf('credentials_list.credentialIDs[i]');
    Memo1.Lines.Add('Credential ID: ' + cred_id);
    i := i + 1;
  end;
end;