Article Details
Id: | 13130 |
Product: | finPOWER Connect |
Type: | NEW |
Version: | 2.03.01 |
Opened: | 23/07/2015 |
Closed: | 23/07/2015 |
Released: | 07/08/2015 |
Job: | J015962 |
PDF Utilities; added various functions to the finPOWER Connect Business Layer to combine PDF Files
Various functions have been added to the finPOWER Connect Business Layer to combine PDF Files.
You may combine from source Filenames, Byte Arrays or ISWordDocument objects using the following functions:
- finBL.PdfUtilities.CombinePDFFileNamesToPDFByteArray
- finBL.PdfUtilities.CombinePDFFileNamesToPDFFile
- finBL.PdfUtilities.CombinePDFByteArraysToPDFByteArray
- finBL.PdfUtilities.CombinePDFByteArraysToPDFFile
- finBL.PdfUtilities.CombineWordDocumentsToPDFByteArray
- finBL.PdfUtilities.CombineWordDocumentsToPDFFile
The following code samples shows how to use:
Dim FileContent() As Byte
Dim FileNames As List(Of String)
' Assume Success
Main = True
' Create a list of PDF Filenames
FileNames = New List(Of String)
FileNames.Add("file1.pdf")
FileNames.Add("file2.pdf")
FileNames.Add("file3.pdf")
' Combine into a Byte Array
If Main Then
If finBL.PdfUtilities.CombinePDFFileNamesToPDFByteArray(FileNames, FileContent) Then
' ...
Else
Main = False
End If
End If
' Combine and save to file
If Main Then
Main = finBL.PdfUtilities.CombinePDFFileNamesToPDFFile(FileNames, "combinedfile.pdf")
End If
Dim FileContent() As Byte
Dim PDFFileContents As List(Of Byte())
' Assume Success
Main = True
' Create a list of PDF Byte Arrays
PDFFileContents = New List(Of Byte())
If Main Then
If finBL.Runtime.FileUtilities.ReadBinaryFile("file1.pdf", FileContent) Then
PDFFileContents.Add(FileContent)
Else
Main = False
End If
End If
If Main Then
If finBL.Runtime.FileUtilities.ReadBinaryFile("file2.pdf", FileContent) Then
PDFFileContents.Add(FileContent)
Else
Main = False
End If
End If
' Combine into a Byte Array
If Main Then
If finBL.PdfUtilities.CombinePDFByteArraysToPDFByteArray(PDFFileContents, FileContent) Then
' ...
Else
Main = False
End If
End If
' Combine and save to file
If Main Then
Main = finBL.PdfUtilities.CombinePDFByteArraysToPDFFile(PDFFileContents, "combinedfile.pdf")
End If
Dim FileContent() As Byte
Dim WordDocument As ISWordDocument
Dim WordDocuments As List(Of ISWordDocument)
' Assume Success
Main = True
' Create a list of ISWordDocuments
WordDocuments = New List(Of ISWordDocument)
If Main Then
WordDocument = finBL.CreateWordDocument
If WordDocument.Open("file1.docx") Then
WordDocuments.Add(WordDocument)
Else
Main = False
End If
End If
If Main Then
WordDocument = finBL.CreateWordDocument
If WordDocument.Open("file2.docx") Then
WordDocuments.Add(WordDocument)
Else
Main = False
End If
End If
' Combine into a Byte Array
If Main Then
If finBL.PdfUtilities.CombineWordDocumentsToPDFByteArray(WordDocuments, FileContent) Then
' ...
Else
Main = False
End If
End If
' Combine and save to file
If Main Then
Main = finBL.PdfUtilities.CombineWordDocumentsToPDFFile(WordDocuments, "combinedfile.pdf")
End If