function RenewPadesArchiveTimestamp(const FileName: string; const Options: TPadesArchiveTimestampOptions; out Report: TPadesArchiveTimestampReport): Boolean;
function RenewPadesArchiveTimestampToStream(Stream: TStream; const Options: TPadesArchiveTimestampOptions; out Report: TPadesArchiveTimestampReport): Boolean;
Читает точный исходный файл, буфер памяти, пользовательский поток или завершённый прогрессирующий источник, удерживаемый активным компонентом, и добавляет инкрементальную метку времени Document Time-stamp по RFC 3161, чей ByteRange охватывает все предыдущие ревизии
Когда UpdateDss равно True, перед меткой времени добавляется предоставленный полный материал сертификатов, OCSP, CRL и VRI, чтобы возвращённый токен защищал обновлённое состояние долгосрочной проверки
Результат записывается только после того, как добавленное поле становится обнаруживаемым, а структурная проверка сообщает PAdES B-LTA
| FileName | Путь назначения, в который записывается полностью подготовленный результат |
| Stream | Поток назначения, очищаемый и заполняемый только после успешного продления |
| Options | URL TSA, nonce, ёмкость токена и необязательный полный заменяющий материал DSS |
| Report | Уровни источника и результата, количества меток времени, длины в байтах, состояние обновления DSS, время генерации, OID политики и nonce |
Active было равно True, а TsaUrl указывало доступную службу RFC 3161UpdateDss не равно TrueDssOptions должен содержать каждый сертификат и каждый элемент проверки, которые должны оставаться доступными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;