转换图片到pdf

Imports System.Drawing
Imports System.Text
Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf

 

'首先需要引用itextsharp.dll，一个开源dll，直接到官网下载

 

'此函数主要处理从数据库等地来的图像，接收二进制流

   Public Function ConvertImageToPDF(ByVal fileBuffer As Byte()) As Byte()

        Dim pages As New List(Of [String])()
        Dim result() As Byte
        Dim image As iTextSharp.text.Image
        Dim mStream As New MemoryStream()
        Dim bm As Bitmap
        Dim ImageStream As New MemoryStream(fileBuffer)
        Dim pageCount As Integer

        Dim document As New Document(iTextSharp.text.PageSize.LETTER, 20, 20, 20, 20)
        'pdf
        'PdfWriter.GetInstance(document, New FileStream(desPath + name & ".pdf", FileMod