' The project, which uses this code, must have references to the following assemblies:
' - Vintasoft.Imaging
' - Vintasoft.Imaging.Pdf

''' <summary>
''' Prints information about all embedded files of PDF document.
''' </summary>
''' <param name="pdfFilename">The filename of PDF document.</param>
Public Shared Sub PrintEmbeddedFilesInfo(pdfFilename As String)
        ' open PDF document
        Using document As New Vintasoft.Imaging.Pdf.PdfDocument(pdfFilename, True)
                ' get the dictionary of embedded file specifications
                Dim embeddedFiles As Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFileSpecificationDictionary = document.EmbeddedFiles
                ' if dictionary is empty
                If embeddedFiles Is Nothing OrElse embeddedFiles.Count = 0 Then
                        System.Console.WriteLine("No embedded files.")
                Else
                        ' if dictionary is NOT empty
                        System.Console.WriteLine(String.Format("There are {0} embedded files.", embeddedFiles.Count))
                        ' counter of embedded files
                        Dim counter As Integer = 1
                        ' for each name-specification pair
                        For Each embeddedFileInfo As System.Collections.Generic.KeyValuePair(Of String, Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFileSpecification) In embeddedFiles
                                ' write name of the file specification
                                System.Console.WriteLine(String.Format("{0}) Name: ""{1}""", System.Math.Max(System.Threading.Interlocked.Increment(counter),counter - 1), embeddedFileInfo.Key))
                                ' get the file specification
                                Dim embeddedFileSpecification As Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFileSpecification = embeddedFileInfo.Value
                                ' write description of the file specification
                                System.Console.WriteLine(String.Format("   Description: ""{0}""", embeddedFileSpecification.Description))
                                ' write file name
                                System.Console.WriteLine(String.Format("   Filename: ""{0}""", embeddedFileSpecification.Filename))
                                ' write file system
                                System.Console.WriteLine(String.Format("   FileSystem: ""{0}""", embeddedFileSpecification.FileSystem))
                                ' get the embedded file
                                Dim embeddedFile As Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFile = embeddedFileSpecification.EmbeddedFile
                                System.Console.WriteLine(String.Format("   EmbeddedFile:"))
                                ' write compression of the embedded file
                                System.Console.WriteLine(String.Format("      Compression: {0}", embeddedFile.Compression))
                                ' write creation date of the embedded file
                                System.Console.WriteLine(String.Format("      CreationDate: {0}", embeddedFile.CreationDate))
                                ' write modification date of the embedded file
                                System.Console.WriteLine(String.Format("      ModifyDate: {0}", embeddedFile.ModifyDate))
                                ' write uncompressed length of the embedded file
                                System.Console.WriteLine(String.Format("      UncompressedLength: {0} bytes", embeddedFile.UncompressedLength))
                                ' write compressed length of the embedded file
                                System.Console.WriteLine(String.Format("      CompressedLength: {0} bytes", embeddedFile.Length))
                                System.Console.WriteLine()
                        Next
                End If
        End Using
End Sub

' The project, which uses this code, must have references to the following assemblies:
' - Vintasoft.Imaging
' - Vintasoft.Imaging.Pdf

''' <summary>
''' Embeds specified file into specified PDF document.
''' </summary>
''' <param name="pdfFilename">The filename of PDF document.</param>
''' <param name="embeddingFilename">The filename of embedding file.</param>
Public Shared Sub EmbedFileIntoPdfDocument(pdfFilename As String, embeddingFilename As String)
        ' open PDF document
        Using document As New Vintasoft.Imaging.Pdf.PdfDocument(pdfFilename)
                ' if embedded files are absent
                If document.EmbeddedFiles Is Nothing Then
                        ' create new dictionary
                        document.EmbeddedFiles = New Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFileSpecificationDictionary(document)
                End If

                ' create embedded file instance
                Dim embeddedFile As New Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFile(document, embeddingFilename, Vintasoft.Imaging.Pdf.PdfCompression.Zip)
                ' create embedded file specification
                Dim fileSpecification As New Vintasoft.Imaging.Pdf.Tree.PdfEmbeddedFileSpecification(embeddingFilename, embeddedFile)
                ' set description of the embedded file specification
                fileSpecification.Description = "Test embedding"
                ' add the embedded file specification to the dictionary
                document.EmbeddedFiles.Add(embeddingFilename, fileSpecification)
                ' save changes to the source
                document.SaveChanges()
        End Using
End Sub

' The project, which uses this code, must have references to the following assemblies:
' - Vintasoft.Imaging
' - Vintasoft.Imaging.Pdf

''' <summary>
''' Removes the embedded file from PDF document by the name of embedded file specification.
''' </summary>
''' <param name="pdfFilename">The filename of PDF document.</param>
''' <param name="embeddedFileName">Name of the embedded file specification.</param>
''' <returns><b>true</b> if the file is found and successfully removed; otherwise, <b>false</b>.</returns>
Public Shared Function RemoveEmbeddedFileFromPdfDocument(pdfFilename As String, embeddedFileName As String) As Boolean
        ' open PDF document
        Using document As New Vintasoft.Imaging.Pdf.PdfDocument(pdfFilename)
                ' if embedded files are absent
                If document.EmbeddedFiles Is Nothing OrElse document.EmbeddedFiles.Count = 0 Then
                        Return False
                End If
                ' try to remove embedded file specification
                If Not document.EmbeddedFiles.Remove(embeddedFileName) Then
                        Return False
                End If
                ' save changes to the source
                document.SaveChanges()
                Return True
        End Using
End Function