המרת pdf לתמונה

Question

שלום,

אני רוצה להמיר דף PDF ל IMAGE . אני עובדת ב vb.net , כיצד אני יכולה לעשות את זה?

תודה רבה.

Answer 1

אני הוספתי את ה DLL הנ"ל: xfinium.pdf.render

ואני מצרפת את הקוד שכתבתי אבל הוא לא עובד לי-

        Dim sourcePdf As String = "C:/Users/Nechama/Desktop/projects nechma/nechama/temp/pdfToImage/pdfToImage/pdf/1יציאה לחופשה.pdf"
        Dim stream1 As Stream
        Dim fileStream As New FileStream(sourcePdf, FileMode.Open)
        stream1 = fileStream
        Dim doc As PdfFixedDocument
        doc = New PdfFixedDocument()
        doc.InsertFile(0, 0, stream1)

        Try
            Dim num As Integer = doc.Pages.Count
            Dim page As Xfinium.Pdf.PdfPage = doc.Pages.Item(0)
            page = doc.Pages.First
            Dim renderer As PdfPageRenderer
            renderer = New PdfPageRenderer(page)
            Dim setting As Xfinium.Pdf.Rendering.PdfRendererSettings
            setting = New PdfRendererSettings(1, 1)
            Dim value As Xfinium.Pdf.Graphics.PdfSize
            value = renderer.ConvertPageToImage(setting)


        Catch ex As Exception

        End Try

Answer 2

היי,

מצאתי את הפיתרון.

הפיתרון הנ"ל עולה כסף!!!!!!!! ולמטה רשמתי פתרון חינמי

ולהלן הקוד שממיר pdf לתמונה.

שימו לב שליפני כן צריך לעשות נוגט לספריה xfinium.pdf.render

  Dim sourcePdf As String = "C:/Users/Nechama/Desktop/projects nechma/nechama/temp/pdfToImage/pdfToImage/pdf/1יציאה לחופשה.pdf"
        Dim stream1 As Stream
        Dim fileStream As New FileStream(sourcePdf, FileMode.Open)
        stream1 = fileStream
        Dim doc As New PdfFixedDocument(stream1)
        Dim settings As New PdfRendererSettings(96, 96)
      
        settings.RenderText = True
        settings.RenderImages = True
        settings.RenderGraphics = False
        settings.RenderAnnotations = False
        settings.RenderFormFields = False
        settings.EnableRenderingCache = True

        Dim renderer As New PdfPageRenderer(doc.Pages(0))
        Dim stm As FileStream = File.OpenWrite("sample10.Png")
        renderer.ConvertPageToImage(stm, PdfPageImageFormat.Png, settings)
        stm.Flush()
        stm.Close()

בהצלחה

תיקון טעות שימו לב לשנות

settings.RenderGraphics = true

Answer 3

היי,

שימו לב התיקייה הנ"ל עולה כסף.

ובלי שנשלם כסף אז תופיע הודעה אדומה עם שם היוצר כחלק מהתמונה כדי שלא יראו את הכיתוב אז צריך לסמן כ false את השורה הבאה כפי שסימנתי.

 settings.RenderGraphics = False

אבל הבעיה שלהרבה קבצים זה גם גורם לא להציג את כל העיצוב. ואם מסמנים את השורה הנ"ל כ TRUE אזי מוצגת הודעה עם שם היוצר כפי שרשמתי.

אתם יכולים להשתמש לסמן כ false ולראות אם זה עובד או לא אבל בשביל שזה יעבוד כמו שצריך אז צריך לקנות את זה.

אבל יש עוד פיתרון בחינם והוא ע"י שמתקינים במחשב את התוכנות הנ"ל:

1. gs921w32.exe

2. gs921w64.exe

ואז יש יכתוב את הקוד הבא:

    Public Sub convertPdf()
        Dim dev As GhostscriptJpegDevice
        dev = New GhostscriptJpegDevice(GhostscriptJpegDeviceType.Jpeg)
        dev.GraphicsAlphaBits = GhostscriptImageDeviceAlphaBits.V_4
        dev.TextAlphaBits = GhostscriptImageDeviceAlphaBits.V_4
        dev.ResolutionXY = New GhostscriptImageDeviceResolution(96, 96)
        dev.JpegQuality = 80
        dev.InputFiles.Add(pathPdf) 'הנתיב של הPDF 
        dev.Pdf.FirstPage = 1
        dev.Pdf.LastPage = 1
        dev.OutputPath = "img/img .jpg" 'הנתיב ששם התמונה תשמר
        dev.Process()


    End Sub

בהצלחה.