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