Question

您好我正在寻找一种方法，使用VB.Net或JavaScript和Acrobat在PDF上找到签名字段，然后我想检查它是否已签名。以下是我到目前为止的情况：

        Dim page As Acrobat.CAcroPDPage
        Dim annot As Acrobat.CAcroPDAnnot
        page = acroPDDoc.AcquirePage(0)
        For i = 0 To page.GetNumAnnots - 1
            annot = page.GetAnnot(i)
        Next

我找到了注释，但我不知道如何检查它是否是签名字段。感谢

Answer 1

使用via JavaScript，您可以使用this.getNthFieldName（i）获取acrobat文档中的所有字段名。然后，您必须使用“field.type.localeCompare（”signature“）== 0”找到正确的字段，以确保该字段是您要查找的字段。之后，只需通过它来确定是否有签名。

下面是我用来确定是否存在数字签名的代码片段。

for(var i = 0; i < this.numFields; i++) {
  var a = this.getNthFieldName(i);
  var field = this.getField(a);
  if(field.type.localeCompare("signature") == 0) {
    var s = field.signatureInfo();
    if( s.name == null) {
       console.println("Digital Signature Not Present.");
       return -1;
    }else {
       console.println("Digital Signature Present.");
       return 0;
    }
  }
}

Answer 2

将theForm Dim As Acrobat.CAcroPDDoc Dim jso As Object

    theForm = CreateObject("AcroExch.PDDoc")
    theForm.Open("C:\Temp\Maru\DeclaracionJurada.pdf")
    jso = theForm.GetJSObject

    'Verifica que la firma sea valida

    Dim signatureOne = jso.getField("Signature2")
    Dim oState = signatureOne.SignatureValidate()

    Select Case oState
        Case Is = -1
            ListBox1.Items.Add("Estado : Sin Firma ")
        Case Is = 0
            ListBox1.Items.Add("Estado : Firma en blanco ")
        Case Is = 1
            ListBox1.Items.Add("Estado : No conoce el estado de la firma ")
        Case Is = 2
            ListBox1.Items.Add("Estado : Firma invalida ")
        Case Is = 3
            ListBox1.Items.Add("Estado : La firma es valida, pero la identidad del firmante no se pudo verificar ")
        Case Is = 4
            ListBox1.Items.Add("Estado : Firma e identidad son validas ")

    End Select

    'Extrae la info del firmante, nombre y fecha de la firma
    Dim signatureInformation = signatureOne.signatureInfo

    ListBox1.Items.Add("Firmante " & signatureInformation.name)
    ListBox1.Items.Add("Fecha " & signatureInformation.Date)

    'Extrae la info del certificado
    Dim signatureCertificate = signatureInformation.certificates
    ListBox1.Items.Add("Emitido a : " & signatureCertificate(0).subjectDN.serialNumber)
    ListBox1.Items.Add("Numero de Serie : " & signatureCertificate(0).serialNumber)
    ListBox1.Items.Add("Valido desde : " & signatureCertificate(0).validityStart)
    ListBox1.Items.Add("Valido hasta : " & signatureCertificate(0).validityEnd)
    ListBox1.Items.Add("Para : " & signatureCertificate(0).subjectDN.o)
    ListBox1.Items.Add("Tipo : " & signatureCertificate(0).subjectDN.ou)
    ListBox1.Items.Add("Emitido Por : " & signatureCertificate(0).issuerDN.cn)

Answer 3

如何使用VB.Net识别PDF中的签名签名字段

    Dim gApp As Acrobat.CAcroApp
    Dim gPDDoc As Acrobat.CAcroPDDoc
    Dim jso As Object
    Dim fname As String

    gApp = CreateObject("AcroExch.App")
    gPDDoc = CreateObject("AcroExch.PDDoc")

    If gPDDoc.Open("C:\Temp\Solicitud de empleo.pdf") Then
        jso = gPDDoc.GetJSObject

        For i = 0 To jso.numFields - 1
            fname = jso.getNthFieldName(i)
            ListBox1.Items.Add("Campo : " & fname & " valor: " & jso.getField(fname).value)

            MessageBox.Show(jso.getField(fname).type)

        Next

    End If

如何使用VB.Net识别PDF中的签名签名字段

3 个答案: