Itextsharp download PDF

Question

Этот код работает отлично. Проблема заключалась в том, что кнопка находилась внутри панели обновления управления и это вызывало некоторые проблемы. Но я уже исправлен и теперь работает.

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() 

Answer 1

Похоже, что вы не сохраняете документ PDF в потоке где-то.

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)