Delphi DLL

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
crypt: HCkCrypt2;
numSigners: Integer;
i: Integer;

begin
success := False;

crypt := CkCrypt2_Create();

success := CkCrypt2_VerifyP7M(crypt,'qa_data/cades/CAdES-T/Signature-C-T-1.p7m','qa_output/out.dat');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
    Exit;
  end;

numSigners := CkCrypt2_getNumSignerCerts(crypt);
Memo1.Lines.Add('Num Signers = ' + IntToStr(numSigners));

i := 0;
while i < numSigners do
  begin
    if (CkCrypt2_HasSignatureSigningTime(crypt,i) = True) then
      begin
        Memo1.Lines.Add(IntToStr(i + 1) + ': ' + CkCrypt2__getSignatureSigningTimeStr(crypt,i));
      end
    else
      begin
        Memo1.Lines.Add(IntToStr(i + 1) + ': has no signing time.');
      end;
    i := i + 1;
  end;

// Sample output:

// Num Signers = 1
// 1: Sun, 03 Dec 2013 06:57:41 GMT

CkCrypt2_Dispose(crypt);

end;