function RenewPadesArchiveTimestamp(const FileName: string; const Options: TPadesArchiveTimestampOptions; out Report: TPadesArchiveTimestampReport): Boolean;
function RenewPadesArchiveTimestampToStream(Stream: TStream; const Options: TPadesArchiveTimestampOptions; out Report: TPadesArchiveTimestampReport): Boolean;
读取活动组件保留的精确原始文件、内存缓冲区、自定义流或已完成的渐进式源,并追加一个增量 RFC 3161 文档时间戳,其 ByteRange 覆盖每一个先前的修订
当 UpdateDss 为 True 时,提供的完整证书、OCSP、CRL 和 VRI 材料会在时间戳之前追加,使返回的令牌保护刷新后的长期验证状态
仅当追加的字段可被发现且结构验证报告 PAdES B-LTA 时,才写入输出
| FileName | 从完全暂存的结果写入的目标路径 |
| Stream | 仅在成功续签之后才清空并填充的目标流 |
| Options | TSA URL、随机数、令牌容量和可选的完整 DSS 替换材料 |
| Report | 源和结果级别、时间戳计数、字节长度、DSS 更新状态、生成时间、策略 OID 和随机数 |
Active 为 True,且 TsaUrl 指定可用的 RFC 3161 服务UpdateDss 为 True,否则现有输入必须已经声明 ESIC ExtensionLevel 2DssOptions 必须包含每个必须保持可用的证书和验证项ContentsSize 被钳制为至少 1024 字节,并限制在 16 MiB
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;