Файл PDF в Tiff скрыт в vb.net с использованием PdfSharp.dll - PullRequest
1 голос
/ 02 ноября 2010

Я использую Pdfsharp.dll для преобразования изображения в формате tiff в файл pdf на vb.net, и это успешно, когда я запускаю на своем компьютере, когда я использую его с другого компьютера, который показывает ошибку типа «Необработанная строка содержит недопустимый файл»символ со значением> 255. ", пожалуйста, помогите мне исправить ошибку, используя библиотеку PdfSharp.dll и следующий код

    Dim objDoc As PdfDocument
    Dim objPdfPage As PdfPage
    Dim objTiffImg As Image
    Dim objXImg As XImage
    Dim iPageCount As Integer
    Dim objXgr As XGraphics
    Dim sPdfFile As String = Nothing
    Dim objDir As DirectoryInfo
    Dim objFile As FileInfo()
    Dim objFileInfo As FileInfo

    Try
        objTiffImageSpliter = New TiffImageSplitter()
        objDoc = New PdfDocument
        iPageCount = objTiffImageSpliter.GetPageCount(sFileName)

        For iCount As Integer = 0 To iPageCount - 1
            objPdfPage = New PdfPage
            objTiffImg = objTiffImageSpliter.getTiffImage(sFileName, iCount)
            objXImg = XImage.FromGdiPlusImage(objTiffImg)
            'objPdfPage.Height = objXImg.PointWidth
            'objPdfPage.Width = objXImg.PointHeight
            objDoc.Pages.Add(objPdfPage)
            objXgr = XGraphics.FromPdfPage(objDoc.Pages(iCount))
            objXgr.DrawImage(objXImg, 10, 10)
        Next
        sPdfFile = System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MY_FaxFile\"

        If System.IO.Directory.Exists(sPdfFile) Then
            objDir = New DirectoryInfo(sPdfFile)
            objFile = objDir.GetFiles()

            For Each objFileInfo In objFile
                objFileInfo.Delete()
            Next

            sPdfFile &= "MyFax.pdf"
        Else
            System.IO.Directory.CreateDirectory(sPdfFile)
            sPdfFile &= "MyFax.pdf"
        End If

       objDoc.Save(sPdfFile)   ' This Line shows the Error.
        objDoc.Close()
    Catch ex As Exception
        MsgBox(ex.ToString)
        sPdfFile = Nothing
    End Try

    Return sPdfFile

1 Ответ

0 голосов
/ 02 ноября 2010

Я не знаком с этой библиотекой, но, исходя из вашего кода и сообщения об ошибке, я предполагаю, что ваша папка данных приложения содержит символы не ASCII и что библиотека PdfSharp не поддерживает символы не ASCII в имени файла.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...