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

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
jsonCsc: HCkJsonObject;
cert: HCkCert;
success: Boolean;
i: Integer;
numIds: Integer;
cred_id: PWideChar;

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

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

CkJsonObject_UpdateString(jsonCsc,'userId','YOUR_USER_ID');
CkJsonObject_UpdateString(jsonCsc,'clientId','YOUR_CLIENT_ID');
CkJsonObject_UpdateString(jsonCsc,'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 := CkCert_Create();
success := CkCert_SetCloudSigner(cert,jsonCsc);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

CkJsonObject_putEmitCompact(jsonCsc,False);

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

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

CkJsonObject_Dispose(jsonCsc);
CkCert_Dispose(cert);

end;