Imaginsystems


Tecniche di Programmazione - Codici Sorgenti - News Informatiche
Archivio Posts
Anno 2014

Anno 2013

Anno 2012
Statistiche
  • Views Home Page: 55.741
  • Views Posts: 423.780
  • Views Gallerie: 0
  • n° Posts: 210
  • n° Commenti: 224

VB.NET - CREARE UN FILE PDF PROTETTO DA PASSWORD CON LA LIBRERIA iTextSharp (Codice)

VB.NET - CREARE UN FILE PDF PROTETTO DA PASSWORD CON LA LIBRERIA iTextSharp (Codice)


 


Oggi vi voglio parlare di come si crea un file PDF con la libreria iTextSharp e proteggerla da Password .

Per prima cosa dovete scaricar la libreria iTextSharp.dll dal sito ufficiale http://sourceforge.net/projects/itextsharp/ e aggiungerla nel progetto. (Progetto->Aggiungi riferimento e poi selezionate Sfoglia e il file iTextSharp.dll)

Ricordatevi di importare la libreria nel progetto :

       Imports iTextSharp.text
       Imports iTextSharp.text.pdf

CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET

        Dim FileName As String = "c:\demo.pdf" 'Nome del file da creare
        Dim PasswordUser As String = "mypass" 'Password User
        Dim PasswordOwner As String = "1234" 'Password Admin File 

'Funzione che crea un file PDF e lo protegge da Password
        Crea_PDF_FileEncryptPassword(FileName, PasswordUser, PasswordOwner) 

'Alternativa funzione Crea File PDF con Password
'Crea_PDF_FileEncryptPassword(FileName, PasswordUser)

'Crea un nuovo file PDF con la password
    Private Sub Crea_PDF_FileEncryptPassword(ByVal PercorsoFile As String, ByVal PasswordUser As String, Optional ByVal PasswordOwner As String = Nothing)
        Dim pdfWrite As PdfWriter
        Dim pdfDoc As New Document()
        Dim pdfMemoryStream As New IO.FileStream(PercorsoFile, IO.FileMode.Create)
        pdfWrite = PdfWriter.GetInstance(pdfDoc, pdfMemoryStream)
        'Crea il file con la password
        pdfWrite.SetEncryption(PdfWriter.STRENGTH128BITS, PasswordUser, PasswordOwner, PdfWriter.AllowCopy)
        pdfDoc.Open()
        pdfDoc.Add(New Paragraph("Hello World"))
        pdfDoc.NewPage()
        pdfDoc.Add(New Paragraph("Hello World Again"))
        pdfDoc.Close()
    End Sub

CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET

Imports iTextSharp.text
Imports iTextSharp.text.pdf

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
       
 Dim FileName As String = "c:\demo.pdf"
        Dim PasswordUser As String = "mypass"
        Dim PasswordOwner As String = "1234"
     
       Crea_PDF_FileEncryptPassword(FileName, PasswordUser, PasswordOwner)

End Sub

 'Crea un nuovo file PDF con la password
    Private Sub Crea_PDF_FileEncryptPassword(ByVal PercorsoFile As String, ByVal PasswordUser As String, Optional ByVal PasswordOwner As String = Nothing)
        Dim pdfWrite As PdfWriter
        Dim pdfDoc As New Document()
        Dim pdfMemoryStream As New IO.FileStream(PercorsoFile, IO.FileMode.Create)
        pdfWrite = PdfWriter.GetInstance(pdfDoc, pdfMemoryStream)
        'Crea il file con la password
        pdfWrite.SetEncryption(PdfWriter.STRENGTH128BITS, PasswordUser, PasswordOwner, PdfWriter.AllowCopy)
        pdfDoc.Open()
        pdfDoc.Add(New Paragraph("Hello World"))
        pdfDoc.NewPage()
        pdfDoc.Add(New Paragraph("Hello World Again"))
        pdfDoc.Close()
    End Sub

End Class

By ImaginSystems & Queen Gin   
Categoria: VB.NET
lunedì, 24 dic 2012 Ore. 13.14

Messaggi collegati


Ora e Data
Mappa
Blogs Amici
    Copyright © 2002-2007 - Blogs 2.0
    dotNetHell.it | Home Page Blogs
    ASP.NET 2.0 Windows 2003