pdf 생성 중 예외 "문서 열기 중"

Question

iTextSharp 라이브러리를 사용하여 tiff 파일을 pdf로 변환하려고하는데이 예외가 발생합니다.

이

Dim saveFileDialog1 As New SaveFileDialog() 
saveFileDialog1.Filter = "Pdf files (*.pdf)|*.pdf|All files (*.*)|*.*" 
saveFileDialog1.FilterIndex = 2 
saveFileDialog1.RestoreDirectory = True 

    If saveFileDialog1.ShowDialog() = DialogResult.OK Then 
    ' creation of the document with a certain size and certain margins 
     Dim document As New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 0, 0, 0, 0) 


     ' load the tiff image and count the total pages 
     Dim bm As New System.Drawing.Bitmap(OpenFileDialog1.FileName) 
     Dim total As Integer = bm.GetFrameCount(System.Drawing.Imaging.FrameDimension.Page) 

     document.Open() 
     ' creation of the different writers 
     Dim writer As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(document, New System.IO.FileStream(saveFileDialog1.FileName, System.IO.FileMode.Create)) 

     Dim cb As iTextSharp.text.pdf.PdfContentByte = writer.DirectContent 
     For k As Integer = 0 To total - 1 
      bm.SelectActiveFrame(System.Drawing.Imaging.FrameDimension.Page, k) 
      Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(bm, System.Drawing.Imaging.ImageFormat.Bmp) 
      ' scale the image to fit in the page 
      img.ScalePercent(72.0F/img.DpiX * 100) 
      img.SetAbsolutePosition(0, 0) 
      cb.AddImage(img) 
      document.NewPage() 
     Next k 
     document.Close() 

사람이 어디에 내가 잘못 갈 거 야 나를 말할 수 : 여기 "document is open"

내 코드?

편집 : 치수 추가하려고

: 나는 my book about iText에서 설명하는 것처럼이 iText를 사용하는 경우, 당신은 5 단계로 PDF를 생성해야

img.ScaleToFit(595, 842) 
img.SetAbsolutePosition(0, 0) 

Answer 1

을 (날카로운). writer을 만드는 것은 2 단계이며 문서를 여는 것은 3 단계입니다.이 두 단계를 전환했으며 이것이 오류의 원인입니다.

document.Open() 줄을 몇 줄 이동해야합니다. 여기서 writer을 작성한 후 cb 인스턴스를 작성하십시오.