[WDXX] PDFSign September 05, 2020 08:41AM |
Registered: 6 years ago Posts: 215 |
Re: [WDXX] PDFSign September 07, 2020 05:21PM |
Registered: 4 years ago Posts: 5 |
Re: [WDXX] PDFSign September 07, 2020 05:34PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 07:47AM |
Registered: 6 years ago Posts: 215 |
Re: [WDXX] PDFSign September 08, 2020 10:54AM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 11:08AM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign September 08, 2020 11:41AM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 11:47AM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign September 08, 2020 12:17PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 12:29PM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign September 08, 2020 12:38PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 12:48PM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign September 08, 2020 12:55PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 12:58PM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign September 08, 2020 01:54PM |
Registered: 6 years ago Posts: 215 |
Re: [WDXX] PDFSign September 08, 2020 03:42PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign September 08, 2020 06:06PM |
Registered: 6 years ago Posts: 215 |
Re: [WDXX] PDFSign September 09, 2020 07:14AM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign September 09, 2020 05:42PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign October 30, 2020 09:52AM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign October 30, 2020 10:17AM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign October 30, 2020 12:21PM |
Registered: 6 years ago Posts: 301 |
Re: [WDXX] PDFSign October 30, 2020 12:36PM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign October 30, 2020 06:35PM |
Registered: 6 years ago Posts: 215 |
Re: [WDXX] PDFSign May 26, 2022 09:22AM |
Registered: 6 years ago Posts: 112 |
PROCEDURE SignDocumentDigital(DocumentFile is string) IF Lower(fExtractPath(DocumentFile, fExtension)) <> EXT_PDF THEN Warning("Το Έγγραφο δεν είναι μορφής PDF.") RESULT False END LOCAL MySignature is pdfSignature MyCert is Certificate = CertificateSelect() OldFileName is pdfDocument = DocumentFile NewFileName is string = fExtractPath(DocumentFile, fDirectory) + fExtractPath(DocumentFile, fFileName) + "_Signed" + EXT_PDF IF MyCert..Name = "" THEN Warning("Πρέπει να επιλέξετε ένα Πιστοποιητικό Υπογραφής.") RESULT False END // Έλεγχος καταλληλότητας για Υπογραφή του επιλεγμένου Πιστοποιητικού IF NOT MyCert..ValidForSignature THEN Warning("Το επιλεγμένο Πιστοποιητικό δεν μπορεί να χρησιμοποιηθεί για Υπογραφή.") RESULT False END OldFileName.Save(NewFileName) MySignature..Certificate = MyCert MySignature..Caption = MyCert..Name + ", " + DateToString(MyCert..StartValidityDate..Date, "YYYY.MM.DD") MySignature..X = 5 MySignature..Y = 5 MySignature..Width = 110 MySignature..Height = 20 // Στο σημείο αυτό, το Λειτουγικό Σύστημα ζητάει το PIN του USB Token IF NOT PDFSign(NewFileName, MySignature, iSignature_CAdES_T) THEN Error("Σφάλμα στην Υπογραφή PDF.", ErrorInfo()) RESULT False END RESULT True
Tonny
Re: [WDXX] PDFSign February 07, 2023 01:10PM |
Re: [WDXX] PDFSign February 07, 2023 05:38PM |
Registered: 6 years ago Posts: 112 |
Re: [WDXX] PDFSign February 07, 2023 05:49PM |
Registered: 6 years ago Posts: 301 |