ApplyPAdESSignatureTimeStamp
Цифровые подписи
Описание
Completes a PAdES-B-T signature time-stamp in one call.
Синтаксис
Delphi
Function TPDFlib.ApplyPAdESSignatureTimeStamp(STSProcessID, SignerIndex: Integer): Integer;Параметры
| STSProcessID | Процесс метки времени подписи, созданный одной из функций NewPAdESSignatureTimeStampProcess |
|---|---|
| SignerIndex | Подписант с отсчетом от нуля, чье значение подписи проставляется меткой |
Возвращаемые значения
| 1 | Токен получен и присоединён |
|---|---|
| 0 | Обмен или присоединение не удались; GetTimeStampError несет причину |
Примечания
Эта функция хеширует значение подписи целевого поля процесса, запрашивает токен у органа, заданного SetTimeStampServer, и присоединяет его как неподписанный атрибут метки времени подписи. После этого вызовите одну из функций End, чтобы записать вывод
Отдельные шаги остаются доступными для вызывающего, получающего токены из другого места: GetPAdESSignatureValueHashHex, затем SetPAdESSignatureTimeStampToken
Пример
PDF.SetTimeStampServer('https://tsa.example.com/tsa', '', '');
ProcessID:= PDF.NewPAdESSignatureTimeStampProcessFromFile('signed.pdf', '');
PDF.SetPAdESSignatureTimeStampField(ProcessID, 'Signature1');
if PDF.ApplyPAdESSignatureTimeStamp(ProcessID, 0)= 1 then
PDF.EndPAdESSignatureTimeStampProcessToFile(ProcessID, 'signed-bt.pdf');
PDF.ReleasePAdESSignatureTimeStampProcess(ProcessID);См. также
FetchTimeStampToken, SetTimeStampServer, SetPAdESSignatureTimeStampToken