42 lines
1.3 KiB
Text
42 lines
1.3 KiB
Text
' Gambas class file
|
|
|
|
|
|
Public Sub Form_Open()
|
|
'' Usaremos el poder de pdfsig (poppler-utils)
|
|
' Poner titulo y version
|
|
Me.Title = "PDFVerifySign" & " - versión: " & Application.Version
|
|
' Solo permitimos ver PDFs
|
|
EscogePDF.Filter = ["*.pdf", "Ficheros PDF"]
|
|
'Definimos cabecera mensajes en toda la App
|
|
Message.Title = Application.Name
|
|
System.Shell = "/bin/bash"
|
|
End
|
|
|
|
Public Sub botonSalir_Click()
|
|
Quit
|
|
End
|
|
|
|
Public Sub botonVerificarFirma_Click()
|
|
Dim ficheroPDF As String
|
|
Dim Resultado As String
|
|
txtResultado.Text = "*** Comprobando PDF ***"
|
|
If IsNull(EscogePDF.SelectedPath)
|
|
Message.Warning("No ha seleccionado ningun PDF para comprobar")
|
|
Return
|
|
Endif
|
|
ficheroPDF = EscogePDF.SelectedPath
|
|
'Comprobar si tiene firma o no
|
|
Shell "echo -n $(pdfsig " & Shell$(ficheroPDF) & " 1>/dev/null 2>/dev/null; echo $?)" To Resultado
|
|
If Resultado = "2"
|
|
Message.Info("No he podido localizar ninguna firma en el PDF")
|
|
txtResultado.Text = "No se ha localizado ninguna firma en el PDF"
|
|
Return
|
|
Endif
|
|
If Resultado = "1"
|
|
Message.Error("Formato de PDF Incorrecto")
|
|
txtResultado.Text = "Formato de PDF Incorrecto"
|
|
Return
|
|
Endif
|
|
' Si llega aqui tiene valor de retorno 0 (Correcto)
|
|
Shell "pdfsig " & Shell$(ficheroPDF) To txtResultado.Text
|
|
End
|