RenewPadesArchiveTimestamp - TPdf - PDFium Delphi Component

Component: TPdf · Unit: PDFium

Appends a new archival Document Time-stamp to an existing PAdES signature chain

Syntax

function RenewPadesArchiveTimestamp(const FileName: string; const Options: TPadesArchiveTimestampOptions; out Report: TPadesArchiveTimestampReport): Boolean;

function RenewPadesArchiveTimestampToStream(Stream: TStream; const Options: TPadesArchiveTimestampOptions; out Report: TPadesArchiveTimestampReport): Boolean;

Description

Reads the exact original file, memory buffer, custom stream or completed progressive source retained by the active component and appends an incremental RFC 3161 Document Time-stamp whose ByteRange covers every prior revision

When UpdateDss is True, the supplied complete certificate, OCSP, CRL and VRI material is appended before the timestamp so the returned token protects the refreshed long-term validation state

The output is written only after the appended field is discoverable and structural validation reports PAdES B-LTA

Parameters

FileName	Destination path written from a fully staged result
Stream	Destination stream cleared and filled only after successful renewal
Options	TSA URL, nonce, token capacity and optional complete DSS replacement material
Report	Source and result levels, timestamp counts, byte lengths, DSS update state, generation time, policy OID and nonce

Remarks

Requires Active to be True and TsaUrl to name an available RFC 3161 service
The result describes and extends the original loaded version, not unsaved edits currently held by the component
Encrypted input and incomplete progressive input are rejected
Existing input must already declare ESIC ExtensionLevel 2 unless UpdateDss is True
A DSS refresh replaces the active catalogue reference, so DssOptions must contain every certificate and validation item that must remain available
ContentsSize is clamped to at least 1024 bytes and limited to 16 MiB
Historical revisions remain byte-for-byte unchanged because every update is appended
Use ValidatePades and an online trust policy independently when current certificate, revocation or historical trust decisions are required

Example

var
  Options: TPadesArchiveTimestampOptions;
  Report: TPadesArchiveTimestampReport;
begin
  Options := TPadesArchiveTimestampOptions.Default;
  Options.TsaUrl := 'https://tsa.example.test';
  Options.Nonce := 42;
  if Pdf1.RenewPadesArchiveTimestamp('renewed.pdf', Options, Report) then
    ShowMessage(Format('%d archival timestamps', [Report.ResultDocTimeStampCount]));
end;

RenewPadesArchiveTimestamp method