Itextsharp下载PDF [英] Itextsharp download PDF

问题描述

这段代码非常完美。问题是按钮位于控件更新面板内，导致一些问题。但我已经修好了，现在可以了。

This code work perfect. The problem was the button was inside a control update panel and that cause some problem. But i already fixed and now works.

 Dim documentoPDF As New Document(PageSize.A4, 10, 10, 10, 10)
        Dim memStream As MemoryStream = New MemoryStream()
        Dim writer As PdfWriter = PdfWriter.GetInstance(documentoPDF, memStream)
        documentoPDF.Open()

        Dim Paragraph1 As Paragraph = New Paragraph("First paragraph")
        documentoPDF.Add(New Paragraph(Paragraph1))

        documentoPDF.Close()

        Dim bytesInStream As Byte() = memStream.ToArray()
        memStream.Close()

        'Dim memorystreaam As MemoryStream = New MemoryStream(bytesInStream)

        Response.Clear()
        Response.ContentType = "application/pdf"
        Response.AddHeader("content-disposition", "attachment;filename=FileName.pdf")
        Response.Buffer = True
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
        'Response.OutputStream.Write(memStream.GetBuffer(), 0, memStream.GetBuffer().Length)

        Response.BinaryWrite(bytesInStream)
        Response.End()

推荐答案

看起来好像你没有将PDF文档保存到某个地方的流中。

It looks like you are not saving the PDF document into the stream somewhere.

Dim bin() As Byte
Dim stream As MemoryStream = New MemoryStream
documentoPDF.Save(stream, false)
bin = stream.ToArray

Response.ClearHeaders
Response.Clear
Response.Buffer = true
Response.ContentType = "application/pdf"
Response.AddHeader("content-length", bin.Length.ToString)
Response.AddHeader("content-disposition", "attachment; filename="""" + txtnombre.Text + ".pdf, "")
Response.OutputStream.Write(bin, 0, bin.Length)

这篇关于Itextsharp下载PDF的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！