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

حل مشكلة اختلاف الاصدار

السلام عليكم
ممكن مساعدة في برنامج يقوم بسحب صورة من ال scanner وحفظها بصيغة PDF
او كود يقوم بتحويل الصورة المحملة في ال Picture box الى صيغة PDF وحفظها مثلا في D
مع الشكر والتقدير

(19-02-15, 03:22 PM)عدنان الشمري كتب : [ -> ]السلام عليكم
ممكن مساعدة في برنامج يقوم بسحب صورة من ال scanner وحفظها بصيغة PDF
او كود يقوم بتحويل الصورة المحملة في ال Picture box الى صيغة PDF وحفظها مثلا في D
مع الشكر والتقدير

الصراحة لم اتناول هذا الامر من قبل لكن بحثت ووجدت هذا المقال
http://www.codeproject.com/Articles/2860...les-to-PDF

اخي سعود
شكراً لاهتمامك بالموظوع ولكن احتاج الى برنامج يقوم بسحب الصور من السكنر وحفظها بصيغة PDF

(08-03-15, 09:19 PM)عدنان الشمري كتب : [ -> ]اخي سعود
شكراً لاهتمامك بالموظوع ولكن احتاج الى برنامج يقوم بسحب الصور من السكنر وحفظها بصيغة PDF

الجزء الاخر موجود
http://vb4arb.com/vb/Thread-ImgToPdfconverter
اما السحب من السكنر فلم اتطرق لها من قبل
لو لديك مثال ارفعه لاعدل عليه لاضيف الباقي.

(09-03-15, 10:20 AM)سعود كتب : [ -> ]
(08-03-15, 09:19 PM)عدنان الشمري كتب : [ -> ]اخي سعود
شكراً لاهتمامك بالموظوع ولكن احتاج الى برنامج يقوم بسحب الصور من السكنر وحفظها بصيغة PDF

الجزء الاخر موجود
http://vb4arb.com/vb/Thread-ImgToPdfconverter
اما السحب من السكنر فلم اتطرق لها من قبل
لو لديك مثال ارفعه لاعدل عليه لاضيف الباقي.

السلام عليكم
في المرفقات مثال يقوم بسحب الصورة من السكنر ومن ثم حفظها في قاعدة بيانات
احتاج تعديل على البرنامج لاتمكن من:-
1- تحديد السكنر الذي سوف نستخدمة في سحب الصورة في حال وجود اكثر من سكنر مثبت على الكمبيوتر.
2- حفظ الصورة في ملف وليس في قاعدة بيانات كما في المثال المرفق وتكون بصيغة PDF.
4- في حال وجود اكثر من صورة لسحبها من السكنر تحفظ في ملف PDF واحد مثل كتاب الكتروني.

مع التقدير

المعذرة فلم اعرف الا النقطة رقم 2 وهي سهلة

كود :

Dim doc As New PdfDocument()

        doc.Pages.Add(New PdfPage())

        Dim xgr As XGraphics = XGraphics.FromPdfPage(doc.Pages(0))

        Dim img As XImage = XImage.FromFile(TextBox1.Text)

        xgr.DrawImage(img, 0, 0)

        doc.Save(TextBox2.Text & an & ".pdf")

        doc.Close()

المكتبة موجةدة بالمثال اللي كتبت رابطه
فقط استبدل الغير معرفة بماعندك

شكرا جزيلاً