ApplyPAdESSignatureTimeStamp
Assinaturas digitais
Descrição
Completes a PAdES-B-T signature time-stamp in one call.
Sintaxe
Delphi
Function TPDFlib.ApplyPAdESSignatureTimeStamp(STSProcessID, SignerIndex: Integer): Integer;Parâmetros
| STSProcessID | Um processo de carimbo de tempo de assinatura criado por uma das funções NewPAdESSignatureTimeStampProcess. |
|---|---|
| SignerIndex | Signer com base zero cujo valor de assinatura é carimbado. |
Valores retornados
| 1 | O token foi obtido e anexado. |
|---|---|
| 0 | A troca ou o anexo falhou; GetTimeStampError informa o motivo. |
Observações
Isto calcula o hash do valor de assinatura do campo alvo do processo, pede um token à autoridade definida por SetTimeStampServer e o anexa como atributo não assinado de carimbo de tempo da assinatura. Chame uma das funções End em seguida para gravar a saída.
Os passos individuais continuam disponíveis para um chamador que consiga os tokens por outra via: GetPAdESSignatureValueHashHex e depois SetPAdESSignatureTimeStampToken.
Exemplo
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);Veja também
FetchTimeStampToken, SetTimeStampServer, SetPAdESSignatureTimeStampToken