Используя ItextSharp, я получаю несбалансированные текстовые операторы начала / конца. Но они соответствуют - PullRequest
Новая
       18

Используя ItextSharp, я получаю несбалансированные текстовые операторы начала / конца. Но они соответствуют

0 голосов
/ 30 сентября 2011

Я работаю над приложением, которое использует ItextSharp для генерации PDF-файлов для студентов, чтобы печатать теги имен и разрешения на парковку ... Однако оно продолжает выдавать: несбалансированные операторы начала / конца текстаat doc.close () Блоки, кажется, правильно открыты и закрыты .. Ниже приведена функция: 

        Function ID_and_Parking(ByVal id As Integer) As ActionResult
        Dim _reg_info As reg_info = db.reg_info.Single(Function(r) r.id = id)
        Dim _conf_info As conf_info = db.conf_info.Single(Function(f) f.id = 0)
        Dim _LastName As String = _reg_info.last_name
        Dim _Employer As String = _reg_info.business_name
        Dim _Class_1 As String = _reg_info.tues_class
        Dim _Class_2 As String = _reg_info.wed_class
        Dim _Class_3 As String = _reg_info.thur_class
        Dim _Class_4 As String = _reg_info.fri_class
        Dim _BeginDate As String = _conf_info.conf_start_date
        Dim _endDate As String = _conf_info.conf_end_date
        If IsDBNull(_reg_info.tues_class) Then
            _Class_1 = ""
        End If
        If IsDBNull(_reg_info.wed_class) Then
            _Class_2 = ""
        End If
        If IsDBNull(_reg_info.thur_class) Then
            _Class_3 = ""
        End If
        If IsDBNull(_reg_info.fri_class) Then
            _Class_4 = ""
        End If

        'Dim pdfpath As String = Server.MapPath("PDFs")
        'Dim imagepath As String = Server.MapPath("Images")
        Dim pdfpath As String = "C:\temp\"
        Dim imagepath As String = "C:\temp\"
        Dim doc As New Document
        doc.SetPageSize(iTextSharp.text.PageSize.A4)
        doc.SetMargins(0, 0, 2, 2)

        Try
            Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(pdfpath + "/Images.pdf", FileMode.Create))
            doc.Open()
            Dim cb As PdfContentByte = writer.DirectContent
            cb.BeginText()
            cb.SetTextMatrix(100, 400)
            cb.ShowText(_LastName)
            cb.EndText()
            doc.Add(New Paragraph("JPG"))
            Dim jpg As Image = Image.GetInstance(imagepath + "/Asads_Tags.jpg")
            jpg.Alignment = iTextSharp.text.Image.UNDERLYING
            jpg.ScaleToFit(576, 756)
            doc.Add(jpg)
        Catch dex As DocumentException
            Response.Write(dex.Message)
        Catch ioex As IOException
            Response.Write(ioex.Message)
        Catch ex As Exception
            Response.Write(ex.Message)
        Finally
            doc.Close()

        End Try



        Return RedirectToAction("Index")


    End Function

Кто-нибудь знает, где я могу пойти не так в ??????

1 Ответ

3 голосов
/ 01 октября 2011

Блок Try Catch вызвал несбалансированное исключение начала / конца ..... Как только я переместил doc.close () в конец попытки, ошибка исчезла ... Ну, может, кому-то еще понадобится понимание ... -

...