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، و nonce، وسعة الرمز، ومادة استبدال DSS كاملة اختيارية |
| Report | مستويا المصدر والنتيجة، وعددا الطوابع الزمنية، وأطوال البايتات، وحالة تحديث DSS، ووقت الإنشاء، و OID السياسة، و nonce |
Active أن يكون True وأن يسمي TsaUrl خدمة RFC 3161 متاحةUpdateDss هو 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;