(Delphi DLL) JCC Payment Systems - Sign PDF using Cloud Signature Consortium API

See more JCC Cyprus Examples

Demonstrates how to sign a PDF using a CSC provider. (CSC is the acronym for Cloud Signature Consortium.) This example shows the how to sign a PDF using a particular instance of a CSC service providee JCC Payment Systems Ltd, a company based in Cyprus that provides payment processing services. To use a different CSC provider would only require the values of the JSON parameters, such as base URL, client ID, client secret, etc. to be modified.

The Cloud Signature Consortium (CSC) is an international group of organizations and technology providers dedicated to creating and promoting a standardized open API for cloud-based digital signatures. The goal of the consortium is to make remote, legally-binding digital signatures accessible through cloud-based services, ensuring compatibility and interoperability across different platforms, devices, and services.

The CSC develops and maintains an open standard for APIs that allow cloud-based digital signature solutions to be easily integrated into applications and platforms.

These APIs enable users to sign documents using cloud-based certificate authorities (CAs) and trust service providers (TSPs), ensuring legal compliance with digital signature regulations (such as eIDAS in the EU).

Note: This example requires Chilkat v10.0.0 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, Pdf, Cert, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
pdf: HCkPdf;
success: Boolean;
json: HCkJsonObject;
jsonCsc: HCkJsonObject;
cert: HCkCert;

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

pdf := CkPdf_Create();

// Load a PDF to be signed.
success := CkPdf_LoadFile(pdf,'qa_data/pdf/hello.pdf');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

// Options for signing are specified in JSON.
json := CkJsonObject_Create();

// Indicate that we want an LTV-enabled signature
CkJsonObject_UpdateBool(json,'ltvOcsp',True);

// Define the appearance of the signature.
CkJsonObject_UpdateInt(json,'page',1);
CkJsonObject_UpdateString(json,'appearance.y','top');
CkJsonObject_UpdateString(json,'appearance.x','left');
CkJsonObject_UpdateString(json,'appearance.fontScale','10.0');
CkJsonObject_UpdateString(json,'appearance.text[0]','Digitally signed by: cert_cn');
CkJsonObject_UpdateString(json,'appearance.text[1]','current_dt');
CkJsonObject_UpdateString(json,'appearance.text[2]','This is an LTV-enabled signature.');

// --------------------------------------------------------------------
// Provide the information about the CSC service to be used for signing.
jsonCsc := CkJsonObject_Create();

// Set the "service" equal to "CSC" to tell Chilkat to use the Cloud Signature Consortium API standard for signing.
CkJsonObject_UpdateString(jsonCsc,'service','CSC');

// Provide the service's base URL, the user ID, client ID, and client secret.
// Note: This example requires the CSC service to support the 
// OAuth2 client credentials (oauth2code authType) method of authentication.

// This is the base URL for the JCC CSC service.  It should be changed to your CSC provider's base URL.
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');

// If your user ID has multiple possible credential IDs, you can select one by 
// specifying the ID or a substring that must be contained within the ID.
// Otherwise, Chilkat will use the 1st credential ID returned via the "credentials/list" endpoint.
// ------------------------------------------------------------------------------------------------------------
// IMPORTANT: Remove this line if you don't have multiple credential IDs, or if you wish to simply use the 1st.
// ------------------------------------------------------------------------------------------------------------
CkJsonObject_UpdateString(jsonCsc,'useCredential','MY_CREDENTIAL_ID');

// The SetCloudSigner method will send HTTPS REST requests to the base URL
// to get information about the CSC service.
// Specifically, it 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.
cert := CkCert_Create();
success := CkCert_SetCloudSigner(cert,jsonCsc);

// Tell the pdf object to use the certificate for signing.
success := CkPdf_SetSigningCert(pdf,cert);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

// This is where a 2FA means of authentication might occur, depending on the CSC provider.
// For example, in the case of JCC Payment Systems, an authorization request is sent to 
// the Ascertia GoSign app on your mobile device where you must authorize the request to sign.
success := CkPdf_SignPdf(pdf,json,'qa_output/hello_signed.pdf');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

Memo1.Lines.Add('The PDF has been successfully signed using a CSC cloud signing service.');

CkPdf_Dispose(pdf);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(jsonCsc);
CkCert_Dispose(cert);

end;