在 VB.Net 中将图像文件转换为 PDF
Converting an image file to PDFin VB.Net
我需要将图像文件转换为 pdf 并将该 pdf 保存到网络服务器。我将 iTextSharp 与 VB.Net 一起使用,但我没有尝试将使用 iTextSharp 创建的 pdf 写入磁盘。这是我用来创建 pdf 对象的代码。
Dim fileBytes As Byte() = fuCV.FileBytes
Dim doc As New iTextSharp.text.Document(iTextSharp.text.PageSize.LETTER, 10, 10, 42, 35)
Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(fileBytes)
img.ScaleToFit(280.0F, 260.0F)
img.SpacingBefore = 30.0F
img.SpacingAfter = 1.0F
img.Alignment = Element.ALIGN_CENTER
Dim paragraph = New Paragraph()
doc.Open()
doc.Add(paragraph)
doc.Add(img)
我需要将文档对象保存到磁盘。如何做到这一点?
试试这个:
using (FileStream ms = new FileStream(Server.MapPath("pdfs" + "/pdf1.pdf"), FileMode.Create))
{
Document document = new Document(PageSize.A4, 25, 25, 30, 30);
PdfWriter writer = PdfWriter.GetInstance(document, ms);
document.Open();
iTextSharp.text.Image image = iTextSharp.text.Image.GetInstance(Server.MapPath("imagenes") + "/Acceso.jpg");
document.Add(image);
document.Close();
writer.Close();
}
我忘记说了,您需要创建两个文件夹,一个以 pdfs 命名,另一个以 imagenes 命名。
我需要将图像文件转换为 pdf 并将该 pdf 保存到网络服务器。我将 iTextSharp 与 VB.Net 一起使用,但我没有尝试将使用 iTextSharp 创建的 pdf 写入磁盘。这是我用来创建 pdf 对象的代码。
Dim fileBytes As Byte() = fuCV.FileBytes
Dim doc As New iTextSharp.text.Document(iTextSharp.text.PageSize.LETTER, 10, 10, 42, 35)
Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(fileBytes)
img.ScaleToFit(280.0F, 260.0F)
img.SpacingBefore = 30.0F
img.SpacingAfter = 1.0F
img.Alignment = Element.ALIGN_CENTER
Dim paragraph = New Paragraph()
doc.Open()
doc.Add(paragraph)
doc.Add(img)
我需要将文档对象保存到磁盘。如何做到这一点?
试试这个:
using (FileStream ms = new FileStream(Server.MapPath("pdfs" + "/pdf1.pdf"), FileMode.Create))
{
Document document = new Document(PageSize.A4, 25, 25, 30, 30);
PdfWriter writer = PdfWriter.GetInstance(document, ms);
document.Open();
iTextSharp.text.Image image = iTextSharp.text.Image.GetInstance(Server.MapPath("imagenes") + "/Acceso.jpg");
document.Add(image);
document.Close();
writer.Close();
}
我忘记说了,您需要创建两个文件夹,一个以 pdfs 命名,另一个以 imagenes 命名。