منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ماهي طريقة تحويل ملف pdf الى صورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهي طريقة تحويل ملف pdf الى صورة (/showthread.php?tid=49354)



ماهي طريقة تحويل ملف pdf الى صورة - جيولوجي مبتدئ - 26-06-24

السلام عليكم ورحمة الله وبركاته 
اخواني ماهي طريقة تحويل ملف pdf  الى صورة   ...... وهل تتم هذه الطريقة بدون استخدام مكتبات 


لكم جزيل الشكر 
دمتم بود


RE: ماهي طريقة تحويل ملف pdf الى صورة - تركي الحلواني - 11-07-24

(26-06-24, 07:06 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته 
اخواني ماهي طريقة تحويل ملف pdf  الى صورة   ...... وهل تتم هذه الطريقة بدون استخدام مكتبات 


لكم جزيل الشكر 
دمتم بود

جرب هذا الكود

في الأول استورد مكتبة Spire

PHP كود :
Imports Spire.PDF
Imports Spire
.PDF.Graphics
Imports System
.Drawing
Imports System
.Drawing.Imaging



Class form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim pdf 
As PdfDocument = New PdfDocument

        
'Load a sample PDF document
        pdf.LoadFromFile("input.pdf")
        For i As Integer = 0 To pdf.Pages.Count - 1
            '
Convert the first page to an image and set the image Dpi
            Dim image 
As Image pdf.SaveAsImage(iPdfImageType.Bitmap500500)

 
           image.Save("ToJPG" ".jpg"ImageFormat.Jpeg)
 
       Next

    End Sub
End 
Class 
مرفق مكتبة Spire
Spire


RE: ماهي طريقة تحويل ملف pdf الى صورة - جيولوجي مبتدئ - 12-07-24

السلام عليكم ورحمة الله وبركاته 
أنا آسف جداً استاذ تركي لتأخري في الرد فقد مررت بظروف قاهرة جدا في الفترة الماضية والحمد لله على كل حال وقد رأيت ردك الآن وإن شاء الله سوف اطلعك على النتيجة بارك الله فيك 


لك جزيل الشكر
دمت بود


RE: ماهي طريقة تحويل ملف pdf الى صورة - atefkhalf2004 - 12-07-24

برجاء من الزملاء عمل مثال مع ارفاق المكتبات اللازمة
فعلا محتاج هذا المثال ضروري
برجاء

Dim pdf As PdfDocument = New PdfDocument
الخطا هنا ما السبب