Delphi ActiveX

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. 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;
crypt: TChilkatCrypt2;
numSigners: Integer;
i: Integer;

begin
success := 0;

crypt := TChilkatCrypt2.Create(Self);

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

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

i := 0;
while i < numSigners do
  begin
    if (crypt.HasSignatureSigningTime(i) = 1) then
      begin
        Memo1.Lines.Add(IntToStr(i + 1) + ': ' + crypt.GetSignatureSigningTimeStr(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
end;